1 # test if our own version numbers meet expectations
9 @m = ("CPAN", map { "CPAN::$_" } qw(Debug FirstTime Nox Queue Tarzip Version));
11 opendir DH, "lib/CPAN" or die;
12 @m = ("CPAN", map { "CPAN::$_" } grep { s/\.pm$// } readdir DH);
16 plan(tests => scalar @m);
21 ok($m->VERSION >= 1.76, sprintf "Found version > 1.76 for %20s: %s", $m, $m->VERSION);
26 # cperl-indent-level: 2