Fossil

Artifact ae6638fed86e893af4d2f4d64dd12efab0f59005:

• File test/th1-tcl8.txt — part of check-in [d87454917c] at 2011-11-04 23:34:11 on branch jimtcl — Cleanup style and use Jim_Obj APIs when bridging commands from Tcl to Jim. (user: mistachkin size: 396)

<th1>
  #
  # This is a "script fragment" used to test the Tcl integration features of
  # Fossil.  The corresponding test file executes this file using the
  # test-script-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>