Permalink
Browse files

the tests should expect an uppercase UTF label now

  • Loading branch information...
wchristian committed Aug 9, 2011
1 parent 7ee1028 commit c4f8b67b2ba68fd93c98cc245505c08c7cd990d8
Showing with 2 additions and 2 deletions.
  1. +1 −1 t/03-link.t
  2. +1 −1 t/04-person.t
View
@@ -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
@@ -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>/;

0 comments on commit c4f8b67

Please sign in to comment.