Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v
diff -u -r1.79.2.59 -r1.79.2.60
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	9 May 2022 17:05:48 -0000	1.79.2.59
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	26 Jun 2022 19:28:27 -0000	1.79.2.60
@@ -2082,6 +2082,7 @@
 
     ad_proc ::acs::test::user::delete {
         {-user_id:required}
+        {-delete_created_acs_objects:boolean false}
     } {
         Remove a test user.
     } {
@@ -2095,16 +2096,22 @@
             SET modifying_user = NULL
             where modifying_user = :user_id
         }
+        #
+        # If desired, delete the created acs_objects of this user.
+        #
+        if {$delete_created_acs_objects_p} {
+            db_dml unset_modifying_user {
+                delete from acs_objects where creation_user = :user_id
+            }
+        }
         acs_user::delete \
             -user_id $user_id \
             -permanent
     }
-
 }
 
 
 
-
 namespace eval aa_test {}
 
 ad_proc -public aa_test::xml_report_dir {} {