_acs-tcl__data_links_update_links (private)

 _acs-tcl__data_links_update_links

Defined in packages/acs-tcl/tcl/test/application-data-link-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 some test objects
        set name "cr_item__[ad_generate_random_string]"

        for {set i 0} {$i<10} {incr i} {
            set o($i) [content::item::new  -name ${name}_$i  -title ${name}_$i]
        }

        # generate some text with links between the objects
        foreach n [array names o] {
            append text "\nTest Content Link to $o($n) <a href=\"/o/$o($n)\">Link</a> \n"
        }
        # update the links
        foreach n [array names o] {
            application_data_link::update_links_from  -object_id $o($n)  -text $text
        }
        # scan for links and compare
        set correct_links [lsort [application_data_link::scan_for_links  -text $text]]
        aa_true "Correct links is not empty" [llength $correct_links]
        foreach n [array names o] {
            set links [lsort [application_data_link::get_links_from  -object_id $o($n)]]
            aa_true "Object \#${n} references correct"  {$correct_links eq $links}
        }
        # now change the text and update one of the objects
        for {set i 0} {$i < 5} {incr i} {
            append new_text "\nTest Content Link to $o($i) /o/$o($i) \n"
        }
        for {set i 0} {$i < 5} {incr i} {
            application_data_link::update_links_from  -object_id $o($i)  -text $new_text
        }
        set new_correct_links [lsort [application_data_link::scan_for_links  -text $new_text]]

        for {set i 0} {$i < 5} {incr i} {
            set links [lsort [application_data_link::get_links_from  -object_id $o($i)]]
            aa_true "Object \#${i} updated references correct"  {$new_correct_links eq $links}
        }
    }
}} {
          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" "data_links_update_links (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo"
          }
          incr body_count
        }

XQL Not present:

Generic, PostgreSQL, Oracle