X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F13-maps-license.t;h=a63afa7a9d06e7c954a64e2418d039ad128510fb;hb=868b43315fb46d028fc3a7b9b244c3a5f9699b20;hp=0a19d001a0a2630540392dc94b9b02dc166c9c02;hpb=69b45a423d8ce50cc9c3cc8cb22a8822e698fb4f;p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git diff --git a/t/13-maps-license.t b/t/13-maps-license.t index 0a19d00..a63afa7 100644 --- a/t/13-maps-license.t +++ b/t/13-maps-license.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 4; +use Test::More tests => 6; use CPANPLUS::Dist::Gentoo::Maps; @@ -12,7 +12,9 @@ sub check_licenses { 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'; +check_licenses [ 'perl' ], [ qw ], 'perl'; +check_licenses [ qw ], [ qw ], 'perl + gpl2'; +check_licenses [ qw ], [ qw ], 'perl + bsd';