diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2005-06-17 14:26:12 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2005-06-17 14:26:12 (GMT) |
commit | e1e80d15370c158d3ae2870cfc5d26e1d9791046 (patch) | |
tree | 95df7d34659bebf57faac87ff7db23f96cdc014d /tests | |
parent | 9480f190e5c0b49511894e60db3c34b9a7a81003 (diff) | |
download | tcl-e1e80d15370c158d3ae2870cfc5d26e1d9791046.zip tcl-e1e80d15370c158d3ae2870cfc5d26e1d9791046.tar.gz tcl-e1e80d15370c158d3ae2870cfc5d26e1d9791046.tar.bz2 |
Fix an odd [after]-and-limits problem. [Bug 1221395]
Diffstat (limited to 'tests')
-rw-r--r-- | tests/interp.test | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/tests/interp.test b/tests/interp.test index c5568b6..f801247 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.45 2005/05/10 18:35:20 kennykb Exp $ +# RCS: @(#) $Id: interp.test,v 1.46 2005/06/17 14:26:15 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.1 @@ -3097,6 +3097,23 @@ test interp-34.9 {time limits trigger in blocking after} { interp delete $i list $code $msg [expr {($t1-$t0) < 3 ? "OK" : $t1-$t0}] } {1 {time limit exceeded} OK} +test interp-34.10 {time limits trigger in vwaits: Bug 1221395} -body { + set i [interp create] + # Assume someone hasn't set the clock to early 1970! + $i limit time -seconds 1 -granularity 4 + interp alias $i log {} lappend result + set result {} + catch { + $i eval { + log 1 + after 100 + log 2 + } + } msg + interp delete $i + lappend result $msg +} -result {1 {time limit exceeded}} + test interp-35.1 {interp limit syntax} -body { interp limit } -returnCodes error -result {wrong # args: should be "interp limit path limitType ?options?"} |