You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by pg...@apache.org on 2006/07/13 05:51:43 UTC
svn commit: r421492 - /perl/modperl/trunk/t/modperl/local_env.t
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;