diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2024-05-24 16:09:33 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2024-05-24 16:09:33 (GMT) |
| commit | 49171b66ba5ce2a58f76baee7476a45a828c8487 (patch) | |
| tree | af6ab42d3865e893110d4cfd849896efcd450ae7 /tests | |
| parent | 6d5892aede1203a9047cc2259fbecaefe585bdee (diff) | |
| parent | 9b558e326b6c60b75c461c59f357a5fe2926132a (diff) | |
| download | tcl-49171b66ba5ce2a58f76baee7476a45a828c8487.zip tcl-49171b66ba5ce2a58f76baee7476a45a828c8487.tar.gz tcl-49171b66ba5ce2a58f76baee7476a45a828c8487.tar.bz2 | |
Merge trunk
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/socket.test | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/tests/socket.test b/tests/socket.test index b628404..2f71d7b 100644 --- a/tests/socket.test +++ b/tests/socket.test @@ -1110,6 +1110,25 @@ test socket_$af-7.5 {testing socket specific options} -setup { close $s close $s1 } -result [list $localhost 1 3] +test socket_$af-7.6 {testing socket specific options - bug e589d9bdab} -setup { + set timer [after 10000 "set x timed_out"] + set l "" +} -constraints [list socket supported_$af unixOrWin] -body { + set s [socket -server accept 0] + proc accept {s a p} { + global x + set x [fconfigure $s -sockname] + close $s + } + set listen [lindex [fconfigure $s -sockname] 2] + set s1 [socket $localhost $listen] + vwait x + lsort [dict keys [fconfigure $s1]] +} -cleanup { + after cancel $timer + close $s + close $s1 +} -result {-blocking -buffering -buffersize -encoding -eofchar -keepalive -nodelay -peername -profile -sockname -translation} test socket_$af-8.1 {testing -async flag on sockets} -constraints [list socket supported_$af] -body { # NOTE: This test may fail on some Solaris 2.4 systems. If it does, check |