Index: openacs-4/packages/notifications/www/test-cleanup.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/www/test-cleanup.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/notifications/www/test-cleanup.tcl	16 Jan 2003 13:53:40 -0000	1.2
@@ -0,0 +1,13 @@
+ad_page_contract {
+
+    Simple script to test the cleanup of notifications that have been sent to
+    users.
+
+    To use this for testing remove your local copy of ../tcl/sweep-init.tcl, restart
+    your server and use ../www/test to send notifications for a particular interval.
+    Afterwards run this script to verify that sent notifications are properly cleaned up.
+
+}
+
+notification::sweep::cleanup_notifications
+ns_return 200 text/html "done"