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,
