diff options
Diffstat (limited to 'tests/socket.test')
| -rw-r--r-- | tests/socket.test | 24 |
1 files 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 # |