1#!perl -w 2 3# Check that the current version of perl exists in Module-CoreList data 4BEGIN { 5 push @INC, "." if -e "TestInit.pm"; 6} 7use TestInit qw(T); 8use strict; 9use Config; 10 11require './t/test.pl'; 12 13plan(tests => 5); 14 15use_ok('Module::CoreList'); 16use_ok('Module::CoreList::Utils'); 17 18{ 19 no warnings 'once'; 20 ok( defined $Module::CoreList::released{ $] }, "$] exists in released" ); 21 ok( defined $Module::CoreList::version{ $] }, "$] exists in version" ); 22 ok( defined $Module::CoreList::Utils::utilities{$] }, "$] exists in Utils" ); 23} 24