From 814bc89d4635f101b2c0077598f31aad95ed15b7 Mon Sep 17 00:00:00 2001
From: fche <fche>
Date: Sat, 12 Aug 2006 05:13:09 +0000
Subject: 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.
---
 testsuite/lib/stap_run_binary.exp | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 testsuite/lib/stap_run_binary.exp

(limited to 'testsuite/lib/stap_run_binary.exp')

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"
+  }
+}
-- 
cgit