6 use Test::More tests => 1 + 7 + 9;
8 use CPANPLUS::Dist::Gentoo::Maps;
10 *nc2g = \&CPANPLUS::Dist::Gentoo::Maps::name_c2g;
12 is nc2g('CPANPLUS-Dist-Gentoo'), 'CPANPLUS-Dist-Gentoo', 'name_c2g returns non gentooisms correctly';
14 my %core_gentooisms = (
15 'ANSIColor' => 'Term-ANSIColor',
16 'Digest' => 'digest-base',
17 'I18N-LangTags' => 'i18n-langtags',
18 'Locale-Maketext' => 'locale-maketext',
19 'Net-Ping' => 'net-ping',
20 'Pod-Parser' => 'PodParser',
21 'PathTools' => 'File-Spec',
24 for my $dist (sort keys %core_gentooisms) {
25 is nc2g($dist), $core_gentooisms{$dist}, "name_c2g('$dist')";
28 my %cpan_gentooisms = (
29 'CGI-Simple' => 'Cgi-Simple',
30 'Date-Manip' => 'DateManip',
31 'Gtk2' => 'gtk2-perl',
32 'Log-Dispatch' => 'log-dispatch',
33 'Math-Pari' => 'math-pari',
34 'Regexp-Common' => 'regexp-common',
40 for my $dist (sort keys %cpan_gentooisms) {
41 is nc2g($dist), $cpan_gentooisms{$dist}, "name_c2g('$dist')";