File Coverage

blib/lib/Test/XML/Assert.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) 2010 NZ Registry Services
## ----------------------------------------------------------------------------
package Test::XML::Assert;

use 5.006000;
use strict;
use warnings;
#use base 'Test::Builder::Module';
use Test::Builder::Module;
our @ISA = qw(Test::Builder::Module);
use XML::LibXML;
use XML::Assert;

our @EXPORT = qw(
    is_xpath_count
    does_xpath_value_match
    do_xpath_values_match
    does_attr_value_match
);

our $VERSION = '0.03';

my $CLASS = __PACKAGE__;
my $PARSER = XML::LibXML->new();

sub is_xpath_count($$$$;$) {
    my ($doc, $xmlns, $xpath, $count, $name) = @_;

    # create the $xml_assert object
    my $xml_assert = XML::Assert->new();
    $xml_assert->xmlns($xmlns);

    # do the test and remember the result
    my $is_ok = $xml_assert->is_xpath_count($doc, $xpath, $count);

    my $tb = $CLASS->builder();
    return $tb->ok($is_ok, $name);
}

sub does_xpath_value_match($$$$;$) {
    my ($doc, $xmlns, $xpath, $match, $name) = @_;

    my $xml_assert = XML::Assert->new();
    $xml_assert->xmlns($xmlns);

    # do the test and remember the result
    my $is_ok = $xml_assert->does_xpath_value_match($doc, $xpath, $match);

    my $tb = $CLASS->builder();
    return $tb->ok($is_ok, $name);
}

sub do_xpath_values_match($$$$;$) {
    my ($doc, $xmlns, $xpath, $match, $name) = @_;

    my $xml_assert = XML::Assert->new();
    $xml_assert->xmlns($xmlns);

    # do the test and remember the result
    my $is_ok = $xml_assert->do_xpath_values_match($doc, $xpath, $match);

    my $tb = $CLASS->builder();
    return $tb->ok($is_ok, $name);
}

sub does_attr_value_match($$$$$;$) {
    my ($doc, $xmlns, $xpath, $attr, $match, $name) = @_;

    my $xml_assert = XML::Assert->new();
    $xml_assert->xmlns($xmlns);

    # do the test and remember the result
    my $is_ok = $xml_assert->does_attr_value_match($doc, $xpath, $attr, $match);

    my $tb = $CLASS->builder();
    return $tb->ok($is_ok, $name);
}

sub do_attr_values_match($$$$;$) {
    my ($doc, $xmlns, $xpath, $attr, $match, $name) = @_;

    my $xml_assert = XML::Assert->new();
    $xml_assert->xmlns($xmlns);

    # do the test and remember the result
    my $is_ok = $xml_assert->do_attr_values_match($doc, $xpath, $attr, $match);

    my $tb = $CLASS->builder();
    return $tb->ok($is_ok, $name);
}

1;

__END__