use strict;
use warnings;

use Test::More;

use CPAN::Changes;

subtest basic => sub {
    plan tests => 2;

    my $changes = CPAN::Changes->load_string(<<'END_CHANGES');
0.2 2012-02-01
    [D]
    [E]
    - Yadah

0.1 2011-01-01
    [A]
    - Stuff
    [B]
    [C]
    - Blah
END_CHANGES

    $changes->delete_empty_groups;

    is_deeply( [ sort( ($changes->releases)[0]->groups ) ], [ qw/ A C / ] );
    is_deeply( [ sort( ($changes->releases)[1]->groups ) ], [ 'E' ] );
};

subtest mixed => sub {
    plan tests => 1;

    my $changes = CPAN::Changes->load_string(<<'END_CHANGES');
Revision history for {{$dist->name}}

0.2.0
    [BUGS FIXES]
    - A
    - B

0.1.0     2012-03-19
    - C
END_CHANGES

    $changes->delete_empty_groups;

    is_deeply( [ sort( ($changes->releases)[0]->changes ) ], [ { 
        '' => [ 'C' ],
    } ] );

};

done_testing;