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 | 780b0cdac176c6999acab399bc2c774d749be408 (patch) | |
| tree | 4b2e1bc43ca9510d8c2daa9387ed66843996aaa4 /tests | |
| parent | 0c955659dda077af9e047ae31ed3c4d6b2a76033 (diff) | |
| download | tcl-780b0cdac176c6999acab399bc2c774d749be408.zip tcl-780b0cdac176c6999acab399bc2c774d749be408.tar.gz tcl-780b0cdac176c6999acab399bc2c774d749be408.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')
| -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 |