t/11-maps-name.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 1 + 6 + 10;
   7
   8 use CPANPLUS::Dist::Gentoo::Maps;
   9
  10 *nc2g = \&CPANPLUS::Dist::Gentoo::Maps::name_c2g;
  11
  12 is nc2g('CPANPLUS-Dist-Gentoo'), 'CPANPLUS-Dist-Gentoo', 'name_c2g returns non gentooisms correctly';
  13
  14 my %core_gentooisms = (
  15  'Digest'          => 'digest-base',
  16  'I18N-LangTags'   => 'i18n-langtags',
  17  'Locale-Maketext' => 'locale-maketext',
  18  'Net-Ping'        => 'net-ping',
  19  'Pod-Parser'      => 'PodParser',
  20  'PathTools'       => 'File-Spec',
  21 );
  22
  23 for my $dist (sort keys %core_gentooisms) {
  24  is nc2g($dist), $core_gentooisms{$dist}, "name_c2g('$dist')";
  25 }
  26
  27 my %cpan_gentooisms = (
  28  'CGI-Simple'    => 'Cgi-Simple',
  29  'Date-Manip'    => 'DateManip',
  30  'Gtk2'          => 'gtk2-perl',
  31  'Log-Dispatch'  => 'log-dispatch',
  32  'Math-Pari'     => 'math-pari',
  33  'Regexp-Common' => 'regexp-common',
  34  'Time-Period'   => 'Period',
  35  'Tk'            => 'perl-tk',
  36  'Wx'            => 'wxperl',
  37  'YAML'          => 'yaml',
  38 );
  39
  40 for my $dist (sort keys %cpan_gentooisms) {
  41  is nc2g($dist), $cpan_gentooisms{$dist}, "name_c2g('$dist')";
  42 }