diff options
author | dgp <dgp@users.sourceforge.net> | 2012-06-21 21:36:48 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2012-06-21 21:36:48 (GMT) |
commit | 357b7ce73369bce4e0b88aaa87e0b8a2c0eaa853 (patch) | |
tree | 3987f89806f1e9cd9163eaf0f87a53b55d9d7a66 /tests/io.test | |
parent | feab50ce27318c0af008498d86f1e5fa490a4e80 (diff) | |
parent | 607975b5dcc8af44e0fe65ab9ca787ed659e79bd (diff) | |
download | tcl-357b7ce73369bce4e0b88aaa87e0b8a2c0eaa853.zip tcl-357b7ce73369bce4e0b88aaa87e0b8a2c0eaa853.tar.gz tcl-357b7ce73369bce4e0b88aaa87e0b8a2c0eaa853.tar.bz2 |
merge trunk
Diffstat (limited to 'tests/io.test')
-rw-r--r-- | tests/io.test | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/tests/io.test b/tests/io.test index e6cea16..f3c39f4 100644 --- a/tests/io.test +++ b/tests/io.test @@ -2086,6 +2086,8 @@ set path(pipe) [makeFile {} pipe] set path(output) [makeFile {} output] test io-27.6 {FlushChannel, async flushing, async close} \ {stdio asyncPipeClose openpipe} { + # This test may fail on old Unix systems (seen on IRIX64 6.5) with + # obsolete gettimeofday() calls. See Tcl Bugs 3530533, 1942197. file delete $path(pipe) file delete $path(output) set f [open $path(pipe) w] @@ -2645,6 +2647,8 @@ test io-29.30 {Tcl_WriteChars, crlf mode} { file size $path(test1) } 25 test io-29.31 {Tcl_WriteChars, background flush} {stdio openpipe} { + # This test may fail on old Unix systems (seen on IRIX64 6.5) with + # obsolete gettimeofday() calls. See Tcl Bugs 3530533, 1942197. file delete $path(pipe) file delete $path(output) set f [open $path(pipe) w] @@ -2686,6 +2690,8 @@ test io-29.31 {Tcl_WriteChars, background flush} {stdio openpipe} { } ok test io-29.32 {Tcl_WriteChars, background flush to slow reader} \ {stdio asyncPipeClose openpipe} { + # This test may fail on old Unix systems (seen on IRIX64 6.5) with + # obsolete gettimeofday() calls. See Tcl Bugs 3530533, 1942197. file delete $path(pipe) file delete $path(output) set f [open $path(pipe) w] @@ -2748,13 +2754,13 @@ test io-29.33b {TIP#398, no implicit flush of nonblocking on exit} {exec} { set f [open $path(script2) w] puts $f {after 2000} close $f - set t1 [clock seconds] + set t1 [clock milliseconds] set ff [open "|[list [interpreter] $path(script2)]" w] catch {unset ::env(TCL_FLUSH_NONBLOCKING_ON_EXIT)} exec [interpreter] $path(script) >@ $ff - set t2 [clock seconds] + set t2 [clock milliseconds] close $ff - expr {($t2-$t1)/2} + expr {($t2-$t1)/2000 ? $t2-$t1 : 0} } 0 test io-29.34 {Tcl_Close, async flush on close, using sockets} {socket tempNotMac fileevent} { variable c 0 |