blob: 69a1a77b9a81f22c2129af6b6c9eaa9c3d4677a6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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>
|
