use Test::More;

BEGIN{
use_ok('Template::Reverse');
}
use Data::Dumper;
sub detect{
    my $diff= shift;
    my $r = Template::Reverse::_detect($diff, 3);
    print Dumper $r;
    return $r;
}

@diff = qw(-A -B -C -D -E);
$patt = detect(\@diff);
ok( eq_array($patt, [] ) );

@diff = qw(-A -B * -D -E);
$patt = detect(\@diff);
ok( eq_array($patt, [ [[qw(A B)],[qw(D E)]] ] ) );

@diff = qw(-A -B -C -D * );
$patt = detect(\@diff);
ok( eq_array($patt, [ [[qw(B C D)],[]] ] ) );

@diff = qw(* -B -C -D -E);
$patt = detect(\@diff);
ok( eq_array($patt, [ [[],[qw(B C D)]] ] ) );

@diff = qw(-A * -C * -E);
$patt = detect(\@diff);
ok( eq_array($patt, [ [[qw(A)],[qw(C)]], [[qw(C)],[qw(E)]]] ) );

@diff = qw(-A -B -C * -G -H -I -J -K * -M -N);
$patt = detect(\@diff);
ok( eq_array($patt, [ [[qw(A B C)],[qw(G H I)]], [[qw(I J K)],[qw(M N)]]] ) );

@diff = qw(-Q -A -B -C * -G -H -I -J -K * -M -N -O -P);
$patt = detect(\@diff);
ok( eq_array($patt, [ [[qw(A B C)],[qw(G H I)]], [[qw(I J K)],[qw(M N O)]]] ) );

@diff = qw(* -A -B -C * -G -H -I -J -K * -M -N * );
$patt = detect(\@diff);
ok( eq_array($patt, [ [[],[qw(A B C)]],[[qw(A B C)],[qw(G H I)]], [[qw(I J K)],[qw(M N)]], [[qw(M N)],[]]] ) );


@diff = qw(-I -went -to -the * -when -i -had -met -the * );
$patt = detect(\@diff);
ok( eq_array($patt, 
        [
          [
            [
              'went',
              'to',
              'the'
            ],
            [
              'when',
              'i',
              'had',
            ]
          ],
          [
            [
              'had',
              'met',
              'the'
            ],
            []
          ]
        ]));

done_testing();