diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-10-10 08:19:33 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-12-02 20:56:50 +1000 |
| commit | c2e5f7502026349106314843cad7f24020aad7fb (patch) | |
| tree | 1a5bdedf8f7b4d75d2ffe55b32524fe3f8f9f67e | |
| parent | 6757f5c6f30f6630f728fcbd99d7ce4a50135706 (diff) | |
| download | jimtcl-c2e5f7502026349106314843cad7f24020aad7fb.zip jimtcl-c2e5f7502026349106314843cad7f24020aad7fb.tar.gz jimtcl-c2e5f7502026349106314843cad7f24020aad7fb.tar.bz2 | |
Reduce some delays in tests
Signed-off-by: Steve Bennett <steveb@workware.net.au>
| -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 |