1 files changed, 11 insertions, 0 deletions
diff --git a/test/tclsqlite.test b/test/tclsqlite.test
index 8db04ebfa..0ed06024c 100644
--- a/test/tclsqlite.test
+++ b/test/tclsqlite.test
@@ -617,5 +617,16 @@ ifcapable tclvar {
   } {31323334 blob}
 }
 
+db func xCall xCall
+proc xCall {} { return "value" }
+do_execsql_test tcl-14.1 {
+  CREATE TABLE t6(x);
+  INSERT INTO t6 VALUES(1);
+}
+do_test tcl-14.2 {
+  db one {SELECT x FROM t6 WHERE xCall()!='value'}
+} {}
+
+
 
 finish_test