diff options
| author | rmax <rmax> | 2010-11-04 21:38:27 (GMT) |
|---|---|---|
| committer | rmax <rmax> | 2010-11-04 21:38:27 (GMT) |
| commit | ebb0221fdd2b89c2af2d5ee05d235debb5f0bb72 (patch) | |
| tree | d316358e18618ba9da2703ac7b0f833c52597ae8 /tests/remote.tcl | |
| parent | 738d3287614a503de943697f3ab692e5c6023f94 (diff) | |
| download | tcl-ebb0221fdd2b89c2af2d5ee05d235debb5f0bb72.zip tcl-ebb0221fdd2b89c2af2d5ee05d235debb5f0bb72.tar.gz tcl-ebb0221fdd2b89c2af2d5ee05d235debb5f0bb72.tar.bz2 | |
some more speedups to socket.test
Diffstat (limited to 'tests/remote.tcl')
| -rw-r--r-- | tests/remote.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/remote.tcl b/tests/remote.tcl index fd50b51..06000aa 100644 --- a/tests/remote.tcl +++ b/tests/remote.tcl @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: remote.tcl,v 1.4 2010/09/28 15:13:55 rmax Exp $ +# RCS: @(#) $Id: remote.tcl,v 1.5 2010/11/04 21:38:27 rmax Exp $ # Initialize message delimitor @@ -156,5 +156,6 @@ if {[catch {set serverSocket \ [socket -myaddr $serverAddress -server __accept__ $serverPort]} msg]} { puts "Server on $serverAddress:$serverPort cannot start: $msg" } else { + puts ready vwait __server_wait_variable__ } |