perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject svn commit: r122885 - /perl/modperl/trunk/t/vhost/config.t /perl/modperl/trunk/t/vhost/log.t
Date Mon, 20 Dec 2004 22:06:17 GMT
Author: stas
Date: Mon Dec 20 14:06:15 2004
New Revision: 122885

URL: http://svn.apache.org/viewcvs?view=rev&rev=122885
Log:
cleanups

Modified:
   perl/modperl/trunk/t/vhost/config.t
   perl/modperl/trunk/t/vhost/log.t

Modified: perl/modperl/trunk/t/vhost/config.t
Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/vhost/config.t?view=diff&rev=122885&p1=perl/modperl/trunk/t/vhost/config.t&r1=122884&p2=perl/modperl/trunk/t/vhost/config.t&r2=122885
==============================================================================
--- perl/modperl/trunk/t/vhost/config.t	(original)
+++ perl/modperl/trunk/t/vhost/config.t	Mon Dec 20 14:06:15 2004
@@ -1,12 +1,10 @@
 # the handler is configured in modperl_extra.pl via
 # Apache->server->add_config
 
+use Apache::Test;
 use Apache::TestUtil;
 use Apache::TestRequest 'GET';
 
-my $config = Apache::Test::config();
-my $vars = $config->{vars};
-
 my $module = 'TestVhost::config';
 my $url    = Apache::TestRequest::module2url($module);
 
@@ -18,9 +16,9 @@
 }
 else {
     if ($res->code == 404) {
-        my $documentroot = $vars->{documentroot};
+        my $docroot = Apache::Test::vars('documentroot');
         die "this test gets its <Location> configuration added via " .
-            "$documentroot/vhost/startup.pl, this could be the cause " .
+            "$docroot/vhost/startup.pl, this could be the cause " .
             "of the failure";
     }
     else {

Modified: perl/modperl/trunk/t/vhost/log.t
Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/vhost/log.t?view=diff&rev=122885&p1=perl/modperl/trunk/t/vhost/log.t&r1=122884&p2=perl/modperl/trunk/t/vhost/log.t&r2=122885
==============================================================================
--- perl/modperl/trunk/t/vhost/log.t	(original)
+++ perl/modperl/trunk/t/vhost/log.t	Mon Dec 20 14:06:15 2004
@@ -1,9 +1,6 @@
 use Apache::TestUtil;
 use Apache::TestRequest 'GET_BODY_ASSERT';
 
-my $config = Apache::Test::config();
-my $vars = $config->{vars};
-
 my $module = 'TestVhost::log';
 my $url    = Apache::TestRequest::module2url($module);
 

Mime
View raw message