coar 01/11/09 04:21:09
Modified: perl-framework/t/apache limits.t
Log:
Count the tests right, and display skippage correctly, too
Revision Changes Path
1.8 +2 -3 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.7
retrieving revision 1.8
diff -u -u -r1.7 -r1.8
--- limits.t 2001/11/08 17:00:20 1.7
+++ limits.t 2001/11/09 12:21:09 1.8
@@ -95,11 +95,10 @@
#
if ($chunked) {
if ($LWP::VERSION < 5.60) {
- my $msg = '# Chunked upload not tested; '
+ my $msg = 'Chunked upload not tested; '
. 'not supported by this version of LWP';
- print $msg;
+ print "# $msg\n";
skip $msg, 1;
- $testnum++;
}
else {
my ($req, $resp, $url);