- Timestamp:
- 10/25/09 07:49:40 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/Release01x00/UnitTestContrib/lib/Unit/TestRunner.pm
r4912 r5375 5 5 use Devel::Symdump; 6 6 use Error qw(:try); 7 #use Devel::Leak::Object qw{ GLOBAL_bless }; 8 #$Devel::Leak::Object::TRACKSOURCELINES = 1; 7 9 8 10 sub new { … … 101 103 } 102 104 foreach my $test (@tests) { 105 #Devel::Leak::Object::checkpoint(); 103 106 print "\t$test\n"; 104 107 $tester->set_up(); … … 127 130 } 128 131 } 129 }132 } 130 133 131 134 if ( $this->{unexpected_failures} || $this->{unexpected_passes} ) {
Note: See TracChangeset
for help on using the changeset viewer.
