git.maemo.org Git - pkg-perl/blob - deb-src/libio-compress-zlib-perl/libio-compress-zlib-perl-2.012/t/000prereq.t

   1 BEGIN {
   2     if ($ENV{PERL_CORE}) {
   3         chdir 't' if -d 't';
   4         @INC = ("../lib", "lib/compress");
   5     }
   6 }
   7
   8 use lib qw(t t/compress);
   9 use strict ;
  10 use warnings ;
  11
  12 use Test::More ;
  13
  14 BEGIN
  15 {
  16     # use Test::NoWarnings, if available
  17     my $extra = 0 ;
  18     $extra = 1
  19         if eval { require Test::NoWarnings ;  import Test::NoWarnings; 1 };
  20
  21
  22     my $VERSION = '2.012';
  23     my @NAMES = qw(
  24                         Compress::Raw::Zlib
  25                         IO::Compress::Base
  26                         IO::Uncompress::Base
  27                         );
  28
  29     my @OPT = qw(
  30                         IO::Compress::Adapter::Bzip2
  31                         IO::Compress::Bzip2
  32                         IO::Uncompress::Adapter::Bunzip2
  33                         );
  34
  35
  36     plan tests => @NAMES + @OPT + $extra ;
  37
  38     foreach my $name (@NAMES)
  39     {
  40         use_ok($name, $VERSION);
  41     }
  42
  43     foreach my $name (@OPT)
  44     {
  45         eval " require $name " ;
  46         if ($@)
  47         {
  48             ok 1, "$name not available"
  49         }
  50         else
  51         {
  52             my $ver = eval("\$${name}::VERSION");
  53             is $ver, $VERSION, "$name version should be $VERSION"
  54                 or diag "$name version is $ver, need $VERSION" ;
  55         }
  56     }
  57
  58 }
  59