1 files changed, 14 insertions, 0 deletions
diff --git a/test/th1-tcl8.txt b/test/th1-tcl8.txt
new file mode 100644
index 0000000..792676f
--- /dev/null
+++ b/test/th1-tcl8.txt
@@ -0,0 +1,14 @@
+<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.
+  #
+  proc doOut {msg} {puts $msg; puts \n}
+
+  if {[tclInvoke set tcl_version] >= 8.6} {
+    doOut [tclInvoke tailcall set x 1]
+  } else {
+    error "This test requires Tcl 8.6 or higher."
+  }
+</th1>