Index: openacs-4/packages/rss-support/tcl/test/rss-generation-service-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/test/rss-generation-service-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/rss-support/tcl/test/rss-generation-service-procs.tcl	21 Oct 2021 11:32:28 -0000	1.1.2.2
+++ openacs-4/packages/rss-support/tcl/test/rss-generation-service-procs.tcl	21 Oct 2021 11:55:53 -0000	1.1.2.3
@@ -8,8 +8,10 @@
         rss_gen_report_file
         rss_gen_report
         rss_support::get_subscr_id
+        rss_support::subscription_exists
         rss_gen
         rss_gen_091
+        rss_gen_100
         rss_gen_200
     } \
     rss__gen_report {
@@ -30,6 +32,11 @@
             return
         }
 
+        aa_true "rss_support::subscription_exists tells that a subscription exists" \
+            [rss_support::subscription_exists \
+                 -summary_context_id $summary_context_id \
+                 -impl_name $impl_name]
+
         set report_file [rss_gen_report_file \
                              -summary_context_id $summary_context_id \
                              -impl_name $impl_name]