1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
From ef7310242ab5bd0daead9497d3f143f11a6cd2fa Mon Sep 17 00:00:00 2001
From: Steve Bennett <steveb@workware.net.au>
Date: Sun, 27 Aug 2017 10:14:14 +1000
Subject: 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>
---
tests/timer.test | 11 +----------
1 file changed, 1 insertion(+), 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"}}
|
