#!perl -T
use strict;
use warnings;
use Test::More tests => 6;
use CPANPLUS::Dist::Gentoo::Maps;
sub check_licenses {
my @licenses = CPANPLUS::Dist::Gentoo::Maps::license_c2g(@{$_[0]});
is_deeply \@licenses, $_[1], $_[2];
}
check_licenses [ ], [ ], 'empty';
check_licenses [ undef ], [ ], 'undef';
check_licenses [ 'woo' ], [ ], 'nonexistent';
check_licenses [ 'perl' ], [ qw<Artistic GPL-2> ], 'perl';
check_licenses [ qw<perl gpl2> ], [ qw<Artistic GPL-2> ], 'perl + gpl2';
check_licenses [ qw<perl bsd> ], [ qw<Artistic GPL-2 BSD> ], 'perl + bsd';