diff options
| author | oehhar <harald.oehlmann@elmicron.de> | 2014-04-02 10:02:18 (GMT) |
|---|---|---|
| committer | oehhar <harald.oehlmann@elmicron.de> | 2014-04-02 10:02:18 (GMT) |
| commit | 30a15d58d30ef07b7bcf90e876e495fdfb55a830 (patch) | |
| tree | 8c46a04e41cbbd5954b1b0826cbf13a35885e9f6 /tests | |
| parent | c85fe58264794439fe6057b5d98428a033774bcc (diff) | |
| parent | b5277efde02115a99b120d3a90fb1471c6aee409 (diff) | |
| download | tcl-30a15d58d30ef07b7bcf90e876e495fdfb55a830.zip tcl-30a15d58d30ef07b7bcf90e876e495fdfb55a830.tar.gz tcl-30a15d58d30ef07b7bcf90e876e495fdfb55a830.tar.bz2 | |
Fix bug [336441ed59]: Win socket stall on quick termination of async socket connect
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/socket.test | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/socket.test b/tests/socket.test index 0ae5abd..218cce4 100644 --- a/tests/socket.test +++ b/tests/socket.test @@ -910,6 +910,22 @@ test socket-8.1 {testing -async flag on sockets} {socket} { set z } bye +test socket-8.2 {testing writable event when quick failure} {socket win} { + # Test for bug 336441ed59 where a quick background fail was ignored + + # Test only for windows as socket -async 255.255.255.255 fails directly + # on unix + + # The following connect should fail very quickly + set a1 [after 2000 {set x timeout}] + set s [socket -async 255.255.255.255 43434] + fileevent $s writable {set x writable} + vwait x + catch {close $s} + after cancel $a1 + set x +} writable + test socket-9.1 {testing spurious events} {socket} { set len 0 set spurious 0 |