6 use Test::More tests => 4;
8 use CPANPLUS::Dist::Gentoo::Maps;
11 *gentooisms = \%CPANPLUS::Dist::Gentoo::Maps::gentooisms;
13 is scalar(keys %gentooisms), 76, 'gentooisms are all there';
15 is $gentooisms{PathTools}, 'File-Spec', 'gentooisms were correctly loaded';
17 is CPANPLUS::Dist::Gentoo::Maps::name_c2g('PathTools'), 'File-Spec', 'name_c2g maps gentooisms correctly';
19 is CPANPLUS::Dist::Gentoo::Maps::name_c2g('CPANPLUS-Dist-Gentoo'), 'CPANPLUS-Dist-Gentoo', 'name_c2g returns non gentooisms correctly';