if { [catch {
    # Source procedures
    source tcl/test-procs.tcl

    # Test Execution START

    ::twt::log "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 -nocase {fail} [response body]] } {
        puts "$alert_keyword - There are failed tests at $server_url"
    }

    # Test Execution END
} result] } {
    global errorInfo
    puts stderr $result
    puts stderr "*** Tcl TRACE ***"
    puts stderr $errorInfo

    puts "The response body is: [response body]"

    error "Test failed: $result"
}