perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/t/response/TestAPR perlio.pm
Date Fri, 21 Jun 2002 22:21:37 GMT
dougm       2002/06/21 15:21:37

  Modified:    t/response/TestAPR perlio.pm
  Log:
  disable test that fails with httpd < 2.0.40-dev
  
  Revision  Changes    Path
  1.13      +5 -4      modperl-2.0/t/response/TestAPR/perlio.pm
  
  Index: perlio.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/perlio.pm,v
  retrieving revision 1.12
  retrieving revision 1.13
  diff -u -r1.12 -r1.13
  --- perlio.pm	21 Jun 2002 15:45:06 -0000	1.12
  +++ perlio.pm	21 Jun 2002 22:21:37 -0000	1.13
  @@ -26,7 +26,7 @@
           return Apache::OK;
       }
   
  -    my $tests = 12;
  +    my $tests = 11;
       my $lfs_tests = 3;
   
       $tests += $lfs_tests unless LARGE_FILES_CONFLICT;
  @@ -125,9 +125,10 @@
           # slurp mode
           seek $fh, 0, Fcntl::SEEK_SET(); # rewind to the start
           local $/;
  -        ok t_cmp($expected_all,
  -                 scalar(<$fh>),
  -                 "slurp file");
  +#XXX: does not work with current release of httpd (2.0.39)
  +#        ok t_cmp($expected_all,
  +#                 scalar(<$fh>),
  +#                 "slurp file");
   
           # test ungetc (a long sep requires read ahead)
           seek $fh, 0, Fcntl::SEEK_SET(); # rewind to the start
  
  
  

Mime
View raw message