Blame perl-SOAP-WSDL-use-Test-XML.patch
|
 |
d2881c2 |
Description: use Test::XML for comparing XML instead of 'eq'
|
|
|
d2881c2 |
'eq' works most of the time, until you have XML structures which have more
|
|
|
d2881c2 |
than one attribute. Their serialization is non-deterministic since the order
|
|
|
d2881c2 |
of the attributes is not predictable.
|
|
|
d2881c2 |
Author: Damyan Ivanov <dmn@debian.org>
|
|
|
d2881c2 |
Bug: https://rt.cpan.org/Ticket/Display.html?id=74257
|
|
|
d2881c2 |
Bug-Debian: https://bugs.debian.org/720964
|
|
|
d2881c2 |
--- a/t/SOAP/WSDL/05_simpleType-list.t
|
|
|
d2881c2 |
+++ b/t/SOAP/WSDL/05_simpleType-list.t
|
|
|
d2881c2 |
@@ -36,7 +36,11 @@ ok $xml = $soap->call('test', testAll =>
|
|
|
d2881c2 |
#5
|
|
|
d2881c2 |
ok ( $xml2 = $soap->call('test', testAll => "1 2" ) , 'Serialized scalar call' );
|
|
|
d2881c2 |
#6
|
|
|
d2881c2 |
-ok( $xml eq $xml2, 'Got expected result');
|
|
|
d2881c2 |
+SKIP: {
|
|
|
d2881c2 |
+ skip "Test::XML needed for comparing XML", 1
|
|
|
d2881c2 |
+ unless eval { require Text::XML };
|
|
|
d2881c2 |
+ is_xml( $xml, $xml2, 'Got expected result');
|
|
|
d2881c2 |
+}
|
|
|
d2881c2 |
|
|
|
d2881c2 |
#7
|
|
|
d2881c2 |
TODO: {
|