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
|
set stap_path $env(SYSTEMTAP_PATH)/stap
set test "prcwildcard function"
# Looking for functions in stap will only work if it isn't stripped.
if {[stripped_p $stap_path]} {
untested $test
} else {
spawn stap -L "process(\"$stap_path\").function(\"*\")"
set count 0
expect {
-re {^process[^\r\n]+\r\n} { incr count; exp_continue }
timeout { }
eof { }
}
catch {close}; catch {wait}
if {$count > 100} then { pass $test } else { fail $test }
}
set test "prcwildcard mark"
spawn stap -L "process(\"$stap_path\").mark(\"*\")"
set count 0
expect {
-re {^process[^\r\n]+\r\n} { incr count; exp_continue }
timeout { }
eof { }
}
catch {close}; catch {wait}
if {$count > 5} then { pass $test } else { fail $test }
|
