cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestRun.pm

[dougm]

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;
               }
           }