diff options
| author | ferrieux <ferrieux@users.sourceforge.net> | 2011-08-19 14:23:19 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@users.sourceforge.net> | 2011-08-19 14:23:19 (GMT) |
| commit | a6827503fbf6b31c4d417b8842f67144cd792778 (patch) | |
| tree | f96fe0469c42be72bb3aacebe5d291c9ecb3a77a /tests/async.test | |
| parent | 72fa03ae4fe97ce840005caa68f3467a1489260a (diff) | |
| download | tcl-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.test | 2 |
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 { |