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 {
