Add test case for [c2dfd8b7ea]

tcltk · Jun 6, 2024 · 5cac4c9 · 5cac4c9
1 parent 0fa4301
commit 5cac4c9
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/tests/tsv.test b/tests/tsv.test
@@ -104,4 +104,15 @@ foreach backend $backends {
     file delete -force $db
 }
 
+test tsv-bug-c2dfd8b7ea {tsv::lset crash} -constraints crash -setup {
+    set tid [thread::create]
+} -cleanup {
+    thread::join $tid
+} -body {
+    thread::send $tid {
+        tsv::linsert mytsv mylist 0 A {X Y}
+        tsv::lset mytsv mylist end 1 P
+    }
+}
+
 ::tcltest::cleanupTests