Artifact da2b703218ef01f4d7589df6696963dcbb2f5585:

• File test/th1-tcl7.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: 517)

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

  #
  # BUGBUG: Attempting to divide by zero will crash TH1 with the error:
  #         "child killed: floating-point exception"
  #
  # doOut [tclEval bridgeExpr 2/0]

  #
  # NOTE: For now, just cause an expression syntax error.
  #
  doOut [tclEval bridgeExpr 2**0]
</th1>