perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ran...@apache.org
Subject cvs commit: modperl-2.0/t/response/TestAPR finfo.pm
Date Wed, 19 Nov 2003 23:01:37 GMT
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,
  
  
  

Mime
View raw message