Switch to <> for qw delimiters

[perl/modules/CPANPLUS-Dist-Gentoo.git] / t / 13-maps-license.t

diff --git a/t/13-maps-license.t b/t/13-maps-license.t
index 0a19d001a0a2630540392dc94b9b02dc166c9c02..a63afa7a9d06e7c954a64e2418d039ad128510fb 100644 (file)
--- 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<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';