_categories__category_synonyms (private)

 _categories__category_synonyms

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_id [category_tree::add -name "foo"]

            aa_true "tree was created successfully"  [category_tree::exists_p $tree_id]

            # Create category
            set category_id [category::add  -tree_id $tree_id  -parent_id ""  -name "foo"]

            aa_true "category was created successfully"  [category::exists_p $category_id]

            set synonym_id [category_synonym::add  -name foobar  -category_id $category_id]

            aa_true "Synonym was created" [db_0or1row check {
                select 1 from category_synonyms
                where synonym_id = :synonym_id
                and category_id = :category_id
                and name = 'foobar'
            }]

            set query_id [category_synonym::search -search_text foo]

            aa_true "Query was created" [db_0or1row check {
                select 1 from category_search_results
                where synonym_id = :synonym_id
                and query_id = :query_id
            }]

            category_synonym::edit  -synonym_id $synonym_id  -name barfoo
            aa_true "Synonym was updated" [db_0or1row check {
                select 1 from category_synonyms
                where synonym_id = :synonym_id
                and category_id = :category_id
                and name = 'barfoo'
            }]

            category_synonym::delete $synonym_id
            aa_false "Synonym was deleted" [db_0or1row check {
                select 1 from category_synonyms
                where synonym_id = :synonym_id
            }]

        }
}} {
          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_synonyms (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo"
          }
          incr body_count
        }

XQL Not present:

Generic, PostgreSQL, Oracle