1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
spawn stap $srcdir/$subdir/args.stp
expect {
-timeout 120
"READY" {
exec echo 1 > /proc/stap_test_cmd
expect {
-timeout 5
"yyy_int -1 200 300\r\nyyy_int returns 499\r\n" {
pass "integer function arguments"
}
timeout {fail "integer function arguments"}
}
exec echo 2 > /proc/stap_test_cmd
expect {
-timeout 5
"yyy_uint 4294967295 200 300\r\nyyy_uint returns 499\r\n" {
pass "unsigned function arguments"
}
timeout {fail "unsigned function arguments"}
}
exec echo 3 > /proc/stap_test_cmd
expect {
-timeout 5
"yyy_long -1 200 300\r\nyyy_long returns 499\r\n" {
pass "long function arguments"
}
timeout {fail "long function arguments"}
}
exec echo 4 > /proc/stap_test_cmd
expect {
-timeout 5
"yyy_int64 -1 200 300\r\nyyy_int64 returns 499\r\n" {
pass "int64 function arguments"
}
timeout {fail "int64 function arguments"}
}
exec echo 5 > /proc/stap_test_cmd
expect {
-timeout 5
"yyy_char a b c\r\nyyy_char returns Q\r\n" {
pass "char function arguments"
}
timeout {fail "char function arguments"}
}
exec echo 6 > /proc/stap_test_cmd
expect {
-timeout 5
"yyy_str Hello-System-Tap\r\nyyy_str returns XYZZY\r\n" {
pass "string function arguments"
}
timeout {fail "string function arguments"}
}
}
timeout {fail "all args tests - timeout"}
eof {fail "function arguments: unexpected timeout"}
}
kill -INT -[exp_pid] 2
catch { close }
catch { wait }
|
