Changeset 18369 for lang/perl/RPC-XML-Parser-LibXML/trunk/t/RPC-XML-Parser-LibXML.t

Timestamp:

08/28/08 10:21:05 (4 months ago)

Author:

miyagawa

Message:

fix a bug when findnodes() return null node.

Files:

• lang/perl/RPC-XML-Parser-LibXML/trunk/t/RPC-XML-Parser-LibXML.t (modified) (2 diffs)

lang/perl/RPC-XML-Parser-LibXML/trunk/t/RPC-XML-Parser-LibXML.t

@@ -6 +6 @@
 # change 'tests => 1' to 'tests => last_test_to_print';
 
-use Test::More tests => 21;
+use Test::More tests => 24;
 BEGIN { use_ok('RPC::XML::Parser::LibXML') };
 
@@ -376 +376 @@
   'Windows Live Write style newlines';
 
-
-
+my $r = eval { RPC::XML::Parser::LibXML::parse_rpc_xml(<<XML);
+<?xml version="1.0" encoding="UTF-8"?>
+<methodCall>
+<methodName>metaWeblog.newPost</methodName><params>
+<param><value><string>testf</string></value></param>
+<param><value><string>USERNAME</string></value></param><param><value><string>PASSWORD</string></value></param>
+<param><value><struct><member><name>title</name><value>tyuyur</value></member><member><name>description</name><value>&lt;a href=&quot;http://example.com/.a/6a00d83453919f69e200ddx53f5f4178833-pi&quot;&gt;&lt;img src = &quot;http://tsdavis.typepad.com/.a/6a00d83453919f69e200e553f5f4178833-pi&quot; align = &quot;left&quot; height=&quot;384&quot; width=&quot;212&quot; hspace = &quot;20&quot; /&gt;&lt;/a&gt;</value></member></struct></value></param>
+<param><value><boolean>1</boolean></value></param></params>
+</methodCall>
+XML
+};
+
+ok !$@;
+is $r->{name}, 'metaWeblog.newPost';
+is @{ $r->{args} }, 5;
+
+