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/01 21:49:48 UTC
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;
+ };
}