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