summaryrefslogtreecommitdiffstats
path: root/testsuite/lib/stap_run2.exp
diff options
context:
space:
mode:
authorfche <fche>2006-08-12 05:13:09 +0000
committerfche <fche>2006-08-12 05:13:09 +0000
commit814bc89d4635f101b2c0077598f31aad95ed15b7 (patch)
tree407a49dbaf446af4751f5068607a7fb8dad0611d /testsuite/lib/stap_run2.exp
parent6b6d04673a1ef175821afc7d4fabdb496698e8e3 (diff)
downloadsystemtap-steved-814bc89d4635f101b2c0077598f31aad95ed15b7.tar.gz
systemtap-steved-814bc89d4635f101b2c0077598f31aad95ed15b7.tar.xz
systemtap-steved-814bc89d4635f101b2c0077598f31aad95ed15b7.zip
2006-08-12 Frank Ch. Eigler <fche@elastic.org>
* configure.ac, Makefile.am: Descend into testsuite/ directory. Remove local test logic. * configure, Makefile.in: Regenerated. * runtest.sh: Not yet removed. * HACKING: Update for new testsuite layout. 2006-08-12 Frank Ch. Eigler <fche@elastic.org> * all: Reorganized old pass-1..4 tests one dejagnu bucket. Moved over old pass-5 tests, except for disabled syscalls tests. * Makefile (installcheck): New target for running pass-1..5 tests against installed systemtap.
Diffstat (limited to 'testsuite/lib/stap_run2.exp')
-rw-r--r--testsuite/lib/stap_run2.exp51
1 files changed, 51 insertions, 0 deletions
diff --git a/testsuite/lib/stap_run2.exp b/testsuite/lib/stap_run2.exp
new file mode 100644
index 00000000..a182a2c5
--- /dev/null
+++ b/testsuite/lib/stap_run2.exp
@@ -0,0 +1,51 @@
+# stap_run2.exp
+#
+# Simple script for testing multiple lines of exact output.
+
+
+# stap_run2 TEST_NAME
+# TEST_NAME is path to the current test
+# Additional arguments are passed to stap as-is.
+#
+# global result_string must be set to the expected output
+
+set timeout 20
+
+proc stap_run2 { TEST_NAME args } {
+ if {![installtest_p]} { untested $TEST_NAME; return }
+
+ # fix up expected string
+ regsub -all \n $::result_string \r\n output
+
+ # spawn test
+ set cmd [concat {stap -v} $args]
+ if [file readable $TEST_NAME] {
+ lappend cmd $TEST_NAME
+ }
+ eval spawn $cmd
+
+ expect {
+ -re {^Pass\ ([1234]):[^\r]*\ in\ ([0-9]+)usr/([0-9]+)sys/([0-9]+)real\ ms.\r\n}
+ {set pass$expect_out(1,string) "\t$expect_out(2,string)\t$expect_out(3,string)\t$expect_out(4,string)"; exp_continue}
+ -re {^Pass 5: starting run.\r\n} {exp_continue}
+ -ex $output {
+ pass "$TEST_NAME passed"
+ expect {
+ -re {^Pass\ ([5]):[^\r]*\ in\ ([0-9]+)usr/([0-9]+)sys/([0-9]+)real\ ms.\r\n}
+ {set pass$expect_out(1,string) "\t$expect_out(2,string)\t$expect_out(3,string)\t$expect_out(4,string)"
+ verbose -log "metric:\t$TEST_NAME $pass1$pass2$pass3$pass4$pass5"}
+ }
+ }
+ timeout {
+ fail "$TEST_NAME timed out" }
+ eof {
+ fail "$TEST_NAME unexpected EOF" }
+ -re "semantic error:" { fail "$TEST_NAME compilation" }
+ -re "ERROR:" {
+ send "\003"
+ fail "$TEST_NAME runtime error"
+ }
+ }
+ catch close
+ wait
+}