[perl5.git] / lib / CPAN / t / version.t

# test if our own version numbers meet expectations

use strict;
eval 'use warnings';
my @m = qw(CPAN CPAN::FirstTime CPAN::Nox CPAN::Version);
push @m, 'CPAN::Admin' unless $ENV{PERL_CORE};

use Test::More;
plan(tests => scalar @m);

for my $m (@m) {
  local $^W = 0;
  eval "require $m";
  ok($m->VERSION >= 1.76, sprintf "%20s: %s", $m, $m->VERSION);
}

# Local Variables:
# mode: cperl
# cperl-indent-level: 2
# End:
Commit	Line	Data
554a9ef5 SP	1	# test if our own version numbers meet expectations
554a9ef5 SP	2
0a78cd5d	3	use strict;
c7588fc8 RGS	4	eval 'use warnings';
	5	my @m = qw(CPAN CPAN::FirstTime CPAN::Nox CPAN::Version);
	6	push @m, 'CPAN::Admin' unless $ENV{PERL_CORE};
554a9ef5 SP	7
554a9ef5 SP	8	use Test::More;
f3fe0ae6	9	plan(tests => scalar @m);
554a9ef5 SP	10
554a9ef5 SP	11	for my $m (@m) {
0a78cd5d	12	local $^W = 0;
554a9ef5 SP	13	eval "require $m";
	14	ok($m->VERSION >= 1.76, sprintf "%20s: %s", $m, $m->VERSION);
	15	}
	16
	17	# Local Variables:
	18	# mode: cperl
	19	# cperl-indent-level: 2
	20	# End: