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/ChangeLog   |  4 +++
 testsuite/systemtap.syscall/syscall.exp | 46 +++++++++++++++++++++++++++++++++
 testsuite/systemtap.syscall/test.exp    | 46 ---------------------------------
 3 files changed, 50 insertions(+), 46 deletions(-)
 create mode 100644 testsuite/systemtap.syscall/syscall.exp
 delete mode 100644 testsuite/systemtap.syscall/test.exp

diff --git a/testsuite/systemtap.syscall/ChangeLog b/testsuite/systemtap.syscall/ChangeLog
index 1fa61a87..9fb5274f 100644
--- a/testsuite/systemtap.syscall/ChangeLog
+++ b/testsuite/systemtap.syscall/ChangeLog
@@ -1,3 +1,7 @@
+2007-01-17  Martin Hunt  <hunt@redhat.com>
+
+	* test.exp: Renamed to syscall.exp.
+
 2007-01-15  Mike Mason  <mmlnx@us.ibm.com>
 
 	* test.exp: test 32-bit binaries on ppc64
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
diff --git a/testsuite/systemtap.syscall/test.exp b/testsuite/systemtap.syscall/test.exp
deleted file mode 100644
index 8068a6fc..00000000
--- a/testsuite/systemtap.syscall/test.exp
+++ /dev/null
@@ -1,46 +0,0 @@
-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