diff options
| author | max <max@tclers.tk> | 2011-06-16 15:21:10 (GMT) |
|---|---|---|
| committer | max <max@tclers.tk> | 2011-06-16 15:21:10 (GMT) |
| commit | a2c0c5611d68ee996777ad68e480daae28488ad9 (patch) | |
| tree | 4b2e1bc43ca9510d8c2daa9387ed66843996aaa4 /tests/socket.test | |
| parent | f5123e0b70f74ddc3f0521870aa1c318aff0aef6 (diff) | |
| download | tcl-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.test | 3 |
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 |