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 Apache-Test/lib/Apache/TestConfig.pm] t/conf creation
Date Tue, 26 Mar 2002 07:37:32 GMT

if there is no t/conf in first place you get:

% t/TEST -conf
setting ulimit to allow core files
ulimit -c unlimited; t/TEST -conf
cleaning out current configuration
Can't stat /home/stas/apache.org/httpd-apreq/t/conf: No such file or 
directory
reconfiguration done

this patch moves the creation of t/conf to as early as possible

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.86
diff -u -r1.86 TestRun.pm
--- Apache-Test/lib/Apache/TestRun.pm	7 Mar 2002 05:20:18 -0000	1.86
+++ Apache-Test/lib/Apache/TestRun.pm	26 Mar 2002 07:33:58 -0000
@@ -369,6 +369,9 @@
 sub configure {
     my $self = shift;
 
+    # create the conf dir as early as possible
+    $self->{test_config}->prepare_t_conf();
+
     my $save = \$self->{conf_opts}->{save};
     $self->configure_opts($save);
 
Index: Apache-Test/lib/Apache/TestConfig.pm
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm,v
retrieving revision 1.123
diff -u -r1.123 TestConfig.pm
--- Apache-Test/lib/Apache/TestConfig.pm	23 Jan 2002 21:57:10 -0000	1.123
+++ Apache-Test/lib/Apache/TestConfig.pm	26 Mar 2002 07:33:59 -0000
@@ -1090,6 +1090,11 @@
     return "";
 }
 
+sub prepare_t_conf {
+    my $self = shift;
+    $self->gendir($self->{vars}->{t_conf});
+}
+
 sub generate_httpd_conf {
     my $self = shift;
     my $vars = $self->{vars};
@@ -1098,9 +1103,7 @@
     $self->generate_types_config;
     $self->generate_index_html;
 
-    for (qw(t_logs t_conf)) {
-        $self->gendir($self->{vars}->{$_});
-    }
+    $self->gendir($vars->{t_logs});
 
     if (my $extra_conf = $self->generate_extra_conf) {
         for my $file (@$extra_conf) {

__________________________________________________________________
Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/     mod_perl Guide ---> http://perl.apache.org 
mailto:stas@stason.org http://use.perl.org http://apacheweek.com  
http://modperlbook.org http://apache.org   http://ticketmaster.com


Mime
View raw message