Changeset 100287 in webkit
- Timestamp:
- Nov 15, 2011 9:25:51 AM (12 years ago)
- Location:
- trunk/Tools
- Files:
-
- 1 added
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Tools/ChangeLog
r100286 r100287 1 2011-11-15 David Kilzer <ddkilzer@apple.com> 2 3 Don't use File::Slurp for run-leaks unit tests 4 <http://webkit.org/b/72356> 5 6 Reviewed by Daniel Bates. 7 8 * Scripts/webkitperl/run-leaks_unittest/RunLeaks.pm: Added. 9 * Scripts/webkitperl/run-leaks_unittest/run-leaks-report-v1.0.pl: 10 Extracted common package logic into RunLeaks.pm. Fixed call to 11 RunLeaks::parseLeaksOutput(). 12 * Scripts/webkitperl/run-leaks_unittest/run-leaks-report-v2.0-new.pl: Ditto. 13 * Scripts/webkitperl/run-leaks_unittest/run-leaks-report-v2.0-old.pl: Ditto. 14 1 15 2011-11-15 Peter Kasting <pkasting@google.com> 2 16 -
trunk/Tools/Scripts/webkitperl/run-leaks_unittest/run-leaks-report-v1.0.pl
r100174 r100287 26 26 27 27 use strict; 28 use diagnostics;29 28 use warnings; 30 29 31 use File::Slurp qw(read_file);32 use File::Spec;33 30 use FindBin; 31 use lib $FindBin::Bin; 32 use RunLeaks; 34 33 use Test::More; 35 36 eval "package RunLeaks; sub {" . read_file(File::Spec->catfile($FindBin::Bin, "..", "..", "run-leaks")) . "}";37 34 38 35 my @input = split(/\n/, <<EOF); … … 159 156 ]; 160 157 161 my $actualOutput = RunLeaks::parseLeaksOutput( \@input);158 my $actualOutput = RunLeaks::parseLeaksOutput(@input); 162 159 163 160 plan(tests => 1); -
trunk/Tools/Scripts/webkitperl/run-leaks_unittest/run-leaks-report-v2.0-new.pl
r100174 r100287 27 27 28 28 use strict; 29 use diagnostics;30 29 use warnings; 31 30 32 use File::Slurp qw(read_file);33 use File::Spec;34 31 use FindBin; 32 use lib $FindBin::Bin; 33 use RunLeaks; 35 34 use Test::More; 36 37 eval "package RunLeaks; sub {" . read_file(File::Spec->catfile($FindBin::Bin, "..", "..", "run-leaks")) . "}";38 35 39 36 my @input = split(/\n/, <<EOF); … … 123 120 ]; 124 121 125 my $actualOutput = RunLeaks::parseLeaksOutput( \@input);122 my $actualOutput = RunLeaks::parseLeaksOutput(@input); 126 123 127 124 plan(tests => 1); -
trunk/Tools/Scripts/webkitperl/run-leaks_unittest/run-leaks-report-v2.0-old.pl
r100174 r100287 27 27 28 28 use strict; 29 use diagnostics;30 29 use warnings; 31 30 32 use File::Slurp qw(read_file);33 use File::Spec;34 31 use FindBin; 32 use lib $FindBin::Bin; 33 use RunLeaks; 35 34 use Test::More; 36 37 eval "package RunLeaks; sub {" . read_file(File::Spec->catfile($FindBin::Bin, "..", "..", "run-leaks")) . "}";38 35 39 36 my @input = split(/\n/, <<EOF); … … 73 70 ]; 74 71 75 my $actualOutput = RunLeaks::parseLeaksOutput( \@input);72 my $actualOutput = RunLeaks::parseLeaksOutput(@input); 76 73 77 74 plan(tests => 1);
Note: See TracChangeset
for help on using the changeset viewer.