testsuite/systemtap.base/global_end.exp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

# test end probe creation and display of written and unread global variables

set test "global_end"

if {![installtest_p]} {untested $test; return}

spawn stap $srcdir/$subdir/global_end.stp
set ok 0
expect {
    -timeout 180
    -re {one,0x1.*one,0x2.*two,0x1.*two,0x2} { incr ok; exp_continue }
    -re {alpha."one".1.=0x1} { incr ok; exp_continue }
    -re {alpha."one".2.=0x2} { incr ok; exp_continue }
    -re {alpha."two".1.=0x3} { incr ok; exp_continue }
    -re {alpha."two".2.=0x4} { incr ok; exp_continue }
    -re {gamma="abcdefghijklmnopqrstuvwxyz"} { incr ok; exp_continue }
    -re {iota."one".="eleven"} { incr ok; exp_continue }
    -re {iota."two".="twelve"} { incr ok; exp_continue }
    timeout { fail "$test (timeout)" }
    eof { }
}
wait
if {$ok == 8} { pass "$test ($ok)" } { fail "$test ($ok)" }