[PAUSE] CPAN Upload: A/AN/ANDK/CPAN-1.84.tar.gz

[p5sagit/p5-mst-13.2.git] / lib / CPAN / t / 03pkgs.t

diff --git a/lib/CPAN/t/version.t b/lib/CPAN/t/03pkgs.t
similarity index 59%
rename from lib/CPAN/t/version.t
rename to lib/CPAN/t/03pkgs.t
index eb1e557..d6fa715 100644 (file)
--- a/lib/CPAN/t/version.t
+++ b/lib/CPAN/t/03pkgs.t
@@ -2,8 +2,14 @@
 
 use strict;
 eval 'use warnings';
-my @m = qw(CPAN CPAN::FirstTime CPAN::Nox CPAN::Version);
-push @m, 'CPAN::Admin' unless $ENV{PERL_CORE};
+
+opendir DH, "lib/CPAN" or die;
+my @m;
+if ($ENV{PERL_CORE}){
+  @m = ("CPAN", map { "CPAN::$_" } qw(Debug FirstTime Nox Tarzip Version));
+} else {
+  @m = ("CPAN", map { "CPAN::$_" } grep { s/\.pm$// } readdir DH);
+}
 
 use Test::More;
 plan(tests => scalar @m);