From 1c5176a55d3ebaf47f1324716990387e82831813 Mon Sep 17 00:00:00 2001 From: apnadkarni Date: Fri, 24 May 2024 15:31:28 +0000 Subject: Backport test for bug [e589d9bdab] --- tests/socket.test | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/tests/socket.test b/tests/socket.test index 7251bfa..31d41ba 100644 --- a/tests/socket.test +++ b/tests/socket.test @@ -1079,6 +1079,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 -peername -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 -- cgit v0.12