CPAN::Groonga

 { isnt_xml() };
like( $@, qr/^usage: /, 'isnt_xml() no args failure' );

eval { isnt_xml( '<foo/>' ) };
like( $@, qr/^usage: /, 'isnt_xml() 1 args failure' );

isnt_xml( '<foo />', '<bar />', 'isnt_x

ODO = 'make order significant';

    isnt_xml(
        '<p>a<b/>c<d/>e</p>',
        '<p>ace<b/><d/></p>',
        'characters are not clustered',
    );

    isnt_xml(
        '<p>a<b/>c<d/>e</p>',
 

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

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

use Test::More tests => 1;
use Test::XML;

{
    local $TODO = 'make whitespace significant';
    isnt_xml(
        '<p>foo</p>',
        '<p>  foo  </p>',
        'whitespace is significant',
    );