diff options
author | fche <fche> | 2006-08-12 05:13:09 +0000 |
---|---|---|
committer | fche <fche> | 2006-08-12 05:13:09 +0000 |
commit | 814bc89d4635f101b2c0077598f31aad95ed15b7 (patch) | |
tree | 407a49dbaf446af4751f5068607a7fb8dad0611d /testsuite/lib/stap_run_binary.exp | |
parent | 6b6d04673a1ef175821afc7d4fabdb496698e8e3 (diff) | |
download | systemtap-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_run_binary.exp')
-rw-r--r-- | testsuite/lib/stap_run_binary.exp | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/testsuite/lib/stap_run_binary.exp b/testsuite/lib/stap_run_binary.exp new file mode 100644 index 00000000..6d5de4b8 --- /dev/null +++ b/testsuite/lib/stap_run_binary.exp @@ -0,0 +1,23 @@ +# stap_run_binary.exp +# +# Simple script for testing binary output +# stap_run_binary TEST_NAME +# TEST_NAME is path to the current test +# global result_string must be set to the expected output + +proc stap_run_binary { TEST_NAME} { + if {![installtest_p]} { untested $TEST_NAME; return } + + set hex_args {-ve 8/1 "%02x " "\n"} + set res [exec stap $TEST_NAME | hexdump $hex_args] + + if {[string compare $res $::result_string] == 0} { + pass "$TEST_NAME passed" + } else { + fail "$TEST_NAME failed" + puts "EXPECTED:\n-----------------------\n<$::result_string>" + puts "-----------------------\n" + puts "GOT:\n-----------------------\n<$res>" + puts "-----------------------\n" + } +} |