Commit | Line | Data |
---|---|---|
554a9ef5 | 1 | # test if our own version numbers meet expectations |
2 | ||
0a78cd5d | 3 | use strict; |
c7588fc8 | 4 | eval 'use warnings'; |
135a59c2 | 5 | use lib "lib"; |
4d1321a7 | 6 | |
4d1321a7 | 7 | my @m; |
8 | if ($ENV{PERL_CORE}){ | |
5254b38e | 9 | @m = ("CPAN", map { "CPAN::$_" } qw(Debug |
10 | DeferedCode | |
11 | Distroprefs | |
12 | FirstTime | |
13 | Kwalify | |
14 | Nox | |
15 | Queue | |
16 | Tarzip | |
17 | Version | |
18 | )); | |
4d1321a7 | 19 | } else { |
28b6a607 | 20 | opendir DH, "lib/CPAN" or die; |
4d1321a7 | 21 | @m = ("CPAN", map { "CPAN::$_" } grep { s/\.pm$// } readdir DH); |
22 | } | |
554a9ef5 | 23 | |
24 | use Test::More; | |
f3fe0ae6 | 25 | plan(tests => scalar @m); |
554a9ef5 | 26 | |
27 | for my $m (@m) { | |
0a78cd5d | 28 | local $^W = 0; |
554a9ef5 | 29 | eval "require $m"; |
135a59c2 | 30 | ok($m->VERSION >= 1.76, sprintf "Found version > 1.76 for %20s: %s", $m, $m->VERSION); |
554a9ef5 | 31 | } |
32 | ||
33 | # Local Variables: | |
34 | # mode: cperl | |
35 | # cperl-indent-level: 2 | |
36 | # End: |