| |
1 |
1 |
if { [catch { |
| |
2 |
2 |
|
| |
3 |
3 |
# Source Tcl libraries |
| |
4 |
4 |
set script_dir [file dirname [info script]] |
| |
5 |
5 |
source "${script_dir}/../../../etc/install/tcl/test-procs.tcl" |
| |
6 |
6 |
source "${script_dir}/simulation-test-procs.tcl" |
| |
7 |
7 |
source "${script_dir}/demo-data.tcl" |
| |
8 |
8 |
|
| |
9 |
9 |
::twt::simulation::setup::users_and_groups |
| |
10 |
10 |
|
| |
11 |
11 |
::twt::simulation::setup::citybuild_objects |
| |
12 |
12 |
|
| |
13 |
13 |
::twt::simulation::setup::all_templates |
| |
14 |
14 |
|
| |
15 |
|
::twt::simulation::play::tilburg_template_user_1 |
| |
|
15 |
::twt::simulation::play::tilburg_template |
| |
16 |
16 |
|
| |
17 |
17 |
::twt::simulation::test::permissions_all |
| |
18 |
18 |
|
| |
19 |
19 |
} result] } { |
| |
20 |
20 |
global errorInfo |
| |
21 |
21 |
|
| |
22 |
22 |
# Output error stack trace and HTML response body |
| |
23 |
23 |
::twt::log $result |
| |
24 |
24 |
::twt::log "*** Tcl TRACE ***" |
| |
25 |
25 |
::twt::log $errorInfo |
| |
26 |
26 |
::twt::log "The response body is: [response body]" |
| |
27 |
27 |
|
| |
28 |
28 |
error "Test failed: $result" |
| |
29 |
29 |
} |
