From 4b4b9caf47dcbbbbf69cae5c0ba34c65c38231f8 Mon Sep 17 00:00:00 2001
From: Stan Cox <scox@redhat.com>
Date: Tue, 20 Jul 2010 17:03:56 -0400
Subject: [PATCH] Tweak the systemtap.apps tcl test.

tcl.exp: Bump up timeout value.
stap-tcl.sh: Don't run obj.test as it takes a really long time.
---
 testsuite/systemtap.apps/stap-tcl.sh | 1 +
 testsuite/systemtap.apps/tcl.exp     | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/testsuite/systemtap.apps/stap-tcl.sh b/testsuite/systemtap.apps/stap-tcl.sh
index 2a0d05485..d7257e3e0 100644
--- a/testsuite/systemtap.apps/stap-tcl.sh
+++ b/testsuite/systemtap.apps/stap-tcl.sh
@@ -21,6 +21,7 @@ if [ ! -d tcl/src ] ; then
     mv tcl$tclrelease tcl/src
     sed -i '/runAllTests/i\
 singleProcess true' tcl/src/tests/all.tcl
+    mv tcl/src/tests/obj.test tcl/src/tests/obj.test.1
 fi
 
 cd tcl/src/unix
diff --git a/testsuite/systemtap.apps/tcl.exp b/testsuite/systemtap.apps/tcl.exp
index 07409ccd1..bd9684fae 100644
--- a/testsuite/systemtap.apps/tcl.exp
+++ b/testsuite/systemtap.apps/tcl.exp
@@ -52,7 +52,7 @@ set lines 0
 verbose -log "spawn stap -DMAXSKIPPED=8024 -t -c \"tcl/install/bin/tclsh${tclreleasemajor} tcl/src/tests/all.tcl > tcl-test.out\" $srcdir/$subdir/stap-tcl.stp tcl/install/bin/tclsh${tclreleasemajor} tcl/install/lib/libtcl${tclreleasemajor}.so"
 spawn stap -DMAXSKIPPED=8024 -t -c "tcl/install/bin/tclsh${tclreleasemajor} tcl/src/tests/all.tcl > tcl-test.out" $srcdir/$subdir/stap-tcl.stp tcl/install/bin/tclsh${tclreleasemajor} tcl/install/lib/libtcl${tclreleasemajor}.so
 expect {
-    -timeout 1000
+    -timeout 2000
     -re {^OK [^\r\n]*[\r\n]} { incr ok; exp_continue }
     -re {^KO [^\r\n]*[\r\n]} { incr ko; exp_continue }
     -re {^ERROR: Skipped[^\r\n]*[\r\n]} { incr xok; exp_continue }
-- 
2.43.5