perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/lib/TestAPRlib finfo.pm
Date Fri, 17 Sep 2004 22:36:17 GMT
stas        2004/09/17 15:36:17

  Modified:    t/lib/TestAPRlib finfo.pm
  Log:
  add a non-activated test for ->csize, not sure what platforms it works at
  all on
  
  Revision  Changes    Path
  1.4       +13 -0     modperl-2.0/t/lib/TestAPRlib/finfo.pm
  
  Index: finfo.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/lib/TestAPRlib/finfo.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -u -r1.3 -r1.4
  --- finfo.pm	17 Sep 2004 20:21:45 -0000	1.3
  +++ finfo.pm	17 Sep 2004 22:36:16 -0000	1.4
  @@ -69,6 +69,19 @@
               }
           }
   
  +        # XXX: are there any platforms csize is available at all?
  +        # We don't want to see the skipped message all the time if
  +        # it's not really used anywhere
  +        # if (my $csize = $finfo->csize) {
  +        #     # The storage size is at least as big as the file size
  +        #     # perl's stat() doesn't have the equivalent of csize
  +        #     t_debug "csize=$csize, size=$size";
  +        #     ok $csize >= $size;
  +        # }
  +        # else {
  +        #     skip "csize is not available on this platform", 0;
  +        # }
  +
           # match world bits
   
           ok t_cmp($finfo->protection & APR::WREAD,
  
  
  

Mime
View raw message