# # 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]