perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From go...@apache.org
Subject svn commit: r388308 - /perl/modperl/trunk/t/response/TestAPI/add_config.pm
Date Fri, 24 Mar 2006 00:54:29 GMT
Author: gozer
Date: Thu Mar 23 16:54:27 2006
New Revision: 388308

URL: http://svn.apache.org/viewcvs?rev=388308&view=rev
Log:
Cleanup this test and make sure it's exerciced
correctly under 2.2.x


Modified:
    perl/modperl/trunk/t/response/TestAPI/add_config.pm

Modified: perl/modperl/trunk/t/response/TestAPI/add_config.pm
URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestAPI/add_config.pm?rev=388308&r1=388307&r2=388308&view=diff
==============================================================================
--- perl/modperl/trunk/t/response/TestAPI/add_config.pm (original)
+++ perl/modperl/trunk/t/response/TestAPI/add_config.pm Thu Mar 23 16:54:27 2006
@@ -53,6 +53,11 @@
     };
     $r->pnotes(add_config2 => "$@");
 
+    eval {
+        $r->add_config(['AllowOverride Options=FollowSymLinks'], -1);
+    };
+    $r->pnotes(followsymlinks => "$@");
+
     return Apache2::Const::DECLINED;
 }
 
@@ -77,26 +82,25 @@
     my ($self, $r) = @_;
     my $cf = $self->get_config($r->server);
 
-    plan $r, tests => 7;
+    plan $r, tests => 8;
 
     ok t_cmp $r->pnotes('add_config1'), qr/.+\n/;
     ok t_cmp $r->pnotes('add_config2'), (APACHE22 ? qr/.+\n/ : '');
     ok t_cmp $r->pnotes('add_config3'), '';
     ok t_cmp $r->pnotes('add_config4'), qr/after server startup/;
+    ok t_cmp $r->pnotes('followsymlinks'), (APACHE22 ? '': qr/.*\n/);
 
-    my $default_opts = 0;
-    unless (APACHE22) {
-        $default_opts = Apache2::Const::OPT_UNSET |
-                        Apache2::Const::OPT_INCNOEXEC |
-                        Apache2::Const::OPT_MULTI;
-    }
-   
-    my $expect = $default_opts | Apache2::Const::OPT_ALL 
-                               | Apache2::Const::OPT_SYM_OWNER;
+    my $expect =  Apache2::Const::OPT_ALL |
+                  Apache2::Const::OPT_UNSET |
+                  Apache2::Const::OPT_INCNOEXEC |
+                  Apache2::Const::OPT_MULTI |
+                  Apache2::Const::OPT_SYM_OWNER;
 
     ok t_cmp $cf->{override_opts}, $expect;
-    ok t_cmp $r->allow_override_opts, $expect;
     ok t_cmp $r->allow_options, Apache2::Const::OPT_EXECCGI;
+
+    my $opts = APACHE22 ? Apache2::Const::OPT_SYM_LINKS : $expect;
+    ok t_cmp $r->allow_override_opts, $opts;
 
     return Apache2::Const::OK;
 }



Mime
View raw message