The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

JONASS / String-License-v0.0.10 / t / S-L-Names-Custom.t 

            

              
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;