Index: openacs-4/packages/dotlrn-dotlrn/tcl/test/dotlrn-dotlrn-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/tcl/test/dotlrn-dotlrn-test-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/dotlrn-dotlrn/tcl/test/dotlrn-dotlrn-test-procs.tcl	19 Aug 2020 17:30:42 -0000	1.1.2.2
+++ openacs-4/packages/dotlrn-dotlrn/tcl/test/dotlrn-dotlrn-test-procs.tcl	24 Aug 2020 07:51:52 -0000	1.1.2.3
@@ -34,6 +34,21 @@
     aa_equals "Applet key"          "[dotlrn_members_staff::applet_key]"        "dotlrn_members_staff"
 }
 
+aa_register_case -procs {
+        dotlrn_dotlrn::get_pretty_name
+        dotlrn_members::get_pretty_name
+        dotlrn_members_staff::get_pretty_name
+    } -cats {
+        api
+        production_safe
+    } dotlrn_dotlrn__names {
+        Test diverse name procs.
+} {
+    aa_equals "Pretty name"                 "[dotlrn_dotlrn::get_pretty_name]" "[_ dotlrn-dotlrn.Core_DotLRN_Applets]"
+    aa_equals "Members pretty name"         "[dotlrn_members::get_pretty_name]" "[_ dotlrn-dotlrn.Group_Members_Info]"
+    aa_equals "Members staff pretty name"   "[dotlrn_members_staff::get_pretty_name]" "[_ dotlrn-dotlrn.lt_dotLRN_Staff_List_Inf]"
+}
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4