Changeset 52817 in webkit
- Timestamp:
- Jan 5, 2010 11:51:32 AM (14 years ago)
- Location:
- trunk/WebKitTools
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/WebKitTools/ChangeLog
r52816 r52817 1 2010-01-05 Chris Jerdonek <chris.jerdonek@gmail.com> 2 3 Reviewed by David Kilzer. 4 5 Switched to generating list of Perl unit test files dynamically, 6 instead of explicitly. 7 8 https://bugs.webkit.org/show_bug.cgi?id=33200 9 10 * Scripts/test-webkitperl: 11 1 12 2010-01-05 Yael Aharon <yael.aharon@nokia.com> 2 13 -
trunk/WebKitTools/Scripts/test-webkitperl
r52739 r52817 31 31 # Runs unit tests of WebKit Perl code. 32 32 33 use strict; 34 use warnings; 35 36 use File::Spec; 33 37 use FindBin; 34 38 use Test::Harness; … … 37 41 38 42 # Use an absolute path so this script can be run from any directory. 39 $scriptsDir = $FindBin::Bin; 40 $scriptsDir =~ s|/+$||; # Remove trailing '/' 43 my $scriptsDir = $FindBin::Bin; 41 44 42 # VCSUtils subroutines 43 my @files = ( 44 "fixChangeLogPatch.pl", 45 "generatePatchCommand.pl", 46 "gitdiff2svndiff.pl", 47 "runPatchCommand.pl", 48 ); 45 my $pattern = File::Spec->catfile($scriptsDir, "webkitperl/*_unittest/*.pl"); 49 46 50 @files = map "$scriptsDir/webkitperl/VCSUtils_unittest/$_", @files; # prepend 47 my @files = <${pattern}>; # lists files alphabetically 51 48 52 49 runtests(@files);
Note: See TracChangeset
for help on using the changeset viewer.