blob: cd033908e453f9f4b6ad0f5c35b9b06be16e7447 (
plain)
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
|
set tracepoints {}
spawn stap -l {kernel.trace("*")}
expect {
-re {^kernel.trace[^\r\n]*\r\n} {
append tracepoints $expect_out(0,string)
exp_continue
}
timeout {}
eof {}
}
catch {close}; catch { wait }
foreach tp $tracepoints {
set test "tracepoint $tp -p4"
if {[catch {exec stap -w -p4 -e "probe $tp {}"} res]} {
fail "$test $res"
} else {
pass "$test"
}
}
set test "tracepoints"
if {![installtest_p]} { untested $test; return }
set ::result_string {tracepoints OK}
stap_run2 $srcdir/$subdir/$test.stp
|
