Index: openacs-4/packages/fs-portlet/tcl/test/fs-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/tcl/test/Attic/fs-portlet-procs.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/fs-portlet/tcl/test/fs-portlet-procs.tcl	19 Aug 2020 17:04:18 -0000	1.1.2.1
+++ openacs-4/packages/fs-portlet/tcl/test/fs-portlet-procs.tcl	24 Aug 2020 10:09:23 -0000	1.1.2.2
@@ -21,6 +21,19 @@
     aa_equals "FS contents portlet link"    "[fs_contents_portlet::link]" ""
 }
 
+aa_register_case -procs {
+        fs_admin_portlet::get_pretty_name
+        fs_contents_portlet::get_pretty_name
+    } -cats {
+        api
+        production_safe
+    } fs_portlet__names {
+        Test diverse name procs.
+} {
+    aa_equals "Pretty name" "[fs_admin_portlet::get_pretty_name]" "#fs-portlet.lt_File_Storage_Administ#"
+    aa_true "Contents pretty name should return an error" "[catch {fs_contents_portlet::get_pretty_name}]"
+}
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4