use strict;
use warnings;

use Test::More tests => 2;
use Test::XML::Ordered 'is_xml_ordered';

my $expected = <<'EOX';
<a>
    <b>first</b>
    <b>second</b>
</a>
EOX

my $got_good = <<'EOX';
<a>
    <b>first</b>
    <b>second</b>
</a>
EOX

my $got_bad = <<'EOX';
<a>
    <b>second</b>
    <b>first</b>
</a>
EOX

is_xml_ordered(
    [string => $got_good],
    [string => $expected],
    {},
    'Test $got_good'
);

is_xml_ordered(
    [string => $got_bad],
    [string => $expected],
    {},
    'Test $got_bad'
);