Artifact e27a24481044739c1429ff02a7b3b4b8d92d7673:

• File test/th1-tcl9.txt — part of check-in [46864ac9cc] at 2012-08-22 11:15:25 on branch tcl-argv-handling-v2 — Modify the Tcl argument handling to deal with object reference counts and errors. (user: mistachkin size: 313) [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.
  #
  set channel stdout; tclInvoke set channel $channel
  tclEval {puts $channel [list [file tail $argv0] $argc $argv]}
</th1>