Index: openacs-4/packages/dotlrn-homework/tcl/test/dotlrn-homework-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/tcl/test/dotlrn-homework-procs.tcl,v
diff -u -N -r1.4.2.2 -r1.4.2.3
--- openacs-4/packages/dotlrn-homework/tcl/test/dotlrn-homework-procs.tcl	19 Aug 2020 17:34:29 -0000	1.4.2.2
+++ openacs-4/packages/dotlrn-homework/tcl/test/dotlrn-homework-procs.tcl	21 Aug 2020 18:01:11 -0000	1.4.2.3
@@ -68,14 +68,20 @@
 aa_register_case -procs {
         dotlrn_homework_admin_portlet::link
         dotlrn_homework_portlet::link
+        dotlrn_homework_admin_portlet::get_pretty_name
+        dotlrn_homework_applet::get_pretty_name
+        dotlrn_homework_portlet::get_pretty_name
     } -cats {
         api
         production_safe
-    } dotlrn_homework_portlet_links {
-        Test diverse link procs.
+    } dotlrn_homework_portlet_links_names {
+        Test diverse link and name procs.
 } {
-    aa_equals "dotLRN homework admin portlet link" "[dotlrn_homework_admin_portlet::link]" ""
-    aa_equals "dotLRN homework portlet link"       "[dotlrn_homework_portlet::link]" ""
+    aa_equals "dotLRN homework admin portlet link"          "[dotlrn_homework_admin_portlet::link]" ""
+    aa_equals "dotLRN homework portlet link"                "[dotlrn_homework_portlet::link]" ""
+    aa_equals "dotLRN homework admin portlet pretty name"   "[dotlrn_homework_admin_portlet::get_pretty_name]" "#dotlrn-homework.homework_pretty_admin#"
+    aa_equals "dotLRN homework applet pretty name"          "[dotlrn_homework_applet::get_pretty_name]" "[_ dotlrn-homework.pretty_name]"
+    aa_equals "dotLRN homework portlet pretty name"         "[dotlrn_homework_portlet::get_pretty_name]" "#dotlrn-homework.pretty_name#"
 }
 
 aa_register_case -procs {