# test if our own version numbers meet expectations use strict; eval 'use warnings'; use lib "lib"; my @m; if ($ENV{PERL_CORE}){ @m = ("CPAN", map { "CPAN::$_" } qw(Debug DeferredCode Distroprefs FirstTime Kwalify Nox Plugin Queue Tarzip Version )); } else { opendir DH, "lib/CPAN" or die; @m = ("CPAN", map { "CPAN::$_" } grep { s/\.pm$// } readdir DH); } use Test::More; plan(tests => scalar @m); for my $m (@m) { local $^W = 0; eval "require $m"; ok($m->VERSION >= 0.95, sprintf "Found version < 0.95 for %s: %s", $m, $m->VERSION); } # Local Variables: # mode: cperl # cperl-indent-level: 2 # End: