_categories__category_get_procs (private)
_categories__category_get_procs
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 { # #Create tree # set tree_name foo set tree_id [category_tree::add -name $tree_name] aa_log "Category tree: $tree_name $tree_id" # # Create root category # set root_category_id [category::add -tree_id $tree_id -parent_id "" -name $tree_name] aa_log "Root category: $root_category_id" # # Create children categories # set children {bar1 "" bar2 "" bar3 ""} dict for { name id } $children { set category_id [category::add -tree_id $tree_id -parent_id $root_category_id -description "My category $name" -name $name] dict set children $name $category_id aa_log "New children category: $name $category_id" } # # Get # dict for { name id } $children { aa_equals "Check name and description" "[category::get -category_id $id]" "name $name description {My category $name}" } # # Get children # aa_equals "Check for children" "[lsort [category::get_children -category_id $root_category_id]]" "[lsort [dict values $children]]" # # Get tree # dict for { name id } $children { aa_equals "Check category tree" "[category::get_tree $id]" "$tree_id" } # # Get data # dict for { name id } $children { aa_equals "Check category data" "[category::get_data $id]" "$id $name $tree_id $tree_name" } # # Get id by name/title # dict for { name id } $children { aa_equals "Check category by name" "[category::get_id $name]" "$id" aa_equals "Check category by object title" "[category::get_id_by_object_title $name]" "$id" } # # Get name by id # dict for { name id } $children { aa_equals "Check category by id" "[category::get_name $id]" "$name" } aa_equals "Check categories by ids" "[lsort [category::get_names [dict values $children]]]" "[lsort [dict keys $children]]" } }} { 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_get_procs (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle