lib/CPAN/t/03pkgs.t

   1 # test if our own version numbers meet expectations
   2
   3 use strict;
   4 eval 'use warnings';
   5
   6 my @m;
   7 if ($ENV{PERL_CORE}){
   8   @m = ("CPAN", map { "CPAN::$_" } qw(Debug FirstTime Nox Tarzip Version));
   9 } else {
  10   opendir DH, "lib/CPAN" or die;
  11   @m = ("CPAN", map { "CPAN::$_" } grep { s/\.pm$// } readdir DH);
  12 }
  13
  14 use Test::More;
  15 plan(tests => scalar @m);
  16
  17 for my $m (@m) {
  18   local $^W = 0;
  19   eval "require $m";
  20   ok($m->VERSION >= 1.76, sprintf "%20s: %s", $m, $m->VERSION);
  21 }
  22
  23 # Local Variables:
  24 # mode: cperl
  25 # cperl-indent-level: 2
  26 # End: