randyk 2003/11/19 15:01:37
Modified: t/response/TestAPR finfo.pm
Log:
skip finfo->fname test on Win32 until it's available within apr
(patch applied in current cvs).
Revision Changes Path
1.3 +9 -3 modperl-2.0/t/response/TestAPR/finfo.pm
Index: finfo.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/finfo.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- finfo.pm 18 Nov 2003 17:07:46 -0000 1.2
+++ finfo.pm 19 Nov 2003 23:01:37 -0000 1.3
@@ -98,9 +98,15 @@
# tests for stuff not in perl's stat
{
- ok t_cmp($file,
- $r->finfo->fname,
- '$r->finfo->fname()');
+ # XXX r->finfo->fname requires on Win32 a patched cvs apr
+ if (WIN32) {
+ skip "finfo.fname not available yet on Win32";
+ }
+ else {
+ ok t_cmp($file,
+ $r->finfo->fname,
+ '$r->finfo->fname()');
+ }
ok t_cmp(APR::REG,
$r->finfo->filetype,
