diff options
| author | rmax <rmax> | 2010-06-25 15:20:06 (GMT) |
|---|---|---|
| committer | rmax <rmax> | 2010-06-25 15:20:06 (GMT) |
| commit | 8df802523ec3cf5a206d3c9cec6d6e1fa22784bc (patch) | |
| tree | c25799a08a3273a558866c1263e5397fa19f2947 /tests/socket.test | |
| parent | 9b33611c932eaec129a800b681844ecdbabc20ee (diff) | |
| download | tcl-8df802523ec3cf5a206d3c9cec6d6e1fa22784bc.zip tcl-8df802523ec3cf5a206d3c9cec6d6e1fa22784bc.tar.gz tcl-8df802523ec3cf5a206d3c9cec6d6e1fa22784bc.tar.bz2 | |
prevent a race condition when shutting down the remote test server
Diffstat (limited to 'tests/socket.test')
| -rw-r--r-- | tests/socket.test | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tests/socket.test b/tests/socket.test index abfe169..99ce29f 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.42 2008/09/02 15:49:25 dkf Exp $ +# RCS: @(#) $Id: socket.test,v 1.43 2010/06/25 15:20:06 rmax Exp $ # Running socket tests with a remote server: # ------------------------------------------ @@ -1651,8 +1651,7 @@ removeFile script2 # cleanup if {[string match sock* $commandSocket] == 1} { - puts $commandSocket exit - flush $commandSocket + catch {sendCommand exit} } catch {close $commandSocket} catch {close $remoteProcChan} |