cvs commit: modperl-2.0/t/apache post.t

[stas]

stas        02/01/01 02:07:55

  Modified:    t/apache post.t
  Log:
  - test cleanup
  
  Revision  Changes    Path
  1.4       +4 -7      modperl-2.0/t/apache/post.t
  
  Index: post.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/apache/post.t,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- post.t    20 Dec 2001 03:54:40 -0000      1.3
  +++ post.t    1 Jan 2002 10:07:55 -0000       1.4
  @@ -2,6 +2,7 @@
   use warnings FATAL => 'all';
   
   use Apache::Test;
  +use Apache::TestUtil;
   use Apache::TestRequest;
   
   plan tests => 2;
  @@ -19,10 +20,6 @@
   my $data = join '&', map { "$_=$data{$_}" } keys %data;
   
   $str = POST_BODY $location, content => $data;
  -
  -my $expect = join(':', length($data), $data);
  -ok $str eq $expect;
  -
  -print "EXPECT: $expect\n";
  -print "STR: $str\n";
  -
  +ok t_cmp(join(':', length($data), $data),
  +    $str,
  +    "POST");