httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestRun.pm
Date Sun, 11 Nov 2001 21:10:37 GMT
dougm       01/11/11 13:10:37

  Modified:    perl-framework/Apache-Test/lib/Apache TestRun.pm
  Log:
  support range of subtests: t/TEST t/foo/bar 60..65
  
  Revision  Changes    Path
  1.67      +8 -2      httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm
  
  Index: TestRun.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v
  retrieving revision 1.66
  retrieving revision 1.67
  diff -u -r1.66 -r1.67
  --- TestRun.pm	2001/11/07 11:30:20	1.66
  +++ TestRun.pm	2001/11/11 21:10:37	1.67
  @@ -106,8 +106,14 @@
                   push @tests, "$arg.t";
                   next;
               }
  -            elsif (/^\d+$/) {
  -                push @{ $self->{subtests} }, $_;
  +            elsif (/^[\d.]+$/) {
  +                my @t = $_;
  +                #support range of subtests: t/TEST t/foo/bar 60..65
  +                if (/^(\d+)\.\.(\d+)$/) {
  +                    @t =  $1..$2;
  +                }
  +
  +                push @{ $self->{subtests} }, @t;
                   next;
               }
           }
  
  
  

Mime
View raw message