summaryrefslogtreecommitdiffstats
path: root/tests/socket.test
diff options
context:
space:
mode:
authormax <max@tclers.tk>2011-06-16 15:21:10 (GMT)
committermax <max@tclers.tk>2011-06-16 15:21:10 (GMT)
commita2c0c5611d68ee996777ad68e480daae28488ad9 (patch)
tree4b2e1bc43ca9510d8c2daa9387ed66843996aaa4 /tests/socket.test
parentf5123e0b70f74ddc3f0521870aa1c318aff0aef6 (diff)
downloadtcl-a2c0c5611d68ee996777ad68e480daae28488ad9.zip
tcl-a2c0c5611d68ee996777ad68e480daae28488ad9.tar.gz
tcl-a2c0c5611d68ee996777ad68e480daae28488ad9.tar.bz2
* doc/socket.n: Document the fact that the event loop is now needed for [socket -async]
* unix/tclUnixSock.c: Set up the file handler for async sockets to fire on exceptions in addition to writable state. * tests/socket.test: Improve error reporting when socket-14.2 times out.
Diffstat (limited to 'tests/socket.test')
-rw-r--r--tests/socket.test3
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/socket.test b/tests/socket.test
index 39dc8de..85d4d6f 100644
--- a/tests/socket.test
+++ b/tests/socket.test
@@ -1772,6 +1772,9 @@ test socket-14.2 {[socket -async] fileevent connection refused} \
fileevent $client writable {set x [fconfigure $client -error]}
set after [after 1000 {set x timeout}]
vwait x
+ if {$x eq "timeout"} {
+ append x ": [fconfigure $client -error]"
+ }
set x
} -cleanup {
after cancel $after