diff options
| -rw-r--r-- | tests/event.test | 4 | ||||
| -rw-r--r-- | tests/exec.test | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/tests/event.test b/tests/event.test index 2ca7ce8..e55d07b 100644 --- a/tests/event.test +++ b/tests/event.test @@ -115,7 +115,7 @@ test event-11.5 {Tcl_VwaitCmd procedure: round robin scheduling, 2 sources} {jim close $s } set s1 [socket stream.server 5001] - after 1000 + after 200 set s2 [socket stream 127.0.0.1:5001] close $s1 set x 0 @@ -174,7 +174,7 @@ test event-12.4 {Tcl_UpdateCmd procedure} { } after 10; update; # On Mac make sure update won't take long after 200 {set x x-done} - after 600 {set y y-done} + after 400 {set y y-done} after idle {set z z-done} set x before set y before diff --git a/tests/exec.test b/tests/exec.test index 07770cd..e8c1462 100644 --- a/tests/exec.test +++ b/tests/exec.test @@ -89,7 +89,7 @@ close $f set f [open sleep w] puts $f { - after [expr $argv*1000] + after [expr $argv*100] exit } close $f |