summaryrefslogtreecommitdiffstats
path: root/tests/socket.test
diff options
context:
space:
mode:
authorhershey <hershey@noemail.net>1998-07-24 11:12:00 (GMT)
committerhershey <hershey@noemail.net>1998-07-24 11:12:00 (GMT)
commit6be90e7eeadbcb23da0f82d3d58f4c3eceb7006a (patch)
treeaadcf94df37bcbc6c4bdd26b035637bc6c592fc6 /tests/socket.test
parent7b4491220e262191c8e48a24f71d5d2c0bd8dd3c (diff)
downloadtcl-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.test24
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
#