Mailing-List: contact test-cvs-help@httpd.apache.org; run by ezmlm
Precedence: bulk
Reply-To: test-dev@httpd.apache.org
Date: 1 Nov 2001 20:49:48 -0000
Message-ID: <20011101204948.70469.qmail@icarus.apache.org>
From: dougm@apache.org
To: httpd-test-cvs@apache.org
Subject: cvs commit: httpd-test/perl-framework/t/apache post.t

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;
  +    };
   }