Return-Path: 
 <modperl-cvs-return-4648-apmail-perl-modperl-cvs-archive=perl.apache.org@perl.apache.org>
Delivered-To: apmail-perl-modperl-cvs-archive@www.apache.org
Received: (qmail 5839 invoked from network); 24 Jul 2004 01:42:44 -0000
Received: from hermes.apache.org (HELO mail.apache.org) (209.237.227.199)
  by minotaur-2.apache.org with SMTP; 24 Jul 2004 01:42:44 -0000
Received: (qmail 57294 invoked by uid 500); 24 Jul 2004 01:42:44 -0000
Delivered-To: apmail-perl-modperl-cvs-archive@perl.apache.org
Received: (qmail 57273 invoked by uid 500); 24 Jul 2004 01:42:43 -0000
Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm
Precedence: bulk
list-help: <mailto:modperl-cvs-help@perl.apache.org>
list-unsubscribe: <mailto:modperl-cvs-unsubscribe@perl.apache.org>
list-post: <mailto:modperl-cvs@perl.apache.org>
Reply-To: dev@perl.apache.org
Delivered-To: mailing list modperl-cvs@perl.apache.org
Received: (qmail 57258 invoked by uid 500); 24 Jul 2004 01:42:43 -0000
Delivered-To: apmail-modperl-2.0-cvs@apache.org
X-ASF-Spam-Status: No, hits=0.5 required=10.0
	tests=ALL_TRUSTED,NO_REAL_NAME
X-Spam-Check-By: apache.org
Date: 24 Jul 2004 01:42:42 -0000
Message-ID: <20040724014242.5817.qmail@minotaur.apache.org>
From: stas@apache.org
To: modperl-2.0-cvs@apache.org
Subject: cvs commit: modperl-2.0/t/response/TestAPR finfo.pm
X-Virus-Checked: Checked
X-Spam-Rating: minotaur-2.apache.org 1.6.2 0/1000/N

stas        2004/07/23 18:42:42

  Modified:    t/lib/TestAPRlib finfo.pm
               t/response/TestAPR finfo.pm
  Log:
  add $r->finfo assignment test
  
  Revision  Changes    Path
  1.2       +5 -4      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.1
  retrieving revision 1.2
  diff -u -u -r1.1 -r1.2
  --- finfo.pm	15 Jul 2004 15:28:03 -0000	1.1
  +++ finfo.pm	24 Jul 2004 01:42:42 -0000	1.2
  @@ -17,8 +17,9 @@
   
   use APR::Finfo ();
   use APR::Pool ();
  -use APR::Const    -compile => qw(SUCCESS FINFO_NORM REG
  -                                 WREAD WWRITE WEXECUTE);
  +
  +use APR::Const -compile => qw(SUCCESS FINFO_NORM REG
  +                              WREAD WWRITE WEXECUTE);
   
   sub num_of_tests {
       return 15;
  @@ -36,8 +37,8 @@
       # stat tests (same as perl's stat)
       {
           # now, get information from perl's stat()
  -        our ($device, $inode, $protection, $nlink, $user, $group,
  -             undef, $size, $atime, $mtime, $ctime) = stat $file;
  +        our($device, $inode, $protection, $nlink, $user, $group,
  +            undef, $size, $atime, $mtime, $ctime) = stat $file;
   
           # skip certain tests on Win32 and others
           my %skip = ();
  
  
  
  1.14      +12 -1     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.13
  retrieving revision 1.14
  diff -u -u -r1.13 -r1.14
  --- finfo.pm	15 Jul 2004 15:28:03 -0000	1.13
  +++ finfo.pm	24 Jul 2004 01:42:42 -0000	1.14
  @@ -6,16 +6,20 @@
   use Apache::Test;
   use Apache::TestUtil;
   
  +use Apache::RequestRec ();
  +use Apache::RequestIO ();
  +
   use TestAPRlib::finfo;
   
   use APR::Finfo ();
   
   use Apache::Const -compile => 'OK';
  +use APR::Const    -compile => qw(FINFO_NORM);
   
   sub handler {
       my $r = shift;
   
  -    my $tests = 2 + TestAPRlib::finfo::num_of_tests();
  +    my $tests = 3 + TestAPRlib::finfo::num_of_tests();
       plan $r, tests => $tests;
   
       {
  @@ -32,6 +36,13 @@
   
           t_debug "\$r->finfo->pool $pool";
           ok $isa;
  +    }
  +
  +    {
  +        my $finfo = APR::Finfo::stat(__FILE__, APR::FINFO_NORM, $r->pool);
  +        t_debug "\$r->finfo(\$finfo)";
  +        $r->finfo($finfo);
  +        ok $r->finfo->fname;
       }
   
       TestAPRlib::finfo::test();