_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):
%3 aa_equals aa_equals (public) aa_log aa_log (public) aa_log_result aa_log_result (public) aa_section aa_section (public) aa_true aa_true (public) _acs-tcl__user_links_api _acs-tcl__user_links_api _acs-tcl__user_links_api->aa_equals _acs-tcl__user_links_api->aa_log _acs-tcl__user_links_api->aa_log_result _acs-tcl__user_links_api->aa_section _acs-tcl__user_links_api->aa_true

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
[ hide source ] | [ make this the default ]
Show another procedure: