From cf49e51a9a4a1a955d746bde9a5e29108b688615 Mon Sep 17 00:00:00 2001
From: hunt <hunt>
Date: Wed, 17 Jan 2007 18:24:21 +0000
Subject: 2007-01-17  Martin Hunt  <hunt@redhat.com>

	* test.exp: Renamed to syscall.exp.
---
 testsuite/systemtap.syscall/syscall.exp | 46 +++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 testsuite/systemtap.syscall/syscall.exp

(limited to 'testsuite/systemtap.syscall/syscall.exp')

diff --git a/testsuite/systemtap.syscall/syscall.exp b/testsuite/systemtap.syscall/syscall.exp
new file mode 100644
index 00000000..8068a6fc
--- /dev/null
+++ b/testsuite/systemtap.syscall/syscall.exp
@@ -0,0 +1,46 @@
+proc test_procedure {} {
+    global srcdir subdir
+    set wd [pwd]
+    set flags ""
+    if {$srcdir == ""} {
+	set pattern "*.c"
+    } else {
+	set pattern "$srcdir/$subdir/*.c"
+    }
+    foreach filename [lsort [glob $pattern]] {
+	set file [file tail [string range $filename 0 end-2]]
+	target_compile $filename $wd/$file executable $flags
+	send_log "Testing ${file}\n"
+	set res [exec $srcdir/$subdir/test.tcl $file $filename]
+	if {$res == "PASS"} {
+	    pass "$file"
+	} elseif {$res == "UNSUPP"} {
+	    unsupported "$file not supported on this arch"
+	} else {
+	    fail "$file"
+	    send_log "$res\n"
+	}
+    }
+    
+    if {$::tcl_platform(machine) == "x86_64" || 
+        $::tcl_platform(machine) == "ppc64"} {
+	# on x86_64 and pcp64, test 32-bit and 64-bit binaries
+	set flags "additional_flags=-m32"
+	foreach filename [lsort [glob $pattern]] {
+	    set file [file tail [string range $filename 0 end-2]]
+	    target_compile $filename $wd/$file executable $flags
+	    send_log "Testing 32-bit ${file}\n"
+	    set res [exec $srcdir/$subdir/test.tcl $file $filename]
+	    if {$res == "PASS"} {
+		pass "32-bit $file"
+	    } elseif {$res == "UNSUPP"} {
+		unsupported "$file not supported on this arch"
+	    } else {
+		fail "32-bit $file"
+		send_log "$res\n"
+	    }
+	}
+    }    
+}
+
+test_procedure
-- 
cgit