Index: openacs-4/packages/bm-portlet/tcl/test/bm-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bm-portlet/tcl/test/Attic/bm-portlet-procs.tcl,v
diff -u -N -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/bm-portlet/tcl/test/bm-portlet-procs.tcl	2 Oct 2020 16:50:14 -0000	1.1.2.2
+++ openacs-4/packages/bm-portlet/tcl/test/bm-portlet-procs.tcl	2 Oct 2020 16:59:20 -0000	1.1.2.3
@@ -77,6 +77,18 @@
     }
 }
 
+aa_register_case -procs {
+        bm_portlet::get_pretty_name
+    } -cats {
+        api
+        production_safe
+    } bm_portlet_pretty_name {
+        Test get_pretty_name proc.
+} {
+    set pretty_name [parameter::get_from_package_key -package_key [bm_portlet::my_package_key] -parameter pretty_name]
+    aa_equals "bm_portlet pretty name" "[bm_portlet::get_pretty_name]" "$pretty_name"
+}
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4