t/13-maps-license.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 6;
   7
   8 use CPANPLUS::Dist::Gentoo::Maps;
   9
  10 sub check_licenses {
  11  my @licenses = CPANPLUS::Dist::Gentoo::Maps::license_c2g(@{$_[0]});
  12  is_deeply \@licenses, $_[1], $_[2];
  13 }
  14
  15 check_licenses [ ],               [ ],                        'empty';
  16 check_licenses [ undef ],         [ ],                        'undef';
  17 check_licenses [ 'woo' ],         [ ],                        'nonexistent';
  18 check_licenses [ 'perl' ],        [ qw<Artistic GPL-2> ],     'perl';
  19 check_licenses [ qw<perl gpl2> ], [ qw<Artistic GPL-2> ],     'perl + gpl2';
  20 check_licenses [ qw<perl bsd> ],  [ qw<Artistic GPL-2 BSD> ], 'perl + bsd';