t/11-maps-name.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 4;
   7
   8 use CPANPLUS::Dist::Gentoo::Maps;
   9
  10 our %gentooisms;
  11 *gentooisms = \%CPANPLUS::Dist::Gentoo::Maps::gentooisms;
  12
  13 is scalar(keys %gentooisms), 76, 'gentooisms are all there';
  14
  15 is $gentooisms{PathTools}, 'File-Spec', 'gentooisms were correctly loaded';
  16
  17 is CPANPLUS::Dist::Gentoo::Maps::name_c2g('PathTools'), 'File-Spec', 'name_c2g maps gentooisms correctly';
  18
  19 is CPANPLUS::Dist::Gentoo::Maps::name_c2g('CPANPLUS-Dist-Gentoo'), 'CPANPLUS-Dist-Gentoo', 'name_c2g returns non gentooisms correctly';