cvs commit: modperl-2.0/t/response/TestApache compat2.pm

[dougm]

dougm       02/04/06 17:25:14

  Modified:    t/response/TestApache compat2.pm
  Log:
  get rid of annoying "unexpectedly succeeded" messages:
  apache/compat2......ok, 1/34 unexpectedly succeeded
  All tests successful (1 subtest UNEXPECTEDLY SUCCEEDED).
  
  Revision  Changes    Path
  1.3       +5 -5      modperl-2.0/t/response/TestApache/compat2.pm
  
  Index: compat2.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestApache/compat2.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- compat2.pm        29 Jan 2002 07:55:56 -0000      1.2
  +++ compat2.pm        7 Apr 2002 01:25:14 -0000       1.3
  @@ -24,7 +24,7 @@
   sub handler {
       my $r = shift;
   
  -    plan $r, tests => 34, todo => [23];
  +    plan $r, tests => 33;
   
       $r->send_http_header('text/plain');
   
  @@ -152,11 +152,11 @@
                    $r->headers_out->{"Content-length"},
                    "\$r->set_content_length($csize) w/ setting explicit size");
   
  -        $r->set_content_length();
  +#        $r->set_content_length();
           # TODO
  -        ok t_cmp(0, # XXX: $r->finfo->csize is not available yet
  -                 $r->headers_out->{"Content-length"},
  -                 "\$r->set_content_length() w/o setting explicit size");
  +#        ok t_cmp(0, # XXX: $r->finfo->csize is not available yet
  +#                 $r->headers_out->{"Content-length"},
  +#                 "\$r->set_content_length() w/o setting explicit size");
   
           # XXX: how to test etag?
           t_debug "\$r->set_etag";