1 # test if our own version numbers meet expectations
9 @m = ("CPAN", map { "CPAN::$_" } qw(Debug
21 opendir DH, "lib/CPAN" or die;
22 @m = ("CPAN", map { "CPAN::$_" } grep { s/\.pm$// } readdir DH);
26 plan(tests => scalar @m);
31 ok($m->VERSION >= 0.95, sprintf "Found version < 0.95 for %s: %s", $m, $m->VERSION);
36 # cperl-indent-level: 2