httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/t/apache post.t
Date Thu, 01 Nov 2001 20:49:48 GMT
dougm       01/11/01 12:49:48

  Modified:    perl-framework/t/apache post.t
  Log:
  make possible to run selected tests
  
  Revision  Changes    Path
  1.4       +8 -6      httpd-test/perl-framework/t/apache/post.t
  
  Index: post.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/apache/post.t,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- post.t	2001/08/24 06:42:12	1.3
  +++ post.t	2001/11/01 20:49:48	1.4
  @@ -12,15 +12,17 @@
   my $location = "/echo_post";
   
   for my $size (@sizes) {
  -    my $value = 'a' x ($size * 1024);
  -    my $length = length $value;
  +    sok {
  +        my $value = 'a' x ($size * 1024);
  +        my $length = length $value;
   
  -    print "posting $length bytes of data\n";
  +        print "posting $length bytes of data\n";
   
  -    my $str = POST_BODY $location, content => $value;
  +        my $str = POST_BODY $location, content => $value;
   
  -    ok $str eq $value;
  +        printf "read %d bytes of POST data\n", length $str;
   
  -    printf "read %d bytes of POST data\n", length $str;
  +        $str eq $value;
  +    };
   }
   
  
  
  

Mime
View raw message