Commit | Line | Data |
554a9ef5 |
1 | # test if our own version numbers meet expectations |
2 | |
0a78cd5d |
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); |
554a9ef5 |
13 | |
14 | use Test::More; |
f3fe0ae6 |
15 | plan(tests => scalar @m); |
554a9ef5 |
16 | |
17 | for my $m (@m) { |
0a78cd5d |
18 | local $^W = 0; |
554a9ef5 |
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: |