view release on metacpan or  search on metacpan

t/24-xml-draft-nzrs-srs-01.t  view on Meta::CPAN

# portions of NativeData in the DNRS code base :-)

use XML::SRS;

our @tests = XMLTests::find_tests;

plan tests => @tests * 3;

my $xml_compare = XML::Compare->new(
	ignore => [
		q{//Error//text()},  # FIXME - cdata types
		q{//DomainNameFilter/text()},  # FIXME - cdata types
		q{//AuditText/text()},  # FIXME - cdata types
		q{//AccessControlListQry/@FullResult},
	],
);

for my $test ( sort @tests ) {
	my $xml = XMLTests::read_xml($test);

	my $object = XMLTests::parse_test( "XML::SRS", $xml, $test );
SKIP: {
		skip "didn't parse", 2 unless $object;