perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/t/response/TestAPR perlio.pm
Date Tue, 18 Dec 2001 00:36:22 GMT
dougm       01/12/17 16:36:22

  Modified:    t/response/TestAPR perlio.pm
  Log:
  testing for have_perl "iolayers" is not good enough; skip test if APR::PerlIO cannot be
loaded
  
  Revision  Changes    Path
  1.2       +9 -2      modperl-2.0/t/response/TestAPR/perlio.pm
  
  Index: perlio.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/perlio.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- perlio.pm	2001/12/17 16:20:27	1.1
  +++ perlio.pm	2001/12/18 00:36:22	1.2
  @@ -8,7 +8,7 @@
   use Apache::Test;
   use Apache::TestUtil;
   
  -use APR::PerlIO ();
  +my $have_perlio = eval { require APR::PerlIO };
   
   use Fcntl ();
   use File::Spec::Functions qw(catfile);
  @@ -16,7 +16,14 @@
   sub handler {
       my $r = shift;
   
  -    plan $r, tests => 9, todo => [5], have_perl 'iolayers';
  +    unless ($have_perlio) {
  +        #XXX dunno why have_module doesn't work here.
  +        my $reason = "APR::PerlIO is not available with this Perl";
  +        $r->puts("1..0 #Skipped: $reason\n");
  +        return Apache::OK;
  +    }
  +
  +    plan $r, tests => 9, todo => [5];
   
       my $vars = Apache::Test::config()->{vars};
       my $dir  = catfile $vars->{documentroot}, "perlio";
  
  
  

Mime
View raw message