# # 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} doOut [tclEval bridgeEval bad_command]