Fossil SCM
|
1
|
<th1> |
|
2
|
# |
|
3
|
# This is a "TH1 fragment" used to test the TH1. |
|
4
|
# The corresponding test file e test-th-render |
|
5
|
# the |
|
6
|
# test-script-render Fossil command. |
|
7
|
# |
|
8
|
proc doOut {msg} {puts $msg; puts \n} |
|
9
|
|
|
10
|
# |
|
11
|
# BUGBUG: Attempting to divide by zero will crash TH1 with the error: |
|
12
|
# "child killed: floating-point exceptith1Expr 2/0] |
|
13
|
|
|
14
|
# |
|
15
|
# NOTE: For now, just cause an expression syntax error. |
|
16
|
# |
|
17
|
doOut [tclEval th1Expr 2**0] |
|
18
|
</th1> |
|
19
|
|