XML-Assert
文件大小: unknow
源码售价: 5 个金币 积分规则     积分充值
资源说明:Perl Module to assert things in an XML document based on an XPath
XML-Assert      v0.01
Test-XML-Assert v0.01
=====================

These two modules help you check that what you expect to be in an XML document
is actually there. You can do this via

The XML::Assert module exports the assert() function. This ...

* xpath_matches( xpath, value, msg );
* xpath_attr_is( xpath, attribute_name, value, msg ); # surely the xpath can include the @attr ?
* xpath_text_is( xpath, value, msg );

Examples:

* xpath_matches( '//NameServers/Server/IPV4Addr', 0, 'NameServer IPv4Addr is not present' )
* xpath_attr_is( '//TechnicalContact/Fax', 'CountryCode', 64, 'TechnicalContact Fax CountryCode is correct' );
* xpath_text_is( '//AuditText', 'Audit text s1c1', 'AuditText is correct' );

EXAMPLE XML ASSERTIONS
======================

For example, in the following document, you can assert a number of things, for
example, that you expect one  element in the document, and that it's
value is "Hello, World!":

    my $xml = <<'EOF';
    
    
      
      Hello, World!
    
    EOF

    my $parser = XML::LibXML->new();
    my $doc = $parser->parse_string( $xml )->documentElement();
   
    my $xml_assert = XML::Assert->new();

    $xml_assert->is_xpath_count($doc, '//content', 1);
    $xml_assert->does_xpath_value_match($doc, '//content', 'Hello, World!')

INSTALLATION
============

To install this module type the following:

   perl Makefile.PL
   make
   make test
   make install

DEPENDENCIES
============

This module requires these other modules and libraries:

XML::LibXML (>= 1.70)
Test::Simple (Test::More/Test::Builder -- core)

AUTHOR, COPYRIGHT AND LICENCE
=============================

Written by Andrew Chilton:

* andychilton@gmail.com
* andy@catalyst.net.nz

Hacked on by Sam Vilain:

* sam@vilain.net
* samv@catalyst.net.nz

This software development is sponsored and directed by New Zealand Registry
Services, http://www.nzrs.net.nz/

The work is being carried out by Catalyst IT, http://www.catalyst.net.nz/

Copyright (c) 2009, NZ Registry Services.  All Rights Reserved.  This software
may be used under the terms of the Artistic License 2.0.  Note that this
license is compatible with both the GNU GPL and Artistic licenses.  A copy of
this license is supplied with the distribution in the file COPYING.txt.

本源码包内暂不包含可直接显示的源代码文件,请下载源码包。