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();