diff options
author | hershey <hershey> | 1998-07-24 11:12:00 (GMT) |
---|---|---|
committer | hershey <hershey> | 1998-07-24 11:12:00 (GMT) |
commit | 88d6f2dc3a97fd42cfca3ea9bb1cb3a721e10c76 (patch) | |
tree | aadcf94df37bcbc6c4bdd26b035637bc6c592fc6 /tests/socket.test | |
parent | 693bcba7c5261324ef8560a98f6d7b08f033bed7 (diff) | |
download | tcl-88d6f2dc3a97fd42cfca3ea9bb1cb3a721e10c76.zip tcl-88d6f2dc3a97fd42cfca3ea9bb1cb3a721e10c76.tar.gz tcl-88d6f2dc3a97fd42cfca3ea9bb1cb3a721e10c76.tar.bz2 |
fixed bug in socket-9.3 {testing EOF stickyness}
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 # |