summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorrmax <rmax>2010-06-25 15:20:06 (GMT)
committerrmax <rmax>2010-06-25 15:20:06 (GMT)
commit8df802523ec3cf5a206d3c9cec6d6e1fa22784bc (patch)
treec25799a08a3273a558866c1263e5397fa19f2947 /tests
parent9b33611c932eaec129a800b681844ecdbabc20ee (diff)
downloadtcl-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')
-rw-r--r--tests/socket.test5
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}