Index: openacs-4/packages/news-portlet/tcl/test/news-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-portlet/tcl/test/news-portlet-procs.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/news-portlet/tcl/test/news-portlet-procs.tcl	5 Oct 2020 13:56:02 -0000	1.1.2.3
+++ openacs-4/packages/news-portlet/tcl/test/news-portlet-procs.tcl	5 Oct 2020 14:00:22 -0000	1.1.2.4
@@ -7,17 +7,22 @@
 }
 
 aa_register_case -procs {
-        news_admin_portlet::link
         news_portlet::link
+        news_portlet::get_pretty_name
+        news_admin_portlet::link
         news_admin_portlet::get_pretty_name
     } -cats {
         api
         production_safe
     } news_portlet_links_names {
         Test diverse link and name procs.
 } {
-    aa_equals "News admin portlet link"         "[news_admin_portlet::link]" ""
+    set portlet_pretty_name [parameter::get_from_package_key \
+                                -package_key [news_portlet::my_package_key] \
+                                -parameter news_portlet_pretty_name]
     aa_equals "News portlet link"               "[news_portlet::link]" ""
+    aa_equals "News portlet pretty_name"        "[news_portlet::get_pretty_name]" "$portlet_pretty_name"
+    aa_equals "News admin portlet link"         "[news_admin_portlet::link]" ""
     aa_equals "News admin portlet pretty name"  "[news_admin_portlet::get_pretty_name]" "#news-portlet.admin_pretty_name#"
 }