_acs-tcl__user_links_api (private)
_acs-tcl__user_links_api
Defined in packages/acs-tcl/tcl/test/defs-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 user_id [db_string get_user { select max(user_id) from users }] set admin_url [parameter::get -package_id [ad_acs_kernel_id] -parameter CommunityMemberAdminURL] aa_section "Admin URL" set url [acs_community_member_admin_url -user_id $user_id] aa_true "URL contains admin URL from parameters" {[string first [ad_urlencode_url $admin_url] $url] >= 0} aa_true "URL contains the user_id" {[string first $user_id $url] >= 0} aa_section "Admin link with custom label" set link [acs_community_member_admin_link -user_id $user_id -label "One label"] aa_true "Link '$link' contains '$url'" {[string first [ns_quotehtml $url] $link] >= 0} aa_true "Link '$link' contains 'One label'" {[string first "One label" $link] >= 0} aa_section "Admin link with default label (username)" set link [acs_community_member_admin_link -user_id $user_id] aa_true "Link '$link' contains '$url'" {[string first [ns_quotehtml $url] $link] >= 0} aa_true "Link '$link' contains the username" {[string first [person::name -person_id $user_id] $link] >= 0} set member_url [parameter::get -package_id [ad_acs_kernel_id] -parameter CommunityMemberURL] set subsite_url [subsite::get_element -element url -notrailing] aa_section "Member URL" aa_equals "The community member page is as expected" [acs_community_member_page] ${subsite_url}${member_url} set url [acs_community_member_url -user_id $user_id] aa_true "URL contains member URL from parameters" {[string first [ad_urlencode_url $member_url] $url] >= 0} aa_true "URL contains the user_id" {[string first $user_id $url] >= 0} aa_section "Member link with custom label" set link [acs_community_member_link -user_id $user_id -label "One label"] aa_true "Link '$link' contains '$url'" {[string first [ns_quotehtml $url] $link] >= 0} aa_true "Link '$link' contains 'One label'" {[string first "One label" $link] >= 0} aa_section "Member link with default label (username)" set link [acs_community_member_link -user_id $user_id] aa_true "Link '$link' contains '$url'" {[string first [ns_quotehtml $url] $link] >= 0} aa_true "Link '$link' contains the username" {[string first [person::name -person_id $user_id] $link] >= 0} aa_section "Admin home URL" aa_equals "The admin home URL is as expected" [ad_admin_home] [subsite::get_element -element url]admin aa_section "Private workspace" set pvt_home_url [ad_pvt_home] aa_equals "The private workspace URL is as expected" $pvt_home_url [subsite::get_element -element url -notrailing][parameter::get -package_id [ad_acs_kernel_id] -parameter HomeURL] set pvt_home_name [ad_pvt_home_name] aa_equals "The private home name is expected" $pvt_home_name [lang::util::localize [parameter::get -package_id [ad_acs_kernel_id] -parameter HomeName]] set pvt_home_link [ad_pvt_home_link] aa_true "Private home link is expected" { [string first $pvt_home_url $pvt_home_link] >= 0 && [string first $pvt_home_name $pvt_home_link] >= 0 && [ad_looks_like_html_p $pvt_home_link] } aa_section "Publisher name" aa_equals "Publisher name is expected" [ad_publisher_name] [parameter::get -package_id [ad_acs_kernel_id] -parameter PublisherName] aa_section "Site home link" set old_user_id [ad_conn user_id] try { ad_conn -set user_id 0 set site_home_link [ad_site_home_link] aa_true "Subsite name is in the link (user 0)" { [subsite::get_element -element name] eq "" || [string first [subsite::get_element -element name] $site_home_link] >= 0 } aa_true "Subsite URL is in the link (user 0)" { [string first [subsite::get_element -element url] $site_home_link] >= 0 } aa_true "Link is HTML (user 0)" [ad_looks_like_html_p $site_home_link] ad_conn -set user_id 1 set site_home_link [ad_site_home_link] aa_true "Subsite name is in the link (user 1)" { [subsite::get_element -element name] eq "" || [string first [subsite::get_element -element name] $site_home_link] >= 0 } aa_true "Home URL is in the link (user 1)" { [string first $pvt_home_url $site_home_link] >= 0 } aa_true "Link is HTML (user 1)" [ad_looks_like_html_p $site_home_link] } finally { ad_conn -set user_id $old_user_id } aa_section "System name" aa_equals "ad_system_name returns expected" [ad_system_name] [parameter::get -package_id [ad_acs_kernel_id] -parameter SystemName] }} { 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" "user_links_api (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle