Index: openacs-4/packages/dotlrn-static/tcl/test/dotlrn-static-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-static/tcl/test/Attic/dotlrn-static-test-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/dotlrn-static/tcl/test/dotlrn-static-test-procs.tcl	7 Oct 2020 17:32:09 -0000	1.1.2.2
+++ openacs-4/packages/dotlrn-static/tcl/test/dotlrn-static-test-procs.tcl	8 Oct 2020 06:36:10 -0000	1.1.2.3
@@ -26,6 +26,17 @@
 }
 
 aa_register_case -procs {
+        dotlrn_static::get_pretty_name
+    } -cats {
+        api
+        production_safe
+    } dotlrn_static_pretty_name {
+        Test get_pretty_name.
+} {
+    aa_equals "dotlrn-static pretty name" "[dotlrn_static::get_pretty_name]" "[_ [dotlrn_static::pretty_name_key]]"
+}
+
+aa_register_case -procs {
         dotlrn_static::add_applet
         dotlrn_static::add_portlet
         dotlrn_static::add_portlet_helper