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 do...@apache.org on 2001/11/21 22:00:06 UTC
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');