Index: openacs-4/packages/chat-portlet/tcl/test/chat-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-portlet/tcl/test/Attic/chat-portlet-procs.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/chat-portlet/tcl/test/chat-portlet-procs.tcl	19 Aug 2020 17:10:26 -0000	1.1.2.1
+++ openacs-4/packages/chat-portlet/tcl/test/chat-portlet-procs.tcl	21 Aug 2020 17:33:27 -0000	1.1.2.2
@@ -9,14 +9,18 @@
 aa_register_case -procs {
         chat_admin_portlet::link
         chat_portlet::link
+        chat_admin_portlet::get_pretty_name
+        chat_portlet::get_pretty_name
     } -cats {
         api
         production_safe
-    } chat_portlet_links {
-        Test diverse link procs.
+    } chat_portlet_links_names {
+        Test diverse link and name procs.
 } {
-    aa_equals "Chat admin portlet link" "[chat_admin_portlet::link]" ""
-    aa_equals "Chat portlet link"       "[chat_portlet::link]" ""
+    aa_equals "Chat admin portlet link"         "[chat_admin_portlet::link]" ""
+    aa_equals "Chat portlet link"               "[chat_portlet::link]" ""
+    aa_equals "Chat portlet pretty name"        "[chat_portlet::get_pretty_name]" "#chat-portlet.pretty_name#"
+    aa_equals "Chat portlet admin pretty name"  "[chat_admin_portlet::get_pretty_name]" "#chat-portlet.admin_pretty_name#"
 }
 
 # Local variables: