cvs commit: modperl-2.0/t/response/TestAPR finfo.pm

[stas]

stas        2004/07/24 02:25:27

  Modified:    t/response/TestAPR finfo.pm
  Log:
  a test assigning to $r->finfo is in TestAPI::request_rec (this was a dup)
  
  Revision  Changes    Path
  1.15      +2 -7      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.14
  retrieving revision 1.15
  diff -u -u -r1.14 -r1.15
  --- finfo.pm  24 Jul 2004 01:42:42 -0000      1.14
  +++ finfo.pm  24 Jul 2004 09:25:27 -0000      1.15
  @@ -19,7 +19,7 @@
   sub handler {
       my $r = shift;
   
  -    my $tests = 3 + TestAPRlib::finfo::num_of_tests();
  +    my $tests = 2 + TestAPRlib::finfo::num_of_tests();
       plan $r, tests => $tests;
   
       {
  @@ -38,12 +38,7 @@
           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;
  -    }
  +    # a test assigning to $r->finfo is in TestAPI::request_rec
   
       TestAPRlib::finfo::test();