rerun.tcl

Location:
/packages/acs-automated-testing/www/admin/rerun.tcl
CVS ID:
$Id: rerun.tcl,v 1.8.2.3 2023/10/06 12:31:05 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    @cvs-id $Id: rerun.tcl,v 1.8.2.3 2023/10/06 12:31:05 gustafn Exp $
} {
    {package_key:token,multiple ""}
    {category:aa_test_category ""}
    {view_by:aa_test_view_by "package"}
    {testcase_id:word,notnull ""}
    {quiet:boolean,notnull 0}
    {stress:boolean,notnull 0}
    {security_risk:boolean,notnull 0}
} -properties {
}

if {$testcase_id eq ""} {
    if {$quiet} {
        aa_runseries -stress $stress -security_risk $security_risk -quiet $package_key $category
    } else {
        aa_runseries -stress $stress -security_risk $security_risk $package_key $category
    }

    set return_url [export_vars -base index {
        {by_package_key $package_key}
        {by_category $category}
        view_by quiet stress security_risk}]
} else {
    #
    # Rerun of a single test case always resources the definition.
    #
    foreach c [nsv_get aa_test cases] {
        if {[lindex $c 0] eq $testcase_id} {
            set absolute_file_path [lindex $c 2]
            ns_log notice "Sourcing test definition file $absolute_file_path"
            apm_source $absolute_file_path
            break
        }
    }

    if {$quiet} {
        aa_runseries -quiet -testcase_id $testcase_id "" ""
    } else {
        aa_runseries -testcase_id $testcase_id "" ""
    }
    set return_url [export_vars -base testcase {
        testcase_id package_key quiet
    }]
}

ad_returnredirect $return_url

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: