skip xml failure tests if XML::LibXML < 1.59 is installed, it seems to parse anything...

diff --git a/Changes b/Changes
index 487dea3..0512418 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for Config-Any
 
+0.14 XXX
+    - skip xml failure tests if XML::LibXML < 1.59 is installed, it seems
+      to parse anything you throw at it (Matt S. Trout)
+
 0.13 Tue 05 Aug 2008
     - show actual parse error when parse fails (Marcus Ramberg)
     - ensure Config::Tiny parse errors are trapped

diff --git a/lib/Config/Any.pm b/lib/Config/Any.pm
index de8f6fa..c4de85b 100644 (file)
--- a/lib/Config/Any.pm
+++ b/lib/Config/Any.pm
@@ -6,7 +6,7 @@ use warnings;
 use Carp;
 use Module::Pluggable::Object ();
 
-our $VERSION = '0.13';
+our $VERSION = '0.14';
 
 =head1 NAME
 

diff --git a/t/54-xml.t b/t/54-xml.t
index 0f7514a..41376ac 100644 (file)
--- a/t/54-xml.t
+++ b/t/54-xml.t
@@ -18,7 +18,11 @@ else {
 }
 
 # test invalid config
-{
+SKIP: {
+    my $broken_libxml = eval { require XML::LibXML; XML::LibXML->VERSION lt '1.59'; };
+    skip 'XML::LibXML < 1.58 has issues', 2 if $broken_libxml;
+
+    local $SIG{__WARN__} = sub {}; # squash warnings from XML::Simple
     my $file = 't/invalid/conf.xml';
     my $config = eval { Config::Any::XML->load( $file ) };