Subject: | Regression: Mixed Items/Groups cause group children to get collected |
It appears when you have the format:
VERSIONLINE
- nongroup entry
[ group ]
- entry
- entry
That the last 2 become
- entry -entry
But it only appears to happen for version sections which mix non-groups and groups at the same level.
See attached scripts output.
Interestingly, in conversion from its original form to the "new space rules" form, the mutation did NOT happen, but the problem is only observed once normalised to the new space rules.
Subject: | reg.pl |
# regression
use strict;
use warnings;
use CPAN::Changes;
use Test::More;
use Test::Differences qw( eq_or_diff );
my $legacy = <<'EOF';
1.7.5 2013-08-01T09:48:11Z
- Top Level Entry
[Group]
- Child Entry Line 1
- Child Entry Line 2
EOF
my $upgraded = <<'EOF';
1.7.5 2013-08-01T09:48:11Z
- Top Level Entry
[ Group ]
- Child Entry Line 1
- Child Entry Line 2
EOF
my $upgrade = CPAN::Changes->load_string( $legacy );
eq_or_diff( $upgrade->serialize, $upgraded );
eq_or_diff( CPAN::Changes->load_string( $upgrade->serialize() )->serialize, $upgraded );
done_testing;