Index: openacs-4/packages/dotlrn-portlet/tcl/test/dotlrn-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/tcl/test/dotlrn-portlet-procs.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/dotlrn-portlet/tcl/test/dotlrn-portlet-procs.tcl	19 Aug 2020 17:08:34 -0000	1.1.2.1
+++ openacs-4/packages/dotlrn-portlet/tcl/test/dotlrn-portlet-procs.tcl	21 Aug 2020 17:29:35 -0000	1.1.2.2
@@ -11,16 +11,24 @@
         dotlrn_portlet::link
         dotlrn_members_portlet::link
         dotlrn_members_staff_portlet::link
+        dotlrn_members_staff_portlet::get_pretty_name
+        dotlrn_members_portlet::get_pretty_name
+        dotlrn_admin_portlet::get_pretty_name
+        dotlrn_admin_portlet::my_package_key
     } -cats {
         api
         production_safe
-    } dotlrn_portlet_links {
-        Test diverse link procs.
+    } dotlrn_portlet_links_names_keys {
+        Test diverse link, name and key procs.
 } {
-    aa_equals "dotLRN admin portlet link"           "[dotlrn_admin_portlet::link]" ""
-    aa_equals "dotLRN portlet link"                 "[dotlrn_portlet::link]" ""
-    aa_equals "dotLRN members portlet link"         "[dotlrn_members_portlet::link]" ""
-    aa_equals "dotLRN members staff portlet link"   "[dotlrn_members_staff_portlet::link]" ""
+    aa_equals "dotLRN admin portlet link"                   "[dotlrn_admin_portlet::link]" ""
+    aa_equals "dotLRN portlet link"                         "[dotlrn_portlet::link]" ""
+    aa_equals "dotLRN members portlet link"                 "[dotlrn_members_portlet::link]" ""
+    aa_equals "dotLRN members staff portlet link"           "[dotlrn_members_staff_portlet::link]" ""
+    aa_equals "dotLRN members staff portlet pretty name"    "[dotlrn_members_staff_portlet::get_pretty_name]" "#dotlrn-portlet.members_staff_portlet_pretty_name#"
+    aa_equals "dotLRN portlet pretty name"                  "[dotlrn_members_portlet::get_pretty_name]" "#dotlrn-portlet.members_portlet_pretty_name#"
+    aa_equals "dotLRN admin portlet pretty name"            "[dotlrn_admin_portlet::get_pretty_name]" "#dotlrn-portlet.admin_pretty_name#"
+    aa_equals "dotLRN admin portlet package key"            "[dotlrn_admin_portlet::my_package_key]" "dotlrn-portlet"
 }
 
 # Local variables: