Index: openacs-4/packages/news/tcl/test/news-db-test-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/test/news-db-test-init.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/news/tcl/test/news-db-test-init.tcl	27 Feb 2005 22:45:40 -0000	1.7
+++ openacs-4/packages/news/tcl/test/news-db-test-init.tcl	4 Aug 2005 02:11:48 -0000	1.8
@@ -74,6 +74,7 @@
             if {$_news_package_id != -1} {
                 aa_log "Deleting existing package instance."
                 set p_package_id $_news_package_id
+                rss_support::del_subscription -summary_context_id $p_package_id -owner news -impl_name news
                 db_exec_plsql package-delete {
                     begin
                     apm_package.del(:p_package_id);
@@ -106,6 +107,7 @@
         site_map_unmount_application -delete_p t $_news_node_id 
         site_node::delete -node_id $_test_node_id
         set p_package_id $_news_package_id
+        rss_support::del_subscription -summary_context_id $p_package_id -owner news -impl_name news
         db_exec_plsql package-delete {
             begin
             apm_package.del(:p_package_id)