httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test Changes
Date Wed, 26 May 2004 02:14:37 GMT
stas        2004/05/25 19:14:36

  Modified:    perl-framework/Apache-Test/lib/Apache TestRun.pm
               perl-framework/Apache-Test Changes
  Log:
  Tweak Apache::TestRun to support test filenames starting with
  /(.\\)?t\\/ prefixes, windows style (needed for t/SMOKE)
  
  Revision  Changes    Path
  1.170     +5 -5      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.169
  retrieving revision 1.170
  diff -u -u -r1.169 -r1.170
  --- TestRun.pm	13 May 2004 01:09:26 -0000	1.169
  +++ TestRun.pm	26 May 2004 02:14:36 -0000	1.170
  @@ -29,7 +29,7 @@
   use ExtUtils::MakeMaker;
   use File::Find qw(finddepth);
   use File::Path;
  -use File::Spec::Functions qw(catfile catdir);
  +use File::Spec::Functions qw(catfile catdir canonpath);
   use File::Basename qw(basename dirname);
   use Getopt::Long qw(GetOptions);
   use Config;
  @@ -150,9 +150,9 @@
       my @leftovers = ();
       for (@$argv) {
           my $arg = $_;
  -        # need the t/ for stat-ing, but don't want to include it in
  -        # test output
  -        $arg =~ s@^(?:\./)?t/@@;
  +        # need the t/ (or t\) for stat-ing, but don't want to include
  +        # it in test output
  +        $arg =~ s@^(?:\.[\\/])?t[\\/]@@;
           my $file = catfile $t_dir, $arg;
           if (-d $file and $_ ne '/') {
               my @files = <$file/*.t>;
  @@ -185,7 +185,7 @@
           push @leftovers, $_;
       }
   
  -    $self->{tests} = \@tests;
  +    $self->{tests} = [ map { canonpath($_) } @tests ];
       $self->{argv}  = \@leftovers;
   }
   
  
  
  
  1.134     +3 -0      httpd-test/perl-framework/Apache-Test/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/Changes,v
  retrieving revision 1.133
  retrieving revision 1.134
  diff -u -u -r1.133 -r1.134
  --- Changes	21 May 2004 18:29:51 -0000	1.133
  +++ Changes	26 May 2004 02:14:36 -0000	1.134
  @@ -10,6 +10,9 @@
   
   =item 1.11 - May 21, 2004
   
  +Tweak Apache::TestRun to support test filenames starting with
  +/(.\\)?t\\/ prefixes, windows style (needed for t/SMOKE) [Steve Hay]
  +
   if we fail to match the Apache revision (which is OK at the early
   stages, like 'perl Makefile.PL', default to a non-existing revision
   0. But provide no more misleading defaults (used to default to
  
  
  

Mime
View raw message