_categories__category_crud (private)
_categories__category_crud
Defined in packages/categories/tcl/test/categories-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_run_with_teardown -rollback -test_code { set locale it_IT aa_section "Create tree" set tree_id [category_tree::add -name "foo" -locale $locale] category_tree::update -tree_id $tree_id -locale de_DE -name föö -description Descriptiön aa_equals "category_tree::get_translation returns expected" [category_tree::get_translation $tree_id de_DE] [list "föö" "Descriptiön"] aa_section "Create category" set category_id [category::add -tree_id $tree_id -parent_id "" -locale $locale -name "foo"] aa_equals "Name is right" [category::get_name $category_id $locale] foo aa_section "Update category" category::update -category_id $category_id -name boo -locale $locale -description something set attrs [category::get -category_id $category_id -locale $locale] aa_equals "name is as expected" [dict get $attrs name] boo aa_equals "Description is as expected" [dict get $attrs description] something set category_child_1 [category::add -tree_id $tree_id -parent_id $category_id -locale $locale -name "foo child 1"] set category_child_2 [category::add -tree_id $tree_id -parent_id $category_id -locale $locale -name "foo child 2"] aa_equals "Category '$category_id' has 2 visible children" [llength [category::get_children -category_id $category_id]] 2 category_tree::get_multirow -tree_id $tree_id -datasource __test_category_crud aa_true "Multirow __test_category_crud exists" [::template::multirow exists __test_category_crud] aa_equals "Multirow __test_category_crud has 3 rows" [::template::multirow size __test_category_crud] 3 set result [list] ::template::multirow -unclobber foreach __test_category_crud { lappend result $tree_id $tree_name $category_id $category_name $level $pad $deprecated_p $count $child_sum } aa_equals "Multirow returns expected" [list $tree_id foo $category_id foo 1 {} f 0 0 $tree_id foo $category_child_1 {foo child 1} 2 .. f 0 0 $tree_id foo $category_child_2 {foo child 2} 2 .. f 0 0] $result aa_log "Phase out child '$category_child_1'" category::phase_out $category_child_1 aa_equals "Category '$category_id' has 1 visible child" [llength [category::get_children -category_id $category_id]] 1 aa_log "Phase out child '$category_child_2'" category::phase_out $category_child_2 aa_equals "Category '$category_id' has 0 visible children" [llength [category::get_children -category_id $category_id]] 0 aa_equals "category_tree::get_tree returns expected (pre-flush)" [category_tree::get_tree -all $tree_id] [list [list $category_id foo f 1] [list $category_child_1 {foo child 1} f 2] [list $category_child_2 {foo child 2} f 2] ] aa_log "Flush cache" category_tree::reset_cache aa_equals "category_tree::get_tree returns expected (post-flush)" [category_tree::get_tree -all $tree_id] [list [list $category_id foo f 1] [list $category_child_1 {foo child 1} t 2] [list $category_child_2 {foo child 2} t 2] ] category_tree::get_multirow -tree_id $tree_id -datasource __test_category_crud aa_true "Multirow __test_category_crud exists" [::template::multirow exists __test_category_crud] aa_equals "Multirow __test_category_crud has 1 row (phased out categories skipped)" [::template::multirow size __test_category_crud] 1 aa_log "Phase children back in" category::phase_in $category_child_1 category::phase_in $category_child_2 aa_equals "Category '$category_id' has 2 visible children again" [llength [category::get_children -category_id $category_id]] 2 aa_log "Delete children" category::delete $category_child_1 category::delete $category_child_2 aa_section "Delete category (batch)" category::delete -batch_mode $category_id aa_false "category was deleted successfully" [category::exists_p $category_id] aa_equals "Cache entry was not flushed" [category::get_name $category_id $locale] boo aa_section "Flush cache" category::flush_translation_cache $category_id aa_false "Cache entry was flushed" {[category::get_name $category_id $locale] ne ""} } }} { 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" "category_crud (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle