diff options
| author | sebres <sebres@users.sourceforge.net> | 2017-07-03 13:28:09 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2017-07-03 13:28:09 (GMT) |
| commit | fc99959a11991ca61d8713436b2a032f67559ae5 (patch) | |
| tree | 89381a4ac186085464d8bf6cb541065773b212fd | |
| parent | a82f50e67930df0328c5d0d6ddecf54c2548eced (diff) | |
| download | tcl-fc99959a11991ca61d8713436b2a032f67559ae5.zip tcl-fc99959a11991ca61d8713436b2a032f67559ae5.tar.gz tcl-fc99959a11991ca61d8713436b2a032f67559ae5.tar.bz2 | |
chanio.test: optimize several tests cases running too long (shorten unwanted large sleeps)
| -rw-r--r-- | tests/chanio.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/chanio.test b/tests/chanio.test index 2f2540e..9346a01 100644 --- a/tests/chanio.test +++ b/tests/chanio.test @@ -1771,7 +1771,7 @@ test chan-io-14.9 {reuse of stdio special channels} {stdio openpipe fileevent} { # Added delay to give Windows time to stop the spawned process and clean # up its grip on the file test1. Added delete as proper test cleanup. # The failing tests were 18.1 and 18.2 as first re-users of file "test1". - after 10000 + after 1000 file delete $path(script) file delete $path(test1) set c @@ -6892,17 +6892,17 @@ test chan-io-53.7 {CopyData: Flooding chan copy from pipe} {stdio openpipe fcopy set fcopyTestCount 0 set f1 [open $path(pipe) w] chan puts $f1 { - # Write 10 bytes / 10 msec + # Write 10 bytes / 1 msec proc Write {count} { chan puts -nonewline "1234567890" if {[incr count -1]} { - after 10 [list Write $count] + after 1 [list Write $count] } else { set ::ready 1 } } chan configure stdout -buffering none - Write 345 ;# 3450 bytes ~3.45 sec + Write 345 ;# 3450 bytes ~0.345 sec vwait ready exit 0 } @@ -7013,11 +7013,11 @@ test chan-io-53.9 {CopyData: -size and event interaction, Bug 780533} -setup { chan puts $pipe { chan configure stdout -translation binary -buffering line chan puts stderr Waiting... - after 1000 + after 100 foreach x {a b c} { chan puts stderr Looping... chan puts $x - after 500 + after 50 } proc bye args { if {[chan gets stdin line]<0} { |