Changeset 52817 in webkit


Ignore:
Timestamp:
Jan 5, 2010 11:51:32 AM (14 years ago)
Author:
eric@webkit.org
Message:

2010-01-05 Chris Jerdonek <chris.jerdonek@gmail.com>

Reviewed by David Kilzer.

Switched to generating list of Perl unit test files dynamically,
instead of explicitly.

https://bugs.webkit.org/show_bug.cgi?id=33200

  • Scripts/test-webkitperl:
Location:
trunk/WebKitTools
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/WebKitTools/ChangeLog

    r52816 r52817  
     12010-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
    1122010-01-05  Yael Aharon  <yael.aharon@nokia.com>
    213
  • trunk/WebKitTools/Scripts/test-webkitperl

    r52739 r52817  
    3131# Runs unit tests of WebKit Perl code.
    3232
     33use strict;
     34use warnings;
     35
     36use File::Spec;
    3337use FindBin;
    3438use Test::Harness;
     
    3741
    3842# Use an absolute path so this script can be run from any directory.
    39 $scriptsDir = $FindBin::Bin;
    40 $scriptsDir =~ s|/+$||; # Remove trailing '/'
     43my $scriptsDir = $FindBin::Bin;
    4144
    42 # VCSUtils subroutines
    43 my @files = (
    44     "fixChangeLogPatch.pl",
    45     "generatePatchCommand.pl",
    46     "gitdiff2svndiff.pl",
    47     "runPatchCommand.pl",
    48 );
     45my $pattern = File::Spec->catfile($scriptsDir, "webkitperl/*_unittest/*.pl");
    4946
    50 @files = map "$scriptsDir/webkitperl/VCSUtils_unittest/$_", @files; # prepend
     47my @files = <${pattern}>; # lists files alphabetically
    5148
    5249runtests(@files);
Note: See TracChangeset for help on using the changeset viewer.