summaryrefslogtreecommitdiffstats
path: root/tests/socket.test
diff options
context:
space:
mode:
authorrmax <rmax>2010-11-04 21:38:27 (GMT)
committerrmax <rmax>2010-11-04 21:38:27 (GMT)
commitebb0221fdd2b89c2af2d5ee05d235debb5f0bb72 (patch)
treed316358e18618ba9da2703ac7b0f833c52597ae8 /tests/socket.test
parent738d3287614a503de943697f3ab692e5c6023f94 (diff)
downloadtcl-ebb0221fdd2b89c2af2d5ee05d235debb5f0bb72.zip
tcl-ebb0221fdd2b89c2af2d5ee05d235debb5f0bb72.tar.gz
tcl-ebb0221fdd2b89c2af2d5ee05d235debb5f0bb72.tar.bz2
some more speedups to socket.test
Diffstat (limited to 'tests/socket.test')
-rw-r--r--tests/socket.test10
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/socket.test b/tests/socket.test
index 7827ce6..1cc4441 100644
--- a/tests/socket.test
+++ b/tests/socket.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution of
# this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: socket.test,v 1.48 2010/11/04 21:08:19 rmax Exp $
+# RCS: @(#) $Id: socket.test,v 1.49 2010/11/04 21:38:27 rmax Exp $
# Running socket tests with a remote server:
# ------------------------------------------
@@ -151,7 +151,7 @@ if {$doTestsWithRemoteServer} {
[interpreter] $remoteFile -serverIsSilent \
-port $remoteServerPort -address $remoteServerIP]" w+]
} msg]} then {
- after 1000
+ gets $remoteProcChan
if {[catch {
set commandSocket [socket $remoteServerIP $remoteServerPort]
} msg] == 0} then {
@@ -1309,7 +1309,7 @@ test socket_$af-11.11 {testing spurious events} -setup {
set server [socket -server accept 0]
proc accept {s a p} {
fconfigure $s -translation "auto lf"
- after 100 writesome $s
+ after idle writesome $s
}
proc writesome {s} {
for {set i 0} {$i < 100} {incr i} {
@@ -1352,7 +1352,7 @@ test socket_$af-11.12 {testing EOF stickyness} -constraints [list socket support
set port [sendCommand {
set server [socket -server accept 0]
proc accept {s a p} {
- after 100 close $s
+ after idle close $s
}
getPort $server
}]
@@ -1681,9 +1681,9 @@ if {$remoteProcChan ne ""} {
}
catch {close $commandSocket}
catch {close $remoteProcChan}
+}
::tcltest::cleanupTests
flush stdout
-}
return
# Local Variables: