From 5cac4c94a64a4a78a31fac555eb5461f4185fdb9 Mon Sep 17 00:00:00 2001
From: apnadkarni <apnmbx-wits@yahoo.com>
Date: Thu, 6 Jun 2024 06:28:18 +0000
Subject: [PATCH] Add test case for [c2dfd8b7ea]

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

diff --git a/tests/tsv.test b/tests/tsv.test
index 3509c875..59264266 100644
--- 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