From 2016e4824102a7b0f708620d33a15f0893bf13a0 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Fri, 16 Aug 2024 12:42:21 +0000
Subject: [PATCH] Add testcase

---
 tests/tsv.test | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/tests/tsv.test b/tests/tsv.test
index d25b0529..f7b55679 100644
--- 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