aa_call_component (public)

 aa_call_component component_id

Defined in packages/acs-automated-testing/tcl/aa-test-procs.tcl

Executes the chunk of code associated with the component_id.

Call this function from within a testcase body only.

Parameters:

component_id (required)

Author:

Peter Harper

Created:

28 October 2001

Partial Call Graph (max 5 caller/called nodes):

Testcases:

db_check_news_create, db_check_news_archive, db_check_news_set_approve, db_check_news_status

Source code:

    set body ""

    #
    # Search for the component body
    #
    foreach component [nsv_get aa_test components] {
        if {$component_id == [lindex $component 0] &&
            $::aa_package_key  == [lindex $component 1]} {
            set body [lindex $component 4]
        }
    }

    #
    # If the component exists, execute the body code in the testcases stack
    # level.
    #
    if {$body ne ""} {
        aa_log "Running component $component_id"
        uplevel 1 "_${::aa_package_key}__c_$component_id"
        return
    } else {
        error "Unknown component $component_id, package $::aa_package_key"
    }

XQL Not present:

Generic, PostgreSQL, Oracle