_acs-developer-support__ds_link_test (private)
_acs-developer-support__ds_link_test
Defined in packages/acs-developer-support/tcl/test/acs-developer-support-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 {{ set old_enabled_state [ds_enabled_p] set old_user_switching [ds_user_switching_enabled_p] set permission_p [ds_permission_p] set collection_enabled_p [ds_collection_enabled_p] try { ds_set_user_switching_enabled 0 set enabled_p 0 nsv_set ds_properties enabled_p $enabled_p set ::ds_enabled_p $enabled_p aa_equals "No DS and no user switch, link is empty" [ds_link] "" ds_set_user_switching_enabled 1 aa_true "No DS and user switch, link is empty if no permissions" {!$permission_p || [ad_looks_like_html_p [ds_link]]} set enabled_p 1 nsv_set ds_properties enabled_p $enabled_p set ::ds_enabled_p $enabled_p aa_true "DS enabled, link will contain the DS URL and look as HTML if collection is enabled" { !$collection_enabled_p || ([ad_looks_like_html_p [ds_link]] && [string first [ds_support_url] [ds_link]] >= 0) } } finally { nsv_set ds_properties enabled_p $old_enabled_state set ::ds_enabled_p $old_enabled_state ds_set_user_switching_enabled $old_user_switching } }} { 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" "ds_link_test (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle