Index: openacs-4/packages/faq-portlet/tcl/test/faq-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq-portlet/tcl/test/faq-portlet-procs.tcl,v
diff -u -r1.4.2.3 -r1.4.2.4
--- openacs-4/packages/faq-portlet/tcl/test/faq-portlet-procs.tcl	19 Aug 2020 16:26:07 -0000	1.4.2.3
+++ openacs-4/packages/faq-portlet/tcl/test/faq-portlet-procs.tcl	21 Aug 2020 17:04:22 -0000	1.4.2.4
@@ -187,14 +187,18 @@
 aa_register_case -procs {
         faq_admin_portlet::link
         faq_portlet::link
+        faq_admin_portlet::get_pretty_name
+        faq_portlet::get_pretty_name
     } -cats {
         api
         production_safe
-    } faq_portlet_links {
-        Test diverse link procs.
+    } faq_portlet_links_names {
+        Test diverse link and name procs.
 } {
-    aa_equals "FAQ admin portlet link" "[faq_admin_portlet::link]" ""
-    aa_equals "FAQ portlet link"       "[faq_portlet::link]" ""
+    aa_equals "FAQ admin portlet link"          "[faq_admin_portlet::link]" ""
+    aa_equals "FAQ portlet link"                "[faq_portlet::link]" ""
+    aa_equals "FAQ admin portlet pretty name"   "[faq_admin_portlet::get_pretty_name]" "#faq-portlet.admin_pretty_name#"
+    aa_equals "FAQ portlet pretty name"         "[faq_portlet::get_pretty_name]" "#faq-portlet.pretty_name#"
 }
 
 # Local variables: