File Net-Jabber-2.0-tests.diff of Package perl-Net-Jabber

Overview Repositories Revisions Requests Users Attributes Meta

File Net-Jabber-2.0-tests.diff of Package perl-Net-Jabber

Index: t/protocol_rpc.t
===================================================================
--- t/protocol_rpc.t.orig
+++ t/protocol_rpc.t
@@ -16,7 +16,12 @@ ok( defined($query1), "new()" );
 isa_ok( $query1, "Net::Jabber::Stanza" );
 isa_ok( $query1, "Net::XMPP::Stanza" );
 
-is( $query1->GetXML(), "<query xmlns='jabber:iq:rpc'><methodCall><methodName>test_call</methodName><params><param><value><string>foo</string></value></param><param><value><i4>4</i4></value></param><param><value><struct><member><name>a</name><value><i4>1</i4></value></member><member><name>b</name><value><string>bar</string></value></member></struct></value></param></params></methodCall></query>", "GetXML()" );
+my $o = "<query xmlns='jabber:iq:rpc'><methodCall><methodName>test_call</methodName><params><param><value><string>foo</string></value></param><param><value><i4>4</i4></value></param><param><value><struct>";
+my $a = "<member><name>a</name><value><i4>1</i4></value></member>";
+my $b = "<member><name>b</name><value><string>bar</string></value></member>";
+my $c = "</struct></value></param></params></methodCall></query>";
+my $r = $query1->GetXML();
+ok(($r eq "$o$a$b$c") || ($r eq "$o$b$a$c"), "GetXML()" );
 
 
 my $query2 = $client->RPCEncode(type=>"methodResponse",
@@ -37,7 +42,10 @@ ok( defined($query3), "new()" );
 isa_ok( $query3, "Net::Jabber::Stanza" );
 isa_ok( $query3, "Net::XMPP::Stanza" );
 
-is( $query3->GetXML(), "<query xmlns='jabber:iq:rpc'><methodResponse><params><param><value><string>foo</string></value></param><param><value><i4>4</i4></value></param><param><value><struct><member><name>a</name><value><i4>1</i4></value></member><member><name>b</name><value><string>bar</string></value></member></struct></value></param><param><value><array><data><value><string>a</string></value></data><data><value><i4>1</i4></value></data><data><value><string>foo</string></value></data></array></value></param></params></methodResponse></query>", "GetXML()" );
+my $o2 = "<query xmlns='jabber:iq:rpc'><methodResponse><params><param><value><string>foo</string></value></param><param><value><i4>4</i4></value></param><param><value><struct>";
+my $c2 = "</struct></value></param><param><value><array><data><value><string>a</string></value></data><data><value><i4>1</i4></value></data><data><value><string>foo</string></value></data></array></value></param></params></methodResponse></query>";
+my $r2 = $query3->GetXML();
+ok(($r2 eq "$o2$a$b$c2") || ($r2 eq "$o2$b$a$c2"), "GetXML()" );
 
 
 my $query4 = $client->RPCEncode(type=>"methodResponse",

Places

File Net-Jabber-2.0-tests.diff of Package perl-Net-Jabber

Places