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