summaryrefslogtreecommitdiffstats
path: root/tests/socket.test
diff options
context:
space:
mode:
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
#