1 files changed, 19 insertions, 0 deletions
diff --git a/test/th1-tcl2.txt b/test/th1-tcl2.txt
new file mode 100644
index 0000000..09f6e67
--- /dev/null
+++ b/test/th1-tcl2.txt
@@ -0,0 +1,19 @@
+<th1>
+  #
+  # This is a "TH1 fragment" used to test the Tcl integration features of TH1.
+  # The corresponding test file executes this file using the test-th-render
+  # Fossil command.
+  #
+  # NOTE: This test requires that the SQLite package be available for the Tcl
+  #       interpreter that is linked to the Fossil executable.
+  #
+  tclInvoke set repository_name [repository 1]
+  proc doOut {msg} {puts $msg; puts \n}
+  doOut [tclEval {
+    package require sqlite3
+    sqlite3 db $repository_name -readonly true
+    set x [db eval {SELECT COUNT(*) FROM user;}]
+    db close
+    return $x
+  }]
+</th1>