skip tests if euc-jp is not supported on the system

t/11-entry.t

@@ -2,11 +2,18 @@
 
 use strict;
 
-use Test::More tests => 71;
+use t::TestLib;
+use Test::More;
 use XML::Atom;
 use XML::Atom::Entry;
 use XML::Atom::Person;
 
+unless ( xmllib_support_encoding('euc-jp') ){
+    plan skip_all => 'euc-jp is not supported on your XML library';
+}
+
+plan tests => 71;
+
 my $entry;
 
 $entry = XML::Atom::Entry->new;

t/TestLib.pm

@@ -0,0 +1,21 @@
+package t::TestLib;
+use strict;
+use base qw( Exporter );
+
+our @EXPORT = qw( xmllib_support_encoding );
+use XML::Atom;
+
+sub xmllib_support_encoding {
+    my $enc = shift;
+
+    my $xml = qq(<?xml version="1.0" encoding="$enc"?>\n<foo />);
+    if (LIBXML) {
+        eval { XML::LibXML->new->parse_string($xml) };
+        return $@ ? 0 : 1;
+    } else {
+        eval { XML::XPath->new(xml => $xml) };
+        return $@ ? 0 : 1;
+    }
+}
+
+1;