Index: openacs-4/packages/acs-tcl/tcl/test/defs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/Attic/defs-procs.tcl,v
diff -u -N -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/acs-tcl/tcl/test/defs-procs.tcl	6 Sep 2022 12:22:50 -0000	1.1.2.1
+++ openacs-4/packages/acs-tcl/tcl/test/defs-procs.tcl	8 Sep 2022 08:13:34 -0000	1.1.2.2
@@ -12,6 +12,8 @@
         acs_community_member_page
         acs_community_member_url
         acs_community_member_link
+        subsite::get_element
+        ad_admin_home
     } \
     user_links_api {
         Test the various procs that generate a community member URL.
@@ -69,4 +71,8 @@
         aa_true "Link '$link' contains the user name" \
             {[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
+        
     }