diff options
author | hershey <hershey@noemail.net> | 1998-07-24 11:12:00 (GMT) |
---|---|---|
committer | hershey <hershey@noemail.net> | 1998-07-24 11:12:00 (GMT) |
commit | 6be90e7eeadbcb23da0f82d3d58f4c3eceb7006a (patch) | |
tree | aadcf94df37bcbc6c4bdd26b035637bc6c592fc6 /tests/socket.test | |
parent | 7b4491220e262191c8e48a24f71d5d2c0bd8dd3c (diff) | |
download | tcl-6be90e7eeadbcb23da0f82d3d58f4c3eceb7006a.zip tcl-6be90e7eeadbcb23da0f82d3d58f4c3eceb7006a.tar.gz tcl-6be90e7eeadbcb23da0f82d3d58f4c3eceb7006a.tar.bz2 |
fixed bug in socket-9.3 {testing EOF stickyness}
FossilOrigin-Name: 69e0f0ff56b8bdfe0ab65c6f2779cdaf194f3f90
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 # |