diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-11-29 21:34:26 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-11-29 21:34:26 (GMT) |
| commit | e2bde4d007334476f45e57a87d273a4eca7e9aec (patch) | |
| tree | 144e65aff5b1967d46a4bc9f738d8ea81b8cd931 /tests | |
| parent | 8f18fa7c78d11dad67f038dcd834c40ecc572780 (diff) | |
| parent | b3f8bdaff2101f6b235b59ab3157f45d7cc314c3 (diff) | |
| download | tcl-e2bde4d007334476f45e57a87d273a4eca7e9aec.zip tcl-e2bde4d007334476f45e57a87d273a4eca7e9aec.tar.gz tcl-e2bde4d007334476f45e57a87d273a4eca7e9aec.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/event.test | 2 | ||||
| -rw-r--r-- | tests/timer.test | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/tests/event.test b/tests/event.test index ef0947f..5c111f8 100644 --- a/tests/event.test +++ b/tests/event.test @@ -527,7 +527,7 @@ test event-11.4 {Tcl_VwaitCmd procedure} -setup { } -body { after 100 {set x x-done} after 200 {set y y-done} - after 300 {set z z-done} + after 400 {set z z-done} after idle {set q q-done} set x before set y before diff --git a/tests/timer.test b/tests/timer.test index ab6efc9..740d05e 100644 --- a/tests/timer.test +++ b/tests/timer.test @@ -205,11 +205,11 @@ test timer-6.4 {Tcl_AfterCmd procedure, ms argument} { } {before after} test timer-6.5 {Tcl_AfterCmd procedure, ms argument} { set x before - after 300 set x after + after 400 set x after after 200 update set y $x - after 200 + after 400 update list $y $x } {before after} |