Mailing-List: contact test-cvs-help@httpd.apache.org; run by ezmlm
Precedence: bulk
Reply-To: test-dev@httpd.apache.org
Date: 21 Jun 2002 03:17:51 -0000
Message-ID: <20020621031751.20992.qmail@icarus.apache.org>
From: dougm@apache.org
To: httpd-test-cvs@apache.org
Subject: cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache
 TestRun.pm

dougm       2002/06/20 20:17:51

  Modified:    perl-framework/Apache-Test/lib/Apache TestRun.pm
  Log:
  better core file matching
  
  Revision  Changes    Path
  1.93      +5 -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.92
  retrieving revision 1.93
  diff -u -r1.92 -r1.93
  --- TestRun.pm	30 May 2002 05:41:58 -0000	1.92
  +++ TestRun.pm	21 Jun 2002 03:17:51 -0000	1.93
  @@ -601,13 +601,16 @@
       $oh[ rand scalar @oh ];
   }
   
  +#e.g. t/core or t/core.12499
  +my $core_pat = '^core(\.\d+)?' . "\$";
  +
   sub scan_core {
       my $self = shift;
       my $vars = $self->{test_config}->{vars};
       my $times = 0;
   
       finddepth(sub {
  -        return unless /^core$/;
  +        return unless /$core_pat/o;
           my $core = "$File::Find::dir/$_";
           if (exists $core_files{$core} && $core_files{$core} == -M $core) {
               # we have seen this core file before the start of the test
  @@ -631,7 +634,7 @@
       %core_files = (); # reset global
   
       finddepth(sub {
  -        return unless /^core$/;
  +        return unless /$core_pat/o;
           my $core = "$File::Find::dir/$_";
           info "consider removing an old $core file before running tests";
           # remember the timestamp of $core so we can check if it's the