Skip to content
Browse files

Merge pull request #3 from wchristian/test_fixes

Test fixes
  • Loading branch information...
2 parents 92089d3 + 4f0896b commit d04ef0ded5b4ae1936d15f6f66bde58b29ea607c @miyagawa miyagawa committed Sep 18, 2011
Showing with 4 additions and 3 deletions.
  1. +1 −1 t/03-link.t
  2. +1 −1 t/04-person.t
  3. +1 −1 t/30-datetime-stringification.t
  4. +1 −0 t/31-external-entities-libxml.t
View
2 t/03-link.t
@@ -27,7 +27,7 @@ $link->type('text/html');
is $link->type, 'text/html';
my $xml = $link->as_xml;
-like $xml, qr/^<\?xml version="1.0" encoding="utf-8"\?>/;
+like $xml, qr/^<\?xml version="1.0" encoding="UTF-8"\?>/;
like $xml, qr/<link xmlns="http:\/\/purl.org\/atom\/ns#"/;
like $xml, qr/title="This is a test."/;
like $xml, qr/rel="alternate"/;
View
2 t/04-person.t
@@ -20,7 +20,7 @@ $person->email('foo@bar.com');
is $person->email, 'foo@bar.com';
my $xml = $person->as_xml;
-like $xml, qr/^<\?xml version="1.0" encoding="utf-8"\?>/;
+like $xml, qr/^<\?xml version="1.0" encoding="UTF-8"\?>/;
like $xml, qr/<author xmlns="http:\/\/purl.org\/atom\/ns#">/;
like $xml, qr/<name(?: xmlns="http:\/\/purl.org\/atom\/ns#")?>Baz Quux<\/name>/;
like $xml, qr/<email(?: xmlns="http:\/\/purl.org\/atom\/ns#")?>foo\@bar.com<\/email>/;
View
2 t/30-datetime-stringification.t
@@ -4,7 +4,7 @@ use Test::More;
BEGIN {
unless (eval { require DateTime } and eval { require DateTime::Format::Atom }) {
- plan skip_all => 'DateTime is required for tests';
+ plan skip_all => 'DateTime and DateTime::Format::Atom are required for tests';
}
}
View
1 t/31-external-entities-libxml.t
@@ -4,6 +4,7 @@ use Test::More;
use XML::Atom::Entry;
use FindBin;
my $filepath = "$FindBin::Bin/samples/entry-ns.xml";
+$filepath = "/$filepath" if $filepath !~ m@^/@;
BEGIN {
unless (eval { require XML::LibXML }) {

0 comments on commit d04ef0d

Please sign in to comment.
Something went wrong with that request. Please try again.