summaryrefslogtreecommitdiffstats
path: root/tests/async.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2011-08-22 10:18:06 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2011-08-22 10:18:06 (GMT)
commitf1f10fb2a5773e4577cbf58b62acff8d77eb4eef (patch)
tree69195bcfa188f4077eae88dda3f09bd1a67cd5f5 /tests/async.test
parent812a702c5b6a08312fc0eac684a86fcb5a651e35 (diff)
parent6b86c2f514ad7c263691443055ad1d0a94a9f4f9 (diff)
downloadtcl-f1f10fb2a5773e4577cbf58b62acff8d77eb4eef.zip
tcl-f1f10fb2a5773e4577cbf58b62acff8d77eb4eef.tar.gz
tcl-f1f10fb2a5773e4577cbf58b62acff8d77eb4eef.tar.bz2
Merge to feature branch
Diffstat (limited to 'tests/async.test')
-rw-r--r--tests/async.test2
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/async.test b/tests/async.test
index db21333..7834ed5 100644
--- a/tests/async.test
+++ b/tests/async.test
@@ -196,7 +196,7 @@ test async-4.3 {async interrupting loop-less bytecode sequence} -constraints {
set aresult {Async event not delivered}
testasync marklater $handle
set i 0
- } [string repeat {;incr i;} 1500000] {
+ } "[string repeat {;incr i;} 1500000]after 10;" {
return $aresult
}]] $hm
} -result {test pattern} -cleanup {