From 4f49b16079b27d7ce633619e4cddfdf2bffbc952 Mon Sep 17 00:00:00 2001
From: cashmere <cashmere@autistici.org>
Date: Fri, 4 Sep 2026 09:05:24 +0200
Subject: initial commit

---
 test/th1-tcl7.txt | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 test/th1-tcl7.txt

(limited to 'test/th1-tcl7.txt')

diff --git a/test/th1-tcl7.txt b/test/th1-tcl7.txt
new file mode 100644
index 0000000..69a1a77
--- /dev/null
+++ b/test/th1-tcl7.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.
+  #
+  proc doOut {msg} {puts $msg; puts \n}
+
+  #
+  # BUGBUG: Attempting to divide by zero will crash TH1 with the error:
+  #         "child killed: floating-point exception"
+  #
+  # doOut [tclEval th1Expr 2/0]
+
+  #
+  # NOTE: For now, just cause an expression syntax error.
+  #
+  doOut [tclEval th1Expr 2**0]
+</th1>
-- 
cgit v1.3.1