diff options
| -rw-r--r-- | tests/socket.test | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/socket.test b/tests/socket.test index 82e908a..1d4e0fc 100644 --- a/tests/socket.test +++ b/tests/socket.test @@ -2581,6 +2581,14 @@ foreach {servip sc} $x { } } +test socket-bug-31fc36fe47 "Crash listening in multiple threads" \ + -constraints thread -body { + close [socket -server xxx 0] + set tid [thread::create] + thread::send $tid "socket -server accept 0" + thread::release $tid + } -result {} + ::tcltest::cleanupTests flush stdout return |