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 | if {[tclInvoke set tcl_version] >= 8.6} { |
| d8ed5a0… | drh | 10 | doOut [tclInvoke tailcall set x 1] |
| d8ed5a0… | drh | 11 | } else { |
| 6b58c67… | mistachkin | 12 | error "This test requires Tcl 8.6 or higher." |
| d8ed5a0… | drh | 13 | } |
| d8ed5a0… | drh | 14 | </th1> |