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 | doOut [tclEval th1Eval bad_command] |
| d8ed5a0… | drh | 9 | </th1> |