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/lib/Apache TestSmoke.pm
Date Tue, 11 Dec 2001 05:14:46 GMT
stas        01/12/10 21:14:46

  Modified:    perl-framework/Apache-Test/lib/Apache TestSmoke.pm
  Log:
  abstract the function build_config_as_string that fetches the build
  enviroment, since the smoke testing can run in a non-modperl env.
  
  Revision  Changes    Path
  1.4       +10 -4     httpd-test/perl-framework/Apache-Test/lib/Apache/TestSmoke.pm
  
  Index: TestSmoke.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestSmoke.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- TestSmoke.pm	2001/12/10 08:37:55	1.3
  +++ TestSmoke.pm	2001/12/11 05:14:46	1.4
  @@ -4,7 +4,6 @@
   use warnings FATAL => 'all';
   
   use Apache::TestTrace;
  -use ModPerl::Config ();
   
   use Getopt::Long qw(GetOptions);
   use Digest::MD5 ();
  @@ -356,9 +355,8 @@
           my $successes = $self->{total_reduction_successes};
           my $reduction_stats = sprintf "%d/%d (%d%% success)",
               $attempts, $successes, $successes / $attempts * 100;
  +        my $cfg_as_string = $self->build_config_as_string;
   
  -        my $env = ModPerl::Config::config_as_str();
  -
           print $fh <<EOM;
   $sep
   Totals:
  @@ -370,10 +368,18 @@
   --- Ended   at: $end_time ---
   $sep
   The smoke testing was run on the system with the following parameters:
  -$env
  +$cfg_as_string
   EOM
           close $fh;
       }
  +}
  +
  +sub build_config_as_string {
  +    my($self) = @_;
  +
  +    require Apache::TestConfig;
  +
  +    return Apache::TestConfig::as_string();
   }
   
   sub kill_proc {
  
  
  

Mime
View raw message