From 29439b0828063aefe69b0cc4e2fa2b6d6b3d067f Mon Sep 17 00:00:00 2001
From: Dan Kennedy <danielk1977@gmail.com>
Date: Sat, 11 May 2024 16:44:56 +0000
Subject: [PATCH] Add tests to bestindexC.test. No changes to code.

---
 test/bestindexC.test | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/test/bestindexC.test b/test/bestindexC.test
index 476ea39faa..708e56f774 100644
--- a/test/bestindexC.test
+++ b/test/bestindexC.test
@@ -173,6 +173,25 @@ do_execsql_test 3.6 {
 } {4 5 6 7 8}
 unset ::do_not_use_offset
 
+#-------------------------------------------------------------------------
+reset_db
+proc vtab_command {lVal method args} {
+  switch -- $method {
+    xConnect {
+      error "not happy!"
+    }
+  }
+
+  return {}
+}
+
+register_tcl_module db
+do_catchsql_test 4.0 {
+  CREATE VIRTUAL TABLE y1 USING tcl(vtab_command 1);
+} {1 {not happy!}}
+do_test 4.1 {
+  sqlite3_errcode db
+} SQLITE_ERROR
 
 
 finish_test
-- 
2.11.4.GIT