From 88d6f2dc3a97fd42cfca3ea9bb1cb3a721e10c76 Mon Sep 17 00:00:00 2001 From: hershey Date: Fri, 24 Jul 1998 11:12:00 +0000 Subject: fixed bug in socket-9.3 {testing EOF stickyness} --- tests/socket.test | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/tests/socket.test b/tests/socket.test index e2697c2..15b3ae4 100644 --- a/tests/socket.test +++ b/tests/socket.test @@ -981,18 +981,6 @@ test socket-9.3 {testing EOF stickyness} { } } } -test socket-10.1 {testing socket accept callback error handling} { - set goterror 0 - proc bgerror args {global goterror; set goterror 1} - set s [socket -server accept 2898] - proc accept {s a p} {close $s; error} - set c [socket localhost 2898] - vwait goterror - close $s - close $c - set goterror -} 1 - proc timerproc {} { global done count c set done true @@ -1019,6 +1007,18 @@ test socket-10.1 {testing socket accept callback error handling} { set count } {eof is sticky} +test socket-10.1 {testing socket accept callback error handling} { + set goterror 0 + proc bgerror args {global goterror; set goterror 1} + set s [socket -server accept 2898] + proc accept {s a p} {close $s; error} + set c [socket localhost 2898] + vwait goterror + close $s + close $c + set goterror +} 1 + removeFile script # -- cgit v0.12