summaryrefslogtreecommitdiffstats
path: root/tests/interp.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2009-12-28 10:01:11 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2009-12-28 10:01:11 (GMT)
commit2ad98fe4da1a849f1ff73bf5da2d613161df4a37 (patch)
treeb7a60a5d6d496452b80c2ec0d41289cf2a67a360 /tests/interp.test
parent174ac07d57f2a496bf57aca9b076f42b5c1c4e25 (diff)
downloadtcl-2ad98fe4da1a849f1ff73bf5da2d613161df4a37.zip
tcl-2ad98fe4da1a849f1ff73bf5da2d613161df4a37.tar.gz
tcl-2ad98fe4da1a849f1ff73bf5da2d613161df4a37.tar.bz2
Slight improvement of test so it shouldn't block forever if it fails
Diffstat (limited to 'tests/interp.test')
-rw-r--r--tests/interp.test8
1 files changed, 6 insertions, 2 deletions
diff --git a/tests/interp.test b/tests/interp.test
index 60eebea..0499802 100644
--- a/tests/interp.test
+++ b/tests/interp.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: interp.test,v 1.66 2009/12/28 09:58:14 dkf Exp $
+# RCS: @(#) $Id: interp.test,v 1.67 2009/12/28 10:01:11 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2.1
@@ -3379,7 +3379,11 @@ test interp-34.13 {time limit granularity and vwait: Bug 2891362} -setup {
set i [interp create -safe]
} -body {
$i limit time -seconds [clock add [clock seconds] 1 second]
- $i eval vwait forever
+ $i eval {
+ after 2000 set x timeout
+ vwait x
+ return $x
+ }
} -cleanup {
interp delete $i
} -returnCodes error -result {limit exceeded}