package XmlGrammarTestXML;

use strict;
use warnings;

use parent 'Exporter';

our @EXPORT_OK = (qw(my_is_xml));

use Test::XML::Ordered '0.0.5';
use Test::XML::Ordered qw(is_xml_ordered);

my @is_xml_common = (validation => 0, load_ext_dtd => 0, no_network => 1);

sub my_is_xml
{
    local $Test::Builder::Level = $Test::Builder::Level + 1;

    my ($got, $expected, $blurb) = @_;

    return is_xml_ordered(
        [ @{$got}, @is_xml_common, ],
        [ @{$expected}, @is_xml_common, ],
        {},
        $blurb,
    );
}

1;