You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-cvs@httpd.apache.org by gb...@apache.org on 2001/11/09 12:49:56 UTC
cvs commit: httpd-test/perl-framework/t/apache rwrite.t
gbenson 01/11/09 03:49:56
Modified: perl-framework/t/apache rwrite.t
Log:
Use less memory
Revision Changes Path
1.3 +4 -4 httpd-test/perl-framework/t/apache/rwrite.t
Index: rwrite.t
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/t/apache/rwrite.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- rwrite.t 2001/08/24 06:42:12 1.2
+++ rwrite.t 2001/11/09 11:49:56 1.3
@@ -12,15 +12,15 @@
my $location = "/test_rwrite";
for my $size (@sizes) {
- my $value = 'a' x ($size * 1024);
- my $length = length $value;
+ my $length = $size * 1024;
print "getting $length bytes of data\n";
my $str = GET_BODY "$location?$length";
- ok $str eq $value;
-
printf "read %d bytes of data\n", length $str;
+
+ my $chunk = 'a' x 1024;
+ ok $str =~ /^($chunk){$size}$/;
}