6 use Test::More tests => 4;
8 use CPANPLUS::Dist::Gentoo::Maps;
11 my @licenses = CPANPLUS::Dist::Gentoo::Maps::license_c2g(@{$_[0]});
12 is_deeply \@licenses, $_[1], $_[2];
15 check_licenses [ 'woo' ], [ ], 'nonexistent';
16 check_licenses [ 'perl' ], [ qw/Artistic GPL-2/ ], 'perl';
17 check_licenses [ qw/perl gpl2/ ], [ qw/Artistic GPL-2/ ], 'perl + gpl2';
18 check_licenses [ qw/perl bsd/ ], [ qw/Artistic GPL-2 BSD/ ], 'perl + bsd';