summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorhershey <hershey>1998-07-24 11:12:00 (GMT)
committerhershey <hershey>1998-07-24 11:12:00 (GMT)
commit88d6f2dc3a97fd42cfca3ea9bb1cb3a721e10c76 (patch)
treeaadcf94df37bcbc6c4bdd26b035637bc6c592fc6 /tests
parent693bcba7c5261324ef8560a98f6d7b08f033bed7 (diff)
downloadtcl-88d6f2dc3a97fd42cfca3ea9bb1cb3a721e10c76.zip
tcl-88d6f2dc3a97fd42cfca3ea9bb1cb3a721e10c76.tar.gz
tcl-88d6f2dc3a97fd42cfca3ea9bb1cb3a721e10c76.tar.bz2
fixed bug in socket-9.3 {testing EOF stickyness}
Diffstat (limited to 'tests')
-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
#