Artifact b23e37710b3902febbc89f986697503afacf6809:

• File test/th1-tcl8.txt — part of check-in [cba0f25bf2] at 2011-08-29 01:19:38 on branch tcl-integration — Add test to verify behavior for missing objProcs. Also, make sure Tcl integration is enabled for the tests. (user: mistachkin size: 385) [more...]

<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}

  if {[tclInvoke set tcl_version] >= 8.6} {
    doOut [tclInvoke tailcall set x 1]
  } else {
    doOut "This test requires Tcl 8.6 or higher."
  }
</th1>