Index: openacs-4/packages/evaluation-portlet/tcl/test/evaluation-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/tcl/test/evaluation-portlet-procs.tcl,v
diff -u -N -r1.5.2.4 -r1.5.2.5
--- openacs-4/packages/evaluation-portlet/tcl/test/evaluation-portlet-procs.tcl	19 Aug 2020 16:53:03 -0000	1.5.2.4
+++ openacs-4/packages/evaluation-portlet/tcl/test/evaluation-portlet-procs.tcl	24 Aug 2020 08:01:44 -0000	1.5.2.5
@@ -872,15 +872,21 @@
         evaluation_admin_portlet::link
         evaluation_evaluations_portlet::link
         evaluation_assignments_portlet::link
+        evaluation_admin_portlet::get_pretty_name
+        evaluation_assignments_portlet::get_pretty_name
+        evaluation_evaluations_portlet::get_pretty_name
     } -cats {
         api
         production_safe
-    } evaluation_portlet_links {
-        Test diverse link procs.
+    } evaluation_portlet_links_names {
+        Test diverse link and name procs.
 } {
-    aa_equals "Evaluation admin portlet link"       "[evaluation_admin_portlet::link]" ""
-    aa_equals "Evaluation evaluations portlet link" "[evaluation_evaluations_portlet::link]" ""
-    aa_equals "Evaluation assignments portlet link" "[evaluation_assignments_portlet::link]" ""
+    aa_equals "Evaluation admin portlet link"               "[evaluation_admin_portlet::link]" ""
+    aa_equals "Evaluation evaluations portlet link"         "[evaluation_evaluations_portlet::link]" ""
+    aa_equals "Evaluation assignments portlet link"         "[evaluation_assignments_portlet::link]" ""
+    aa_equals "Evaluation admin portlet pretty name"        "[evaluation_admin_portlet::get_pretty_name]" "#evaluation-portlet.lt_Evaluation_Administra#"
+    aa_equals "Evaluation evaluations portlet pretty name"  "[evaluation_evaluations_portlet::get_pretty_name]" "#evaluation-portlet.Evaluations_#"
+    aa_equals "Evaluation assignments portlet pretty name"  "[evaluation_assignments_portlet::get_pretty_name]" "#evaluation-portlet.Assignments#"
 }
 
 # Local variables: