#!perl
use strict;
use warnings;

use Test::More;

my @licenses = qw(
    AGPL_3
    Apache_1_1
    Apache_2_0
    Artistic_1_0
    Artistic_2_0
    BSD
    CC0_1_0
    EUPL_1_1
    EUPL_1_2
    FreeBSD
    GFDL_1_2
    GPL_1
    GPL_2
    GPL_3
    LGPL_2_1
    LGPL_3_0
    MIT
    Mozilla_1_0
    Mozilla_1_1
    Mozilla_2_0
    None
    OpenSSL
    Perl_5
    QPL_1_0
    SSLeay
    Sun
    Zlib
);

for my $l (@licenses) {
    my $class = 'Software::License::' . $l;
    require_ok($class);

    my $license = $class->new( { holder => 'Corporation, Inc.' } );

    unlike(
        $license->notice, qr/\QCorporation, Inc../,
        "holder with trailing dot does not leave two dots in notice text - $l"
    );
    unlike(
        $license->license, qr/\QCorporation, Inc../,
        "holder with trailing dot does not leave two dots in license text - $l"
    );
}

done_testing;