diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2024-05-24 15:31:28 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2024-05-24 15:31:28 (GMT) |
| commit | 26d88985bd21932bc679f523a245cebfcc8516aa (patch) | |
| tree | 7404e8bb6cbd92adbe2b55c1df653f5f16d414f7 | |
| parent | dbd66934211a010f92ae020abcc843e724117b6e (diff) | |
| download | tcl-26d88985bd21932bc679f523a245cebfcc8516aa.zip tcl-26d88985bd21932bc679f523a245cebfcc8516aa.tar.gz tcl-26d88985bd21932bc679f523a245cebfcc8516aa.tar.bz2 | |
Backport test for bug [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 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 |