File Coverage

blib/lib/Test/XML/Compare.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

## ----------------------------------------------------------------------------
# Copyright (C) 2009 NZ Registry Services
## ----------------------------------------------------------------------------
package Test::XML::Compare;

use 5.006000;
use base 'Test::Builder::Module';
use strict;
use warnings;
use XML::LibXML;
use Test::Builder;
use XML::Compare;

require Exporter;

our @ISA = qw(Exporter);

our @EXPORT = qw(
    is_xml_same is_xml_different
);

our $VERSION = '0.04';

my $TEST = Test::Builder->new();
my $PARSER = XML::LibXML->new();

my $has = {
    localname => {
        # not Comment, CDATASection
        'XML::LibXML::Attr' => 1,
        'XML::LibXML::Element' => 1,
    },
    namespaceURI => {
        # not Comment, Text, CDATASection
        'XML::LibXML::Attr' => 1,
        'XML::LibXML::Element' => 1,
    },
    attributes => {
        # not Attr, Comment, CDATASection
        'XML::LibXML::Element' => 1,
    },
    value => {
        # not Element, Comment, CDATASection
        'XML::LibXML::Attr' => 1,
        'XML::LibXML::Comment' => 1,
    },
    data => {
        # not Element, Attr
        'XML::LibXML::CDATASection' => 1,
        'XML::LibXML::Comment' => 1,
        'XML::LibXML::Text' => 1,
    },
};

sub import {
	my $class = shift @_;
	Test::XML::Compare->export_to_level(1, $class);
	$TEST->exported_to(caller);
	$TEST->plan(@_) if @_;
}

sub is_xml_same($$;$) {
	my ($xml1, $xml2, $msg) = @_;
    return $TEST->ok(XML::Compare::is_same($xml1, $xml2), $msg);
}

sub is_xml_different($$;$) {
	my ($xml1, $xml2, $msg) = @_;
    return $TEST->ok(XML::Compare::is_different($xml1, $xml2), $msg);
}

1;
__END__