1use strict;
2use warnings;
3use Test::More tests => 9;
4
5BEGIN { require_ok('Module::CoreList::Utils'); }
6
7ok( defined $Module::CoreList::Utils::utilities{5}{a2p}, '5 had a2p' );
8is( Module::CoreList::Utils->first_release('a2p'), 5, 'a2p first released in 5' );
9is( Module::CoreList::Utils::first_release('a2p'), 5, 'a2p first released in 5' );
10is( Module::CoreList::Utils->first_release('corelist'), 5.008009, 'corelist with v5.8.9');
11is( Module::CoreList::Utils->first_release_by_date('corelist'), 5.009002, 'corelist with v5.9.2');
12is( Module::CoreList::Utils::first_release_by_date('corelist'), 5.009002, 'corelist with v5.9.2');
13{
14  my @expected = sort qw(a2p c2ph cppstdin find2perl h2xs pstruct s2p);
15  {
16    my @foo = Module::CoreList::Utils->utilities(5.001);
17    is_deeply( \@foo, \@expected, '5.001 utils all present and correct' );
18  }
19  {
20    my @foo = Module::CoreList::Utils::utilities(5.001);
21    is_deeply( \@foo, \@expected, '5.001 utils all present and correct' );
22  }
23}
24