diff options
| author | Steve Bennett <steveb@workware.net.au> | 2017-08-27 10:14:14 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2017-08-27 10:14:14 +1000 |
| commit | 9b746a28ddeaab0610c423b4426bb6f18b72c515 (patch) | |
| tree | 617ba2d6bafded890858a489946ae307d68ccfea /tests/timer.test | |
| parent | 042ea5cd26edde3fe6b44b8b4b004858451267ff (diff) | |
| download | jimtcl-9b746a28ddeaab0610c423b4426bb6f18b72c515.zip jimtcl-9b746a28ddeaab0610c423b4426bb6f18b72c515.tar.gz jimtcl-9b746a28ddeaab0610c423b4426bb6f18b72c515.tar.bz2 | |
tests/timer.test: Remove timer-6.5
This test is essentially the same as timer-6.4 except with
tighter timing requirements. Remove it to prevent spurious failures.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/timer.test')
| -rw-r--r-- | tests/timer.test | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/tests/timer.test b/tests/timer.test index 26ffa0a..a493004 100644 --- a/tests/timer.test +++ b/tests/timer.test @@ -189,16 +189,7 @@ test timer-6.4 {Tcl_AfterCmd procedure, ms argument} { update list $y $x } {before after} -test timer-6.5 {Tcl_AfterCmd procedure, ms argument} { - set x before - after 60 {set x after} - after 40 - update - set y $x - after 40 - update - list $y $x -} {before after} + test timer-6.6 {Tcl_AfterCmd procedure, cancel option} { list [catch {after cancel} msg] $msg } {1 {wrong # args: should be "after cancel id|command"}} |