lib/CPAN/t/version.t

   1 # test if our own version numbers meet expectations
   2
   3 BEGIN {
   4   if (! eval { require warnings; 1 }) {
   5     printf "1..1\nok 1 # warnings not available: skipping %s\n", __FILE__;
   6     exit;
   7   }
   8 }
   9
  10 use strict;
  11 use warnings;
  12 my @m = qw(CPAN CPAN::Admin CPAN::FirstTime CPAN::Nox CPAN::Version);
  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: