diff options
| author | andreas_kupries <akupries@shaw.ca> | 2006-03-16 00:38:50 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2006-03-16 00:38:50 (GMT) |
| commit | 05b75a0ef0b2ec55a7f535040223d308ca716546 (patch) | |
| tree | 76bac598f558f0fc85c58d270fe6a7e07b26fe58 /tests/socket.test | |
| parent | 836e0f347fa1c6847e08d149f0637c308259998f (diff) | |
| download | tcl-05b75a0ef0b2ec55a7f535040223d308ca716546.zip tcl-05b75a0ef0b2ec55a7f535040223d308ca716546.tar.gz tcl-05b75a0ef0b2ec55a7f535040223d308ca716546.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].
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 33baa25..0dea1d0 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.38 2005/11/01 15:58:05 dkf Exp $ +# RCS: @(#) $Id: socket.test,v 1.39 2006/03/16 00:38:54 andreas_kupries Exp $ # Running socket tests with a remote server: # ------------------------------------------ @@ -1304,12 +1304,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 |