2007-09-19 Martin Hunt <hunt@redhat.com>

	PR 4931
	* test-debug.tcl (cleanup): Remove print.
	* README: Update.
	* syscall.exp: Source test.tcl and call run_one_test()
	from there.
	* test.tcl: Rewrite as a function. Do compilation
	as well as testing. Compile into and execute in
	a directory in /tmp.

1 files changed, 16 insertions, 18 deletions

diff --git a/testsuite/systemtap.syscall/syscall.exp b/testsuite/systemtap.syscall/syscall.exp
index e9ea9537..2313403f 100644
--- a/testsuite/systemtap.syscall/syscall.exp
+++ b/testsuite/systemtap.syscall/syscall.exp
@@ -1,3 +1,5 @@
+source $srcdir/$subdir/test.tcl
+
 proc test_procedure {} {
     global srcdir subdir
     set wd [pwd]
@@ -29,20 +31,18 @@ proc test_procedure {} {
 
     if {$do_64_bit_pass} {
 	foreach filename [lsort [glob $pattern]] {
-	    set file [file tail [string range $filename 0 end-2]]
-	    if {![installtest_p]} { untested $file; continue }
-	    target_compile $filename $wd/$file executable $flags
-	    send_log "Testing 64-bit ${file}\n"
-	    set res [exec $srcdir/$subdir/test.tcl $file $filename]
+	    set testname [file tail [string range $filename 0 end-2]]
+	    if {![installtest_p]} { untested $testname; continue }
+	    send_log "Testing 64-bit ${testname}\n"
+	    set res [run_one_test $filename $flags]
 	    if {$res == "PASS"} {
-		pass "$file"
+		pass "$testname"
 	    } elseif {$res == "UNSUPP"} {
-		unsupported "$file not supported on this arch"
+		unsupported "$testname not supported on this arch"
 	    } else {
-		fail "64-bit $file"
+		fail "64-bit $testname"
 		send_log "$res\n"
 	    }
-	    catch {exec rm -f $wd/$file}
 	}
     }
 
@@ -61,20 +61,18 @@ proc test_procedure {} {
 
     if {$do_32_bit_pass} {
 	foreach filename [lsort [glob $pattern]] {
-	    set file [file tail [string range $filename 0 end-2]]
-	    if {![installtest_p]} { untested $file; continue }
-	    target_compile $filename $wd/$file executable $flags
-	    send_log "Testing 32-bit ${file}\n"
-	    set res [exec $srcdir/$subdir/test.tcl $file $filename]
+	    set testname [file tail [string range $filename 0 end-2]]
+	    if {![installtest_p]} { untested $testname; continue }
+	    send_log "Testing 32-bit ${testname}\n"
+	    set res [run_one_test $filename $flags]
 	    if {$res == "PASS"} {
-		pass "32-bit $file"
+		pass "32-bit $testname"
 	    } elseif {$res == "UNSUPP"} {
-		unsupported "$file not supported on this arch"
+		unsupported "$testname not supported on this arch"
 	    } else {
-		fail "32-bit $file"
+		fail "32-bit $testname"
 		send_log "$res\n"
 	    }
-	    catch {exec rm -f $wd/$file}
 	}
     }
 }