Add testcase

tcltk · Aug 16, 2024 · 2016e48 · 2016e48
1 parent 8c3ebdc
commit 2016e48
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/tsv.test b/tests/tsv.test
@@ -104,4 +104,9 @@ foreach backend $backends {
     file delete -force $db
 }
 
+test tsv-bug-c2dfd8b7ea {tsv::lset crash} -body {
+    tsv::linsert mytsv mylist 0 A {X Y}
+    tsv::lset mytsv mylist end 1 P
+} -result {A {X P}}
+
 ::tcltest::cleanupTests