httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From gben...@apache.org
Subject cvs commit: httpd-test/perl-framework/t/apache rwrite.t
Date Fri, 09 Nov 2001 11:49:56 GMT
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}$/;
   }
   
  
  
  

Mime
View raw message