summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authormax <max@tclers.tk>2011-05-27 17:50:38 (GMT)
committermax <max@tclers.tk>2011-05-27 17:50:38 (GMT)
commitba5939ea3bf47fc00db9172391b3d68e24539921 (patch)
tree446bc978affbffd7572543ddc7d26589762ec74f
parent16c570dde50a9f0722aef80ae17b6bd8bc2a4355 (diff)
downloadtcl-ba5939ea3bf47fc00db9172391b3d68e24539921.zip
tcl-ba5939ea3bf47fc00db9172391b3d68e24539921.tar.gz
tcl-ba5939ea3bf47fc00db9172391b3d68e24539921.tar.bz2
fix a timing issue in socket-12.3
-rw-r--r--tests/socket.test3
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/socket.test b/tests/socket.test
index f1acedc..83bad09 100644
--- a/tests/socket.test
+++ b/tests/socket.test
@@ -1610,7 +1610,7 @@ test socket_$af-12.3 {testing inheritance of accepted sockets} -setup {
# If the socket is still open after 5 seconds, the script1 process must
# have inherited the accepted socket.
set failed 0
- after 5000 set failed 1
+ set after [after 5000 [list set failed 1]]
proc getdata { file } {
# Read handler on the client socket.
global x
@@ -1637,6 +1637,7 @@ test socket_$af-12.3 {testing inheritance of accepted sockets} -setup {
vwait x
return $x
} -cleanup {
+ after cancel $after
catch {close $p}
} -result {accepted socket was not inherited}