From 34dde0d3b3f7edad0e449c7ba9113bd3cc123682 Mon Sep 17 00:00:00 2001
From: fche <fche>
Date: Fri, 9 Feb 2007 18:57:11 +0000
Subject: * d'oh - disable tests unless [installtest_p]

---
 testsuite/systemtap.base/prologues.exp | 37 +++++++++++++++++++---------------
 1 file changed, 21 insertions(+), 16 deletions(-)

(limited to 'testsuite/systemtap.base/prologues.exp')

diff --git a/testsuite/systemtap.base/prologues.exp b/testsuite/systemtap.base/prologues.exp
index b349e839..b0f6a5c6 100644
--- a/testsuite/systemtap.base/prologues.exp
+++ b/testsuite/systemtap.base/prologues.exp
@@ -1,21 +1,26 @@
 set test "prologues -P"
-set ok 0
-spawn stap -P $srcdir/$subdir/prologues.stp
-expect {
-    -re {read[^\r\n]*\r\n} { incr ok; exp_continue }
-    -re {write[^\r\n]*\r\n} { incr ok; exp_continue }
-    eof
+if {! [installtest_p]} { untested $test } else {
+    set ok 0
+    spawn stap -P $srcdir/$subdir/prologues.stp
+    expect {
+        -re {read[^\r\n]*\r\n} { incr ok; exp_continue }
+        -re {write[^\r\n]*\r\n} { incr ok; exp_continue }
+        eof
+    }
+    wait
+    if {$ok > 10} { pass $test } else { fail $test }
 }
-wait
-if {$ok > 10} { pass $test } else { fail $test }
 
 set test "prologues no-P"
-set ok 0
-spawn stap $srcdir/$subdir/prologues.stp
-expect {
-    -re {read[^\r\n]*\r\n} { incr ok; exp_continue }
-    -re {write[^\r\n]*\r\n} { incr ok; exp_continue }
-    eof
+if {! [installtest_p]} { untested $test } else {
+    set ok 0
+    spawn stap $srcdir/$subdir/prologues.stp
+    expect {
+        -re {read[^\r\n]*\r\n} { incr ok; exp_continue }
+        -re {write[^\r\n]*\r\n} { incr ok; exp_continue }
+        eof
+    }
+    wait
+    if {$ok > 10} { pass $test } else { fail $test }
 }
-wait
-if {$ok > 10} { pass $test } else { fail $test }
\ No newline at end of file
+
-- 
cgit