_news__check_package_mount (private)
_news__check_package_mount
Defined in packages/news/tcl/test/news-db-test-init.tcl
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: upvar 2 _aa_exports _aa_exports foreach init_class mount-news-package { if {[llength $init_class] == 2} { lassign $init_class init_class init_package_key } else { set init_package_key news } foreach v $_aa_exports([list $init_package_key $init_class]) { upvar 2 $v $v } foreach logpair $::aa_init_class_logs([list $init_package_key $init_class]) { aa_log_result [lindex $logpair 0] [lindex $logpair 1] } } set _aa_export {} set body_count 1 foreach testcase_body {{ aa_true "Check that the news package mount properly" $_news_package_mounted_p if {$_news_package_mounted_p} { aa_log "News node_id :$_news_node_id" aa_log "News package_id :$_news_package_id" } else { aa_error "Error from initializer: $_news_package_mounted_err" } }} { 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" "check_package_mount (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }Generic XQL file: packages/news/tcl/test/news-db-test-init.xql
PostgreSQL XQL file: packages/news/tcl/test/news-db-test-init-postgresql.xql
Oracle XQL file: packages/news/tcl/test/news-db-test-init-oracle.xql