| Subject: | t/08-schema.t noisy under 5.17.2 (unescaped left brace in regex is deprecated) |
Perl 5.17 deprecates un-escaped left braces in regular expressions, and
emits a warning. Test t/08-schema.t tickles this deprecation. A patch is
attached.
I call this unimportant because it's only a warning, and in a
development version to boot. This severity will probably escalate if
this deprecation survives to 5.18, especially if it breaks the test
suites of other modules that test for unexpected warnings.
| Subject: | Soap-Lite-08-schema.patch |
--- t/08-schema.old 2010-06-03 11:33:25.000000000 -0400
+++ t/08-schema.t 2012-07-21 11:43:40.000000000 -0400
@@ -74,12 +74,12 @@
ok($@ =~ m!Unrecognized type '\{http://www.w3.org/1999/XMLSchema\}something'!);
eval { SOAP::Deserializer->deserialize('<i xmlns:xsd="http://some.thing.else/XMLSchema" xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance" xsi:type="xsd:something">12</i>') };
- ok($@ =~ m!Unrecognized type '{http://some.thing.else/XMLSchema}something'!);
+ ok($@ =~ m!Unrecognized type '\{http://some.thing.else/XMLSchema\}something'!);
foreach (qw(base64Binary hexBinary anyType anySimpleType
gMonth gYearMonth gYear gMonthDay gDay duration anyURI dateTime)) {
eval { SOAP::Deserializer->deserialize(qq!<i xmlns:xsd="http://www.w3.org/1999/XMLSchema" xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance" xsi:type="xsd:$_">12</i>!) };
- ok($@ =~ m!Unrecognized type '{http://www.w3.org/1999/XMLSchema}$_'!);
+ ok($@ =~ m!Unrecognized type '\{http://www.w3.org/1999/XMLSchema\}$_'!);
}
ok(SOAP::Deserializer->deserialize(qq!<i xmlns:xsd="http://www.w3.org/1999/XMLSchema" xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance" xsi:type="xsd:boolean">true</i>!)->root eq '1');
@@ -95,7 +95,7 @@
foreach (qw(ur-type base64 hex
timeDuration uriReference timeInstant month year recurringDate recurringDay)) {
eval { SOAP::Deserializer->deserialize(qq!<i xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:type="xsd:$_">12</i>!) };
- ok($@ =~ m!Unrecognized type '{http://www.w3.org/2001/XMLSchema}$_'!);
+ ok($@ =~ m!Unrecognized type '\{http://www.w3.org/2001/XMLSchema\}$_'!);
}
eval { SOAP::Deserializer->deserialize(qq!<i xmlns:xsd="http://www.w3.org/1999/XMLSchema" xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance" xsi:type="xsd:boolean">something</i>!) };