Index: openacs-4/packages/assessment/tcl/test/twt-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/test/twt-procs.tcl,v
diff -u -r1.6.2.1 -r1.6.2.2
--- openacs-4/packages/assessment/tcl/test/twt-procs.tcl	9 Sep 2022 13:03:10 -0000	1.6.2.1
+++ openacs-4/packages/assessment/tcl/test/twt-procs.tcl	15 Sep 2022 11:09:21 -0000	1.6.2.2
@@ -78,23 +78,6 @@
     aa_log $errmsg
 }
 
-aa_register_case cleanup_test {
-    cleanup cruft from previous tests
-} {
-    db_multirow assessments q "
-select distinct item_id,title from as_assessmentsx where title like '__test%'
-"
-    template::multirow foreach assessments {
-aa_log "Found assessment_id $item_id title $title"
-	as::assessment::delete -assessment_id $item_id
-    }
-    db_multirow users q "
-select user_id from cc_users where email like '%test.test'
-" {
-    catch {acs::test::user::delete -user_id $user_id} errmsg
-    aa_log $errmsg
-}
-}
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4