if { [catch { # Source Tcl libraries set script_dir [file dirname [info script]] source "${script_dir}/../../../etc/install/tcl/test-procs.tcl" source "${script_dir}/simulation-test-procs.tcl" source "${script_dir}/demo-data.tcl" ::twt::simulation::setup::users_and_groups ::twt::simulation::setup::citybuild_objects ::twt::simulation::setup::all_templates ::twt::simulation::play::tilburg_template ::twt::simulation::test::permissions_all } result] } { global errorInfo # Output error stack trace and HTML response body ::twt::log $result ::twt::log "*** Tcl TRACE ***" ::twt::log $errorInfo ::twt::log "The response body is: [response body]" error "Test failed: $result" }