diff options
Diffstat (limited to 'patches/0004-tests-timer.test-Remove-timer-6.5.patch')
| -rw-r--r-- | patches/0004-tests-timer.test-Remove-timer-6.5.patch | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/patches/0004-tests-timer.test-Remove-timer-6.5.patch b/patches/0004-tests-timer.test-Remove-timer-6.5.patch new file mode 100644 index 0000000..ddc4892 --- /dev/null +++ b/patches/0004-tests-timer.test-Remove-timer-6.5.patch @@ -0,0 +1,35 @@ +From 4d67efc0cf0b366d31bdffbf8d4460dd4d5022e8 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"}} |