forked from pool/perl-Net-Jabber
1e86a3163f
Copy from devel:languages:perl/perl-Net-Jabber based on submit request 25092 from user msmeissn OBS-URL: https://build.opensuse.org/request/show/25092 OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl-Net-Jabber?expand=0&rev=5
31 lines
2.5 KiB
Diff
31 lines
2.5 KiB
Diff
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",
|