Changeset 5392 for trunk/UnitTestContrib/lib/Unit/TestRunner.pm

Timestamp:

10/29/09 11:09:03 (3 years ago)

Author:

SvenDowideit

Message:

Item2286: port memory leak changes from rel branch

File:

• trunk/UnitTestContrib/lib/Unit/TestRunner.pm (modified) (3 diffs)

trunk/UnitTestContrib/lib/Unit/TestRunner.pm

@@ -5 +5 @@
 use Devel::Symdump;
 use Error qw(:try);
+#use Devel::Leak::Object qw{ GLOBAL_bless };
+#$Devel::Leak::Object::TRACKSOURCELINES = 1;
 
 sub new {
@@ -103 +105 @@
             die "Test suite $suite aborted\n" unless $completed;
         }
-    }
+   }
 
     if ( $this->{unexpected_failures} || $this->{unexpected_passes} ) {
@@ -267 +269 @@
     }
     foreach my $test (@tests) {
+                #Devel::Leak::Object::checkpoint();
         print "\t$test\n";
         $tester->set_up();