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 2002/04/02 06:09:26 UTC
cvs commit: httpd-test/perl-framework/t/apache post.t
dougm 02/04/01 20:09:26
Modified: perl-framework/t/apache post.t
Log:
switch to using Apache::TestCommon::run_post_test
Revision Changes Path
1.6 +5 -21 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.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- post.t 20 Dec 2001 03:52:50 -0000 1.5
+++ post.t 2 Apr 2002 04:09:26 -0000 1.6
@@ -2,27 +2,11 @@
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);
- #XXX: ssl currently falls over here
-plan tests => scalar @sizes, [qw(echo_post)];
+my $module = 'eat_post';
+my $num = Apache::TestCommon::run_post_test_sizes();
-my $location = "/echo_post";
-
-for my $size (@sizes) {
- sok {
- my $value = 'a' x ($size * 1024);
- my $length = length $value;
-
- print "posting $length bytes of data\n";
-
- my $str = POST_BODY $location, content => $value;
-
- printf "read %d bytes of POST data\n", length $str;
-
- $str eq $value;
- };
-}
+plan tests => $num, [$module];
+Apache::TestCommon::run_post_test($module);