/etc/openacs/install/tcl-api-test.test is in openacs 5.9.0+dfsg-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | if { [catch {
# Source procedures
source tcl/test-procs.tcl
# Test Execution START
::twt::log_section "Login the site wide admin"
::twt::user::login_site_wide_admin
# Run all tests
::twt::do_request "/test/admin/rerun?package_key=&category=&view_by=package&quiet=0"
# Grep for packages with failed tests
if { [regexp {FAILED} [response body]] } {
::twt::log "$alert_keyword - There are failed tests at $server_url"
}
# Test Execution END
} result] } {
global errorInfo
::twt::log $result
::twt::log "*** Tcl TRACE ***"
::twt::log $errorInfo
::twt::log "The response body is: [response body]"
error "Test failed: $result"
}
|