blob: a4e38c0576787b6b6a0abd4b1c9e89d375016b9b (
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 { println($\$name, $\$vars) }"} 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
|
