dougm 01/12/19 20:22:45
Modified: perl-framework/t/apache limits.t
Log:
skip if lwp is not installed
Revision Changes Path
1.10 +5 -4 httpd-test/perl-framework/t/apache/limits.t
Index: limits.t
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/t/apache/limits.t,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- limits.t 2001/11/12 08:17:14 1.9
+++ limits.t 2001/12/20 04:22:45 1.10
@@ -8,7 +8,6 @@
use Apache::Test;
use Apache::TestRequest;
use Apache::TestUtil;
-use LWP;
#
# These values are chosen to exceed the limits in extra.conf, namely:
@@ -50,13 +49,15 @@
# appropriate level of LWP support.
#
-if ($LWP::VERSION < 5.60) {
+my $no_chunking = defined($LWP::VERSION) && $LWP::VERSION < 5.60;
+if ($no_chunking) {
print "# Chunked upload tests will NOT be performed;\n",
"# LWP 5.60 or later is required and you only have ",
"$LWP::VERSION installed.\n";
}
+
my $subtests = (@conditions * 2) + 2;
-plan tests => $subtests;
+plan tests => $subtests, \&have_lwp;
my $testnum = 1;
foreach my $cond (@conditions) {
@@ -94,7 +95,7 @@
# drained and discarded.
#
if ($chunked) {
- if ($LWP::VERSION < 5.60) {
+ if ($no_chunking) {
my $msg = 'Chunked upload not tested; '
. 'not supported by this version of LWP';
print "# $msg\n";
