if { [catch {
    # Source procedures
    source tclwebtest-functions.tcl

    # Test Execution START

    # Login the site wide admin
    login_site_wide_admin

    ::twt::log "crawling links starting from /dotlrn"        
    lappend __url_history "${server_url}/dotlrn"
    crawl_links

    ::twt::log "crawling links starting from /dotlrn/admin"        
    lappend __url_history "${server_url}/dotlrn/admin"
    crawl_links 

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

    ::twt::log "The response body is: [response body]"

    error "Test failed: $result"
}