CPAN::Groonga

s_xml_in_order\(input,expected,test_name\)/);
eval {
    Test::XML::Order::isnt_xml_in_order('b');
};
like($@, qr/usage: isnt_xml_in_order\(input,expected,test_name\)/);
eval {
    Test::XML::Order::i

_order();
};
like($@, qr/usage: is_xml_in_order\(input,expected,test_name\)/);
eval {
    Test::XML::Order::isnt_xml_in_order();
};
like($@, qr/usage: isnt_xml_in_order\(input,expected,test_name\)/);

ODO = 'make order significant';

    isnt_xml_in_order(
        '<p>a<b/>c<d/>e</p>',
        '<p><b>ace</b><d/></p>',
        'content is ignored',
    );
}

isnt_xml_in_order(
    '<p>a<b/>c<d/>e</p

>',
    '<p>a<d/>c<b/>e</p>',
    'order is significant',
);

isnt_xml_in_order(
    '<p><a/><b/></p>',
    '<p><b/><a/></p>',
    'order is significant when not mixed content',
);

# Local Variables:

nings;

use Test::More tests => 2;
use Test::XML::Order;

is_xml_in_order( '<foo /><foo />', '<foo></foo><foo x="a"/>' );   # PASS
isnt_xml_in_order( '<foo /><bar />', '<bar /><foo />' );     # PASS