Mailing-List: contact test-cvs-help@httpd.apache.org; run by ezmlm
Precedence: bulk
Reply-To: test-dev@httpd.apache.org
Date: 21 Nov 2001 21:00:06 -0000
Message-ID: <20011121210006.17430.qmail@icarus.apache.org>
From: dougm@apache.org
To: httpd-test-cvs@apache.org
Subject: cvs commit: httpd-test/perl-framework/t/apache passbrigade.t rwrite.t

dougm       01/11/21 13:00:06

  Modified:    perl-framework/t/apache passbrigade.t rwrite.t
  Log:
  switch to using Apache::TestCommon::run_write_test()
  
  Revision  Changes    Path
  1.2       +2 -24     httpd-test/perl-framework/t/apache/passbrigade.t
  
  Index: passbrigade.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/apache/passbrigade.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- passbrigade.t	2001/11/20 22:52:23	1.1
  +++ passbrigade.t	2001/11/21 21:00:06	1.2
  @@ -1,29 +1,7 @@
   use strict;
   use warnings FATAL => 'all';
   
  -use Apache::Test;
  -use Apache::TestRequest;
  +use Apache::TestCommon ();
   
  -#1k..9k, 10k..50k, 100k, 300k, 500k, 2Mb, 4Mb, 6Mb, 10Mb
  -my @sizes = (1..9, 10..50, 100, 300, 500, 2000, 4000, 6000, 10_000);
  -my @buff_sizes = (1024, 8192);
  -
  -plan tests => @sizes * @buff_sizes, [qw(test_pass_brigade LWP)];
  -
  -my $location = "/test_pass_brigade";
  -
  -for my $buff_size (@buff_sizes) {
  -    for my $size (@sizes) {
  -        my $length = $size * 1024;
  -
  -        print "getting $length bytes of data\n";
  -
  -        my $str = GET_BODY "$location?$buff_size,$length";
  -
  -        printf "read %d bytes of data\n", length $str;
  -
  -        my $chunk = 'a' x 1024;
  -        ok $str =~ /^($chunk){$size}$/;
  -    }
  -}
  +Apache::TestCommon::run_write_test('test_pass_brigade');
   
  
  
  
  1.5       +2 -25     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.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- rwrite.t	2001/11/21 01:42:33	1.4
  +++ rwrite.t	2001/11/21 21:00:06	1.5
  @@ -1,29 +1,6 @@
   use strict;
   use warnings FATAL => 'all';
   
  -use Apache::Test;
  -use Apache::TestRequest;
  +use Apache::TestCommon ();
   
  -#1k..9k, 10k..50k, 100k, 300k, 500k, 2Mb, 4Mb, 6Mb, 10Mb
  -my @sizes = (1..9, 10..50, 100, 300, 500, 2000, 4000, 6000, 10_000);
  -my @buff_sizes = (1024, 8192);
  -
  -plan tests => @sizes * @buff_sizes, [qw(test_rwrite LWP)];
  -
  -my $location = "/test_rwrite";
  -
  -for my $buff_size (@buff_sizes) {
  -    for my $size (@sizes) {
  -        my $length = $size * 1024;
  -
  -        print "getting $length bytes of data\n";
  -
  -        my $str = GET_BODY "$location?$length";
  -
  -        printf "read %d bytes of data\n", length $str;
  -
  -        my $chunk = 'a' x 1024;
  -        ok $str =~ /^($chunk){$size}$/;
  -    }
  -}
  -
  +Apache::TestCommon::run_write_test('test_rwrite');