use t::TestYAML tests => 5;

require YAML::XS;

my $entries = (int((($YAML::XS::VERSION + 0.001) * 100)) - 1);

open IN, "Changes" or die $!;
my $yaml = do {local $/; <IN>};
my @changes = YAML::XS::Load($yaml);

pass "Changes file Load-ed without errors";
ok @changes == $entries,
    "There are $entries Changes entries";
is $changes[0]->{version}, $YAML::XS::VERSION,
    "Changes file is up to date with current YAML::XS::VERSION";
is $changes[-1]->{date}, 'Fri May 11 14:08:54 PDT 2007',
    "Version 0.01 is from Fri May 11 14:08:54 PDT 2007";
is ref($changes[-3]->{changes}), 'ARRAY',
    "Version 0.03 has multiple changes listed";