# @(#) $Id$
use strict;
use warnings;
use Test::More;
BEGIN {
foreach (qw( Test::Builder::Tester XML::SAX XML::Twig ) ) {
eval "use $_";
plan skip_all => "$_ not present" if $@;
}
}
use Test::XML;
plan tests => 4;
#---------------------------------------------------------------------
test_out( "ok 1" );
is_xml( '<foo/>', '<foo/>' );
test_test( 'is_xml() spots same bits of xml' );
#---------------------------------------------------------------------
{
local $TODO = "buggery uppage";
test_out( "not ok 1" );
test_fail( +2 );
test_diag( "Found 2 differences:", " Child element 'foo' missing from element ''.", " Rogue element 'bar' in element ''." );
is_xml( '<foo/>', '<bar/>' );
test_test( 'is_xml() spots different bits of xml' );
}
#---------------------------------------------------------------------
{
local $TODO = "buggery uppage";
test_out( "not ok 1" );
test_fail( +2 );
test_diag( "During compare:", "not well-formed (invalid token) at line 1, column 1, byte 1" );
is_xml( '</>', '<foo/>' );
test_test( 'is_xml() whinges about broken source xml' );
}
#---------------------------------------------------------------------
{
local $TODO = "buggery uppage";
test_out( "not ok 1" );
test_fail( +2 );
test_diag( "During compare:", "no element found at line 1, column 0, byte -1" );
is_xml( '<foo/>', '' );
test_test( 'is_xml() whinges about broken dest xml' );
}
#---------------------------------------------------------------------
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# indent-tabs-mode: nil
# End:
# vim: set ai et sw=4 syntax=perl :