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

[stas]

stas        2004/09/28 20:09:22

  Modified:    t/apache cgihandler.t
  Log:
  make it easier to debug the test
  
  Revision  Changes    Path
  1.4       +6 -6      modperl-2.0/t/apache/cgihandler.t
  
  Index: cgihandler.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/apache/cgihandler.t,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -u -r1.3 -r1.4
  --- cgihandler.t      18 Apr 2003 06:18:55 -0000      1.3
  +++ cgihandler.t      29 Sep 2004 03:09:22 -0000      1.4
  @@ -2,19 +2,19 @@
   use warnings FATAL => 'all';
   
   use Apache::Test;
  +use Apache::TestUtil;
   use Apache::TestRequest;
   
   plan tests => 2;
   
   my $location = "/TestApache__cgihandler";
  -my $str;
   
  -my $data = "1..3\nok 1\nok 2\nok 3\n";
  +my $expected = "1..3\nok 1\nok 2\nok 3\n";
   
  -$str = POST_BODY $location, content => $data;
  +my $received = POST_BODY $location, content => $expected;
   
  -ok $str eq $data;
  +ok t_cmp $received, $expected, "POST cgihandler";
   
  -$str = GET_BODY $location;
  +$received = GET_BODY $location;
   
  -ok $str eq $data;
  +ok t_cmp $received, $expected, "GET cgihandler";