# -*- cperl -*-
use strict;
use warnings;
use 5.010;

use Test::More;   # see done_testing()
use Test::Differences;
use YAML::Any;

use feature qw/postderef signatures/;
no warnings qw/experimental::postderef experimental::signatures/;

require_ok( 'Dpkg::Copyright::Scanner' );


# __pack_copyright tests
my @tests = (
    [
        'dir with squashable copyright',
        q!---
-
  - unknown
  - unknown
-
  - '2007-2011, Daniel Adler <dadler@uni-goettingen.de>'
  - ISC
-
  - '2007-2015, Daniel Adler <dadler@uni-goettingen.de>'
  - ISC
-
  - '2013, Daniel Adler <dadler@uni-goettingen.de>'
  - ISC
-
  - '2015, Daniel Adler <dadler@uni-goettingen.de>'
  - ISC
-
  - '2014, 2015, Masanori Mitsugi <mitsugi@linux.vnet.ibm.com>'
  - ISC
-
  - '2013-2015, Daniel Adler <dadler@uni-goettingen.de>'
  - ISC
...
!,
        [undef,7,7,7,7,undef,7],
        [ [ '2007-2015, Daniel Adler <dadler@uni-goettingen.de>', 'ISC'] ]
    ]
);

foreach my $t (@tests) {
    my ($label,$in,$expected_indexes, $expected_additions) = @$t;
    my $a = Load($in);
    my $info = Dpkg::Copyright::Scanner::__squash_copyrights_years($a);
    eq_or_diff(
        $info,
        ref($expected_indexes) ? $expected_indexes : Load($expected_indexes),
        "__squash_copyrights_years $label"
    );

    # check coaslesced entries
    my $input = Load($in);
    my @new_indexes = $a->@[ scalar $input->@* .. $a->$#* ] ;
    eq_or_diff(
        \@new_indexes,
        $expected_additions,
        "__squash_copyrights_years $label checked new copyright entries"
    )
}


done_testing();
