summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2009-12-28 10:05:21 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2009-12-28 10:05:21 (GMT)
commit269f443b722116c9623cfee0c4d3c79318342565 (patch)
treeff038ef2bc0c6023857d4d67b2a487b9b383a295 /tests
parent0d01ef9eb8b4f1e51b3b2401f02f0b7aa6c92ecc (diff)
downloadtcl-269f443b722116c9623cfee0c4d3c79318342565.zip
tcl-269f443b722116c9623cfee0c4d3c79318342565.tar.gz
tcl-269f443b722116c9623cfee0c4d3c79318342565.tar.bz2
[Bug 2891362]: Make time limits work better with the event loop.
Diffstat (limited to 'tests')
-rw-r--r--tests/interp.test14
1 files changed, 13 insertions, 1 deletions
diff --git a/tests/interp.test b/tests/interp.test
index 99a979e..62a45dc 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.54.2.1 2008/06/20 19:23:26 dgp Exp $
+# RCS: @(#) $Id: interp.test,v 1.54.2.2 2009/12/28 10:05:22 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2.1
@@ -3275,6 +3275,18 @@ test interp-34.12 {time limit extension in callbacks} -setup {
} -result {cb1 cb1 0 {} ok} -cleanup {
rename cb1 {}
}
+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 {
+ after 2000 set x timeout
+ vwait x
+ return $x
+ }
+} -cleanup {
+ interp delete $i
+} -returnCodes error -result {limit exceeded}
test interp-35.1 {interp limit syntax} -body {
interp limit