1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
use Test2::V0;
use Test2::Require::Module 'Regexp::Pattern::License' => '3.7.0';
use Log::Any::Test;
use Log::Any qw($log);
use String::License::Naming::Custom;
plan 4;
subtest 'default' => sub {
my $obj = String::License::Naming::Custom->new;
isa_ok $obj, ['String::License::Naming'], 'object is instantiated';
is [ $obj->list_schemes ], [];
like [ $obj->list_licenses ], bag {
item 'MIT';
item 'Perl';
all_items mismatch qr/^Expat$/i;
};
is [ $obj->add_scheme('debian') ], [qw( debian )],
'schemes extended';
};
subtest 'none' => sub {
my $obj = String::License::Naming::Custom->new( schemes => [] );
isa_ok $obj, ['String::License::Naming'], 'object is instantiated';
is [ $obj->list_schemes ], [];
like [ $obj->list_licenses ], bag {
item 'MIT';
item 'Perl';
all_items mismatch qr/^Expat$/i;
};
is [ $obj->add_scheme('debian') ], [qw( debian )],
'schemes extended';
};
subtest 'spdx' => sub {
my $obj = String::License::Naming::Custom->new( schemes => ['spdx'] );
isa_ok $obj, ['String::License::Naming'], 'object is instantiated';
is [ $obj->list_schemes ], [qw( spdx )];
like [ $obj->list_licenses ], bag {
item 'MIT';
all_items mismatch qr/^Expat$/i;
};
is [ $obj->add_scheme('debian') ], [qw( debian spdx )],
'schemes extended';
};
subtest 'debian' => sub {
my $obj = String::License::Naming::Custom->new( schemes => ['debian'] );
isa_ok $obj, ['String::License::Naming'], 'object is instantiated';
is [ $obj->list_schemes ], [qw( debian )];
like [ $obj->list_licenses ], bag {
item 'Expat';
item 'Perl';
all_items mismatch qr/^MIT$/i;
};
# TODO: maybe use Test::Carp
#is [ $obj->add_scheme('debian') ], [ qw( debian ) ], 'schemes extended';
};
done_testing;
|
