[perl5.git] / t / porting / corelist.t

#!perl -w

# Check that the current version of perl exists in Module-CoreList data

use TestInit qw(T);
use strict;
use Config;

require './t/test.pl';

plan(tests => 6);

use_ok('Module::CoreList');
use_ok('Module::CoreList::Utils');
use_ok('Module::CoreList::TieHashDelta');

{
  no warnings 'once';
  ok( defined $Module::CoreList::released{ $] }, "$] exists in released" );
  ok( defined $Module::CoreList::version{ $] }, "$] exists in version" );
  ok( defined $Module::CoreList::Utils::utilities{$] }, "$] exists in Utils" );
}
Commit	Line	Data
d918879d CBW	1	#!perl -w
	2
	3	# Check that the current version of perl exists in Module-CoreList data
	4
	5	use TestInit qw(T);
	6	use strict;
	7	use Config;
	8
3d7c117d	9	require './t/test.pl';
d918879d	10
ee2820c6	11	plan(tests => 6);
d918879d CBW	12
	13	use_ok('Module::CoreList');
	14	use_ok('Module::CoreList::Utils');
1524a56a	15	use_ok('Module::CoreList::TieHashDelta');
d918879d CBW	16
	17	{
	18	no warnings 'once';
	19	ok( defined $Module::CoreList::released{ $] }, "$] exists in released" );
	20	ok( defined $Module::CoreList::version{ $] }, "$] exists in version" );
	21	ok( defined $Module::CoreList::Utils::utilities{$] }, "$] exists in Utils" );
	22	}