_acs-tcl__acs_system_information_api (private)
_acs-tcl__acs_system_information_api
Defined in packages/acs-tcl/tcl/test/acs-kernel-procs.tcl
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: set _aa_export {} set body_count 1 foreach testcase_body {{ aa_equals "The node_id of acs-admin is returned as expected" [ad_acs_admin_node] [db_string query { select node_id from site_nodes n, apm_packages p where n.object_id = p.package_id and p.package_key = 'acs-admin' }] aa_equals "The acs-kernel package_id is returned as expected" [ad_acs_kernel_id] [db_string query { select package_id from apm_packages where package_key = 'acs-kernel' }] aa_equals "The acs-kernel release date is returned as expected" [ad_acs_release_date] [db_string query { select to_char(release_date, 'YYYY-MM-DD') from apm_package_versions where enabled_p = 't' and package_key = 'acs-kernel' }] aa_equals "The acs-kernel version is returned as expected" [ad_acs_version] [db_string query { select version_name from apm_package_versions where enabled_p = 't' and package_key = 'acs-kernel' }] }} { aa_log "Running testcase body $body_count" set ::__aa_test_indent [info level] set catch_val [catch $testcase_body msg] if {$catch_val != 0 && $catch_val != 2} { aa_log_result "fail" "acs_system_information_api (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle