diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2024-05-24 15:19:13 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2024-05-24 15:19:13 (GMT) |
| commit | e1036ec626a90838228776217c00ccd308939a9d (patch) | |
| tree | a092cfef628156eee98299cdad90551e5380485b | |
| parent | 44c29862ccca2d251d85047622dca7efe4268721 (diff) | |
| download | tcl-e1036ec626a90838228776217c00ccd308939a9d.zip tcl-e1036ec626a90838228776217c00ccd308939a9d.tar.gz tcl-e1036ec626a90838228776217c00ccd308939a9d.tar.bz2 | |
Add test for [e589d9bdab]
| -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 |