Index: openacs-4/packages/acs-mail-lite/tcl/test/acs-mail-lite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/test/acs-mail-lite-procs.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/acs-mail-lite/tcl/test/acs-mail-lite-procs.tcl	17 Jul 2024 13:53:51 -0000	1.1.2.3
+++ openacs-4/packages/acs-mail-lite/tcl/test/acs-mail-lite-procs.tcl	28 Aug 2024 12:20:51 -0000	1.1.2.4
@@ -95,6 +95,19 @@
             }
 
         } -teardown_code {
+
+            #
+            # Delete the scheduled email
+            #
+            db_dml delete_scheduled_email {
+                delete from acs_mail_lite_queue
+                where object_id = :any_object_id
+                and to_addr = :to_addr
+                and from_addr = :from_addr
+                and subject = :subject
+                and body = :body
+            }
+
             parameter::set_value \
                 -package_id $package_id \
                 -parameter "send_immediately" \