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