summaryrefslogtreecommitdiffstats
path: root/testsuite/systemtap.base/global_end.exp
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/systemtap.base/global_end.exp')
-rw-r--r--testsuite/systemtap.base/global_end.exp23
1 files changed, 23 insertions, 0 deletions
diff --git a/testsuite/systemtap.base/global_end.exp b/testsuite/systemtap.base/global_end.exp
new file mode 100644
index 00000000..08cf0dea
--- /dev/null
+++ b/testsuite/systemtap.base/global_end.exp
@@ -0,0 +1,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)" }