httpd-test-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Stas Bekman <s...@stason.org>
Subject [patch] don't complain about old core files
Date Sun, 23 Dec 2001 17:20:21 GMT
this patch:
- s/scan/scan_core/ for consistency with warn_core
- don't complain aload when an old core from some old run is found
  (i'm tired of remembering to remove old core files)

Index: Apache-Test/lib/Apache/TestRun.pm
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v
retrieving revision 1.76
diff -u -r1.76 TestRun.pm
--- Apache-Test/lib/Apache/TestRun.pm	2001/12/22 02:28:27	1.76
+++ Apache-Test/lib/Apache/TestRun.pm	2001/12/23 17:16:04
@@ -16,6 +16,8 @@

 use constant STARTUP_TIMEOUT => 300; # secs (good for extreme debug cases)

+my %core_files  = ();
+
 my @std_run      = qw(start-httpd run-tests stop-httpd);
 my @others       = qw(verbose configure clean help ssl http11);
 my @flag_opts    = (@std_run, @others);
@@ -274,7 +276,7 @@
              local $?; # preserve the exit status
              eval {
                 Apache::TestRun->new(test_config =>
-                                     Apache::TestConfig->thaw)->scan;
+                                     Apache::TestConfig->thaw)->scan_core;
              };
          }';
 }
@@ -573,7 +575,7 @@
     $oh[ rand scalar @oh ];
 }

-sub scan {
+sub scan_core {
     my $self = shift;
     my $vars = $self->{test_config}->{vars};
     my $times = 0;
@@ -581,10 +583,16 @@
     finddepth(sub {
         return unless /^core$/;
         my $core = "$File::Find::dir/$_";
-        my $oh = oh();
-        my $again = $times++ ? "again" : "";
-        error "oh $oh, server dumped core $again";
-        error "for stacktrace, run: gdb $vars->{httpd} -core $core";
+        if (exists $core_files{$core} && $core_files{$core} == -M $core) {
+            # we have seen this core file before the start of the test
+            info "an old core file has been found: $core";
+        }
+        else {
+            my $oh = oh();
+            my $again = $times++ ? "again" : "";
+            error "oh $oh, server dumped core $again";
+            error "for stacktrace, run: gdb $vars->{httpd} -core $core";
+        }
     }, $vars->{top_dir});
 }

@@ -594,11 +602,15 @@
 sub warn_core {
     my $self = shift;
     my $vars = $self->{test_config}->{vars};
+    %core_files = (); # reset global

     finddepth(sub {
         return unless /^core$/;
         my $core = "$File::Find::dir/$_";
         error "consider removing an old $core file before running tests";
+        # remember the timestamp of $core so we can check if it's the
+        # old core file at the end of the run and not complain then
+        $core_files{$core} = -M $core;
     }, $vars->{top_dir});
 }

_____________________________________________________________________
Stas Bekman             JAm_pH      --   Just Another mod_perl Hacker
http://stason.org/      mod_perl Guide   http://perl.apache.org/guide
mailto:stas@stason.org  http://ticketmaster.com http://apacheweek.com
http://singlesheaven.com http://perl.apache.org http://perlmonth.com/


Mime
View raw message