perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pgollu...@apache.org
Subject svn commit: r421492 - /perl/modperl/trunk/t/modperl/local_env.t
Date Thu, 13 Jul 2006 03:51:43 GMT
Author: pgollucci
Date: Wed Jul 12 20:51:43 2006
New Revision: 421492

URL: http://svn.apache.org/viewvc?rev=421492&view=rev
Log:
It would be good if I committed things without leaving old 
code "commented" out


Modified:
    perl/modperl/trunk/t/modperl/local_env.t

Modified: perl/modperl/trunk/t/modperl/local_env.t
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/t/modperl/local_env.t?rev=421492&r1=421491&r2=421492&view=diff
==============================================================================
--- perl/modperl/trunk/t/modperl/local_env.t (original)
+++ perl/modperl/trunk/t/modperl/local_env.t Wed Jul 12 20:51:43 2006
@@ -10,26 +10,3 @@
 
 t_debug "connecting to $url";
 print GET_BODY_ASSERT $url;
-
-__END__
-use strict;
-use warnings FATAL => 'all';
-
-use Apache::Test;
-use Apache::TestRequest qw(GET);
-
-plan tests => 1;
-
-my $module = 'TestModperl::local_env';
-my $url = Apache::TestRequest::module2url($module);
-                      ;
-my $failed;
-foreach (1..25) {
-    my $req = GET $url;
-    unless ($req->is_success) {
-        $failed = 1;
-        last;
-    }
-}
-
-ok !$failed;



Mime
View raw message