6 use Test::More tests => 6;
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 [ ], [ ], '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';