diff options
| author | oehhar <harald.oehlmann@elmicron.de> | 2014-03-06 18:21:40 (GMT) |
|---|---|---|
| committer | oehhar <harald.oehlmann@elmicron.de> | 2014-03-06 18:21:40 (GMT) |
| commit | e53f96cbd13df27c822ebe8cc9a5e215f70b800f (patch) | |
| tree | 7d7a7df7d625c9c51e0d0ca895666a767480faec /tests | |
| parent | 3d0e0863c3cb661e0e0b03a84f6227bc3b5a0d20 (diff) | |
| download | tcl-e53f96cbd13df27c822ebe8cc9a5e215f70b800f.zip tcl-e53f96cbd13df27c822ebe8cc9a5e215f70b800f.tar.gz tcl-e53f96cbd13df27c822ebe8cc9a5e215f70b800f.tar.bz2 | |
More debug to chase different fd in struct than in callback
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/socket.test | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/socket.test b/tests/socket.test index 51219e6..74c44ce 100644 --- a/tests/socket.test +++ b/tests/socket.test @@ -1855,12 +1855,15 @@ test socket-14.6 {[socket -async] with no event loop and [fconfigure -error] bef -constraints [list socket supported_inet supported_inet6] \ -setup { proc accept {s a p} { + global s puts $s bye close $s + set s ok } set server [socket -server accept -myaddr 127.0.0.1 0] set port [lindex [fconfigure $server -sockname] 2] set x "" + set s "" } \ -body { set client [socket -async localhost $port] @@ -1869,6 +1872,9 @@ test socket-14.6 {[socket -async] with no event loop and [fconfigure -error] bef lappend x [fconfigure $client -error] update } + # This test blocked, as gets waits for the accept which did + # not run due to missing vwait + vwait sok lappend x [gets $client] } \ -cleanup { |