blob: eb1e55728be49e618bba0b954eaa7f0f0cc01f70 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
# test if our own version numbers meet expectations
use strict;
eval 'use warnings';
my @m = qw(CPAN CPAN::FirstTime CPAN::Nox CPAN::Version);
push @m, 'CPAN::Admin' unless $ENV{PERL_CORE};
use Test::More;
plan(tests => scalar @m);
for my $m (@m) {
local $^W = 0;
eval "require $m";
ok($m->VERSION >= 1.76, sprintf "%20s: %s", $m, $m->VERSION);
}
# Local Variables:
# mode: cperl
# cperl-indent-level: 2
# End:
|
