1 files changed, 71 insertions, 0 deletions
diff --git a/testsuite/systemtap.syscall/test.exp b/testsuite/systemtap.syscall/test.exp
new file mode 100644
index 00000000..98829cc4
--- /dev/null
+++ b/testsuite/systemtap.syscall/test.exp
@@ -0,0 +1,71 @@
+return  ;# this will need more rework for obj!=src testing
+
+proc test_procedure {} {
+global subdir
+if {$subdir != ""} {
+    cd $subdir
+}
+
+# compile sys.stp and keep it
+catch {exec stap -kvvp4 sys.stp} res1
+set path ""
+regexp {Keeping temporary directory "([^\"]*)"} $res1 match path
+if {$path == ""} {
+  send_log "ERROR:\n$res1\n"
+  fail "ERROR:\n$res1\n"
+  return -1
+}
+foreach line [split $res1 \n] {
+  if {[regexp {Pass 4: compiled C into "([^\"]*)"} $line match module]} {
+	    break
+        }
+}
+
+if {![info exists module]} { 
+  send_log "Compiling sys.stp failed:\n$res1\n"
+  fail "Compiling sys.stp failed:\n$res1\n"
+  return -1
+}
+
+set flags ""
+foreach filename [lsort [glob *.c]] {
+  set file [string range $filename 0 end-2]
+  target_compile $filename $file executable $flags
+  send_log "Testing ${file}\n"
+  set res [exec ./test.tcl $file $path/$module]
+  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"} {
+  # on x86_64, test 32-bit and 64-bit binaries
+  set flags "additional_flags=-m32"
+  foreach filename [lsort [glob *.c]] {
+    set file [string range $filename 0 end-2]
+    target_compile $filename $file executable $flags
+    send_log "Testing 32-bit ${file}\n"
+    set res [exec ./test.tcl $file $path/$module]
+    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"
+    }
+  }
+}
+
+exec rm -rf $path
+if {$subdir != ""} {
+  cd ..
+}
+}
+
+test_procedure