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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
|
if {![installtest_p]} {
for {set i 0} { $i < 16} {incr i} {
untested cmd_parse$i
}
return
}
spawn stap -c {echo "hello world"} -we {probe begin {}}
expect {
-timeout 60
"hello world" {pass "cmd_parse1"}
timeout {fail "cmd_parse1: unexpected timeout"}
eof {fail "cmd_parse1: unexpected EOF"}
}
wait;catch {close}
spawn stap -c {echo "hello "\"world\"} -we {probe begin {}}
expect {
-timeout 60
"hello \"world\"" {pass "cmd_parse2"}
timeout {fail "cmd_parse2: unexpected timeout"}
eof {fail "cmd_parse2: unexpected EOF"}
}
wait;catch {close}
spawn stap -c {sh -c '(a="hello world"; echo $a)'} -we {probe begin {}}
expect {
-timeout 60
"hello world" {pass "cmd_parse3"}
timeout {fail "cmd_parse3: unexpected timeout"}
eof {fail "cmd_parse3: unexpected EOF"}
}
wait;catch {close}
spawn stap -c {sh -c '(a="hello "\"world\"; echo $a)'} -we {probe begin {}}
expect {
-timeout 60
"hello \"world\"" {pass "cmd_parse4"}
timeout {fail "cmd_parse4: unexpected timeout"}
eof {fail "cmd_parse4: unexpected EOF"}
}
wait;catch {close}
spawn stap -c {sh -c '(a="hello "world; echo $a)'} -we {probe begin {}}
expect {
-timeout 60
"hello world" {pass "cmd_parse5"}
timeout {fail "cmd_parse5: unexpected timeout"}
eof {fail "cmd_parse5: unexpected EOF"}
}
wait;catch {close}
spawn stap -c {bash -c '((a=42+7)); echo "The answer is $a"'} -we {probe begin {}}
expect {
-timeout 60
"The answer is 49" {pass "cmd_parse6"}
timeout {fail "cmd_parse6: unexpected timeout"}
eof {fail "cmd_parse6: unexpected EOF"}
}
wait;catch {close}
spawn stap -c {sh -c '(echo "Hello World" 1>&2) > /dev/null'} -we {probe begin {}}
expect {
-timeout 60
"Hello World" {pass "cmd_parse7"}
timeout {fail "cmd_parse7: unexpected timeout"}
eof {fail "cmd_parse7: unexpected EOF"}
}
wait;catch {close}
spawn stap -l {vm.*}
expect {
-timeout 60
-re "vm.*" {pass "cmd_parse8"}
timeout {fail "cmd_parse8: unexpected timeout"}
eof {fail "cmd_parse8: unexpected EOF"}
}
wait;catch {close}
spawn stap -e {probe begin { printf("%d %s\n", argc, argv[$1]) exit() }} 1
expect {
-timeout 60
"1 1" { pass cmd_parse9 }
timeout { fail "cmd_parse9 timeout" }
eof { fail "cmd_parse9 eof" }
}
wait;catch {close}
spawn stap -e {probe begin { printf("%d %s\n", argc, argv[$1]) exit() }} 5 a b c d
expect {
-timeout 60
"5 d" { pass cmd_parse10 }
timeout { fail "cmd_parse10 timeout" }
eof { fail "cmd_parse10 eof" }
}
wait;catch {close}
spawn stap -e {probe begin { printf("%d %s\n", argc, argv[$1]) exit() }} 10 a b c d
expect {
-timeout 60
"5 " { pass cmd_parse11 }
timeout { fail "cmd_parse11 timeout" }
eof { fail "cmd_parse11 eof" }
}
wait;catch {close}
spawn stap -e {probe begin { printf("%d %s\n", argc, argv[0]) exit() }}
expect {
-timeout 60
"0 " { pass cmd_parse12 }
timeout { fail "cmd_parse12 timeout" }
eof { fail "cmd_parse12 eof" }
}
wait;catch {close}
spawn stap -L syscall.a*
expect {
-timeout 60
-re {(syscall\.a[_a-zA-Z0-9]*(\ [_a-zA-Z0-9\$]+:[^:]+?)+\r\n)+} { pass "cmd_parse13" }
timeout {fail "cmd_parse13: unexpected timeout"}
eof {fail "cmd_parse13: unexpected EOF"}
}
wait;catch {close}
spawn sh -c "stap -v -v --vp 01020 -h 2>&1"
expect {
-re {add per-pass verbosity .23242.} { pass "cmd_parse14" }
timeout { fail "cmd_parse14: timeout" }
eof { fail "cmd_parse14: eof" }
}
wait;catch {close}
set uname [exec uname -r]
set linux26ver [lindex [split $uname {.-}] 2]
if {$linux26ver < 29} {
verbose -log "kfail, see commit e0ccd3\n";
setup_kfail 4186 "*-*-*"
}
spawn sh -c "stap -m do_not_cache_me -B kernelrelease -p4 -e 'probe begin {exit()}'"
# the \r below is meant to match the "kernelrelease" output, as distinct from
# any possible auxiliary make verbosity.
expect {
-timeout 60
-re "$uname\r" { pass "cmd_parse15" }
timeout { fail "cmd_parse15: timeout" }
eof { fail "cmd_parse15: eof" }
}
wait;catch {close}
set uname [exec uname -i]
spawn sh -c "stap -m do_not_cache_me -a $uname -p4 -e 'probe begin {exit()}'"
# the \r below is meant to match the "kernelrelease" output, as distinct from
# any possible auxiliary make verbosity.
expect {
-timeout 60
-re "do_not_cache_me.ko\r" { pass "cmd_parse16" }
timeout { fail "cmd_parse16: timeout" }
eof { fail "cmd_parse16: eof" }
}
wait;catch {close}
# NB: when adding extra tests here, increment the ![installtest_p]
# loop count too at the top.
catch {exec rm -f do_not_cache_me.ko}
|
