cvs commit: httpd-test/perl-framework/t/filter input_body.t

[jwoolley]

jwoolley    01/12/23 22:10:48

  Modified:    perl-framework/t/filter input_body.t
  Log:
  enable verbose debug output
  
  Revision  Changes    Path
  1.3       +7 -2      httpd-test/perl-framework/t/filter/input_body.t
  
  Index: input_body.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/filter/input_body.t,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -d -u -r1.2 -r1.3
  --- input_body.t      2001/12/20 03:52:50     1.2
  +++ input_body.t      2001/12/24 06:10:47     1.3
  @@ -3,12 +3,17 @@
   
   use Apache::Test;
   use Apache::TestRequest;
  +use Apache::TestUtil;
   
   plan tests => 2, [qw(input_body_filter)];
   
   my $location = '/input_body_filter';
   
   for my $x (1,2) {
  -    my $data = scalar reverse "ok $x\n";
  -    print POST_BODY $location, content => $data;
  +    my $expected = "ok $x";
  +    my $data = scalar reverse $expected;
  +    my $response = POST_BODY $location, content => $data;
  +    ok t_cmp($expected,
  +             $response,
  +             "Posted \"$data\"");
   }