summaryrefslogtreecommitdiffstats
path: root/tests/async.test
diff options
context:
space:
mode:
authorferrieux <ferrieux@users.sourceforge.net>2011-08-19 14:23:19 (GMT)
committerferrieux <ferrieux@users.sourceforge.net>2011-08-19 14:23:19 (GMT)
commita6827503fbf6b31c4d417b8842f67144cd792778 (patch)
treef96fe0469c42be72bb3aacebe5d291c9ecb3a77a /tests/async.test
parent72fa03ae4fe97ce840005caa68f3467a1489260a (diff)
downloadtcl-a6827503fbf6b31c4d417b8842f67144cd792778.zip
tcl-a6827503fbf6b31c4d417b8842f67144cd792778.tar.gz
tcl-a6827503fbf6b31c4d417b8842f67144cd792778.tar.bz2
[Bug 1774689] async-4.3 sometimes fails.
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 {