Add test for bug-f32864afe3

tcltk · Dec 15, 2024 · de4730f · de4730f
1 parent 2eb7ce5
commit de4730f
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/thread.test b/tests/thread.test
@@ -1263,6 +1263,11 @@ test thread-22.1  {thread::send -command} {
     set result
 } hello
 
+test thread-bug-f32864afe3 {Hang in thread::eval -lock} -body {
+    set mu [thread::mutex create]
+    thread::eval -lock $mu {}
+    thread::mutex destroy $mu ; # <- Bug f32864af hang
+} -result {} -constraints bug-f32864afe3
 
 removeFile dummyForTransfer
 ::tcltest::cleanupTests