use Test;
BEGIN { plan tests => 1 }
use XML::SemanticDiff;
$xml1 = <<'EOX';
<?xml version="1.0"?>
<root>
<el1 el1attr="good"/>
<el2 el2attr="good">Some Text</el2>
<el3/>
</root>
EOX
$xml2 = <<'EOX';
<?xml version="1.0"?>
<root>
<el1 el1attr="bad"/>
<el2 bogus="true"/>
<el4>Rogue</el4>
</root>
EOX
my $handler = SimpleDiff->new();
my $diff = XML::SemanticDiff->new(diffhandler => $handler);
my @results = $diff->compare($xml1, $xml2);
ok(@results == 8);
package SimpleDiff;
use strict;
sub new {
my ($proto, %args) = @_;
my $class = ref($proto) || $proto;
my $self = \%args;
bless ($self, $class);
return $self;
}
sub init {
return 1;
}
sub rogue_element {
return 1;
}
sub rogue_attribute {
return 1;
}
sub missing_element {
return 1;
}
sub missing_attribute {
return 1;
}
sub attribute_value {
return 1;
}
sub element_value {
return 1;
}
sub namespace_uri {
return 1;
}
sub final {
#
return 1;
}
1;