diff options
| author | andreas_kupries <andreas_kupries@noemail.net> | 2006-03-16 00:35:52 (GMT) |
|---|---|---|
| committer | andreas_kupries <andreas_kupries@noemail.net> | 2006-03-16 00:35:52 (GMT) |
| commit | 006b73659655211d27c96a7a0e5c50d5a7ab6d39 (patch) | |
| tree | 13f6d641812e9004d516f8059ad9c57f289bf2ee /tests/socket.test | |
| parent | f17fc44a8c4782d5c62408731da0043a6142c3ee (diff) | |
| download | tcl-006b73659655211d27c96a7a0e5c50d5a7ab6d39.zip tcl-006b73659655211d27c96a7a0e5c50d5a7ab6d39.tar.gz tcl-006b73659655211d27c96a7a0e5c50d5a7ab6d39.tar.bz2 | |
* tests/socket.test: Extended the timeout in socket-11.11 from 10
to 40 seconds to allow for really slow machines. Also extended
actual/expected results with value of variable 'done' to make it
clearer when a test fails due to a timeout. [Bug 792159].
* generic/tclPipe.c (TclCreatePipeline): Modified the processing
of pipebars to fail if the last bar is followed only by
redirections. [Bug 768659].
FossilOrigin-Name: 47d7a23bdf3cdc08e06624f6b89fc2bfb970a418
Diffstat (limited to 'tests/socket.test')
| -rw-r--r-- | tests/socket.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/socket.test b/tests/socket.test index 0018a0a..9a53b35 100644 --- a/tests/socket.test +++ b/tests/socket.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: socket.test,v 1.26.2.5 2004/10/28 04:53:12 dgp Exp $ +# RCS: @(#) $Id: socket.test,v 1.26.2.6 2006/03/16 00:35:59 andreas_kupries Exp $ # Running socket tests with a remote server: # ------------------------------------------ @@ -1303,12 +1303,12 @@ test socket-11.11 {testing spurious events} {socket doTestsWithRemoteServer} { } set c [socket $remoteServerIP 2836] fileevent $c readable "readlittle $c" - set timer [after 10000 "set done timed_out"] + set timer [after 40000 "set done timed_out"] vwait done after cancel $timer sendCommand {close $socket10_13_test_server} - list $spurious $len -} {0 2690} + list $spurious $len $done +} {0 2690 1} test socket-11.12 {testing EOF stickyness} {socket doTestsWithRemoteServer} { set counter 0 |