Index: openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl,v
diff -u -r1.1.2.33 -r1.1.2.34
--- openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl	19 Aug 2024 17:07:35 -0000	1.1.2.33
+++ openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl	20 Aug 2024 09:28:04 -0000	1.1.2.34
@@ -2,32 +2,6 @@
     Test xotcl-core features
 }
 
-ad_proc ::xo::aa_check_leftovers {} {
-    #
-    # Perform cleanup tests to check for object/command leaks in
-    # either the called functions or in the test itself.
-    #
-} {
-    set stats [::xo::stats]
-
-    dict with stats {
-        aa_equals "leftover temp objects"     $tmpObjs 0
-        if {$tmpObjs > 0} {
-            foreach obj [info commands ::nsf::__#*] {
-                set isXotcl [::nsf::dispatch $obj ::nsf::methods::object::info::hastype ::xotcl::Object]
-                set isNx    [::nsf::dispatch $obj ::nsf::methods::object::info::hastype ::nx::Object]
-                aa_log obj $obj (isXotcl $isXotcl isNx $isNx)
-                aa_log <pre>[$obj serialize]</pre>
-            }
-        }
-        aa_equals "leftover tdom cmds"        $tdom 0
-
-        aa_log    "final xotcl objects: $xotcl"
-        aa_log    "final nx objects: $nx"
-        aa_log    "final nssets: $nssets"
-    }
-}
-
 aa_register_case -cats {
     api smoke
 } -procs {
@@ -182,7 +156,6 @@
         aa_true "Object is not there anymore" {!$orm_exists_p && !$db_exists_p}
 
     }
-    ::xo::aa_check_leftovers
 }
 
 aa_register_case -cats {
@@ -375,7 +348,6 @@
         aa_true "Object is not there anymore" {!$orm_exists_p && !$db_exists_p}
 
     }
-    ::xo::aa_check_leftovers
 }
 
 aa_register_case -cats {
Fisheye: Tag 1.1.2.2 refers to a dead (removed) revision in file `openacs-4/packages/xotcl-core/tcl/test/zz-final-procs.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?