_news__check_object_type (private)
_news__check_object_type
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: set _aa_export {} set body_count 1 foreach testcase_body {{ set news_type_exists_p [db_0or1row get-news-type-info { select supertype from acs_object_types where object_type = 'news' }] aa_true "Check news object type exists" {$news_type_exists_p} if {$news_type_exists_p} { aa_equals "Check the supertype is content_revision" $supertype "content_revision" db_foreach get-news-type-attribs { select attribute_name from acs_attributes where object_type = 'news' } { lappend attribs $attribute_name } aa_log "Check the news object attributes exist" foreach attribute_name {"archive_date" "approval_user" "approval_date" "approval_ip"} { aa_true "Check $attribute_name exists" {[lsearch $attribs $attribute_name] != -1} } set news_folder_exists_p [db_0or1row get-news-cr-folder { select folder_id from cr_folders where label = 'news' }] aa_true "Check news content_repository folder exists" {$news_folder_exists_p} } }} { 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_object_type (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