Index: openacs-4/packages/rss-support/tcl/test/rss-utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/test/rss-utilities-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/rss-support/tcl/test/rss-utilities-procs.tcl	21 Oct 2021 11:45:03 -0000	1.1.2.2
+++ openacs-4/packages/rss-support/tcl/test/rss-utilities-procs.tcl	21 Oct 2021 11:52:06 -0000	1.1.2.3
@@ -6,15 +6,22 @@
     -cats {api smoke} \
     -procs {
         rss_package_id
+        rss_package_url
     } \
     rss__package_id {
         Test rss_package_id
     } {
+        set rss_package_id [rss_package_id]
+
         aa_equals "rss_package_id returns the expected result" \
-            [rss_package_id] \
+            $rss_package_id \
             [db_string get_package {
                 select package_id from apm_packages where package_key = 'rss-support'
             }]
+
+        aa_equals "Package URL is the expected one" \
+            [rss_package_url] \
+            [lindex [site_node::get_url_from_object_id -object_id $rss_package_id] 0]
     }
 
 aa_register_case \