httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/t/apache post.t
Date Tue, 02 Apr 2002 04:09:26 GMT
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);
  
  
  

Mime
View raw message