• Publicity: Public Only All

filter-procs.tcl


Procedures in this file

Detailed information

ad_page_contract_filter_proc_aa_test_category (public)

 ad_page_contract_filter_proc_aa_test_category name value_varname

Checks whether a category value has is valid.

Parameters:
name
value_varname

Partial Call Graph (max 5 caller/called nodes):
%3 test_aa_page_contract_filters aa_page_contract_filters (test acs-automated-testing) ad_page_contract_filter_proc_aa_test_category ad_page_contract_filter_proc_aa_test_category test_aa_page_contract_filters->ad_page_contract_filter_proc_aa_test_category ad_complain ad_complain (public) ad_page_contract_filter_proc_aa_test_category->ad_complain

Testcases:
aa_page_contract_filters

ad_page_contract_filter_proc_aa_test_view_by (public)

 ad_page_contract_filter_proc_aa_test_view_by name value_varname

Checks whether a view_by value has a value of "testcase", "package" or "category"

Parameters:
name
value_varname

Partial Call Graph (max 5 caller/called nodes):
%3 test_aa_page_contract_filters aa_page_contract_filters (test acs-automated-testing) ad_page_contract_filter_proc_aa_test_view_by ad_page_contract_filter_proc_aa_test_view_by test_aa_page_contract_filters->ad_page_contract_filter_proc_aa_test_view_by ad_complain ad_complain (public) ad_page_contract_filter_proc_aa_test_view_by->ad_complain

Testcases:
aa_page_contract_filters
[ hide source ] | [ make this the default ]

Content File Source

ad_page_contract_filter aa_test_view_by { name value } {
  Checks whether a view_by value has a value of "testcase""package" or
  "category"
} {
    if {$value ni {testcase package}} {
        ad_complain "Invalid view_by name"
        return 0
    }
    return 1
}

ad_page_contract_filter aa_test_category { name value } {
  Checks whether a category value has is valid.
} {
    if {$value ni [nsv_get aa_test categories]} {
        ad_complain "$value is not a valid acs-automated-testing testcase category"
        return 0
    }
    return 1
}

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