Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

the tests should expect an uppercase UTF label now

  • Loading branch information...
commit c4f8b67b2ba68fd93c98cc245505c08c7cd990d8 1 parent 7ee1028
@wchristian wchristian authored
Showing with 2 additions and 2 deletions.
  1. +1 −1  t/03-link.t
  2. +1 −1  t/04-person.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>/;
Please sign in to comment.
Something went wrong with that request. Please try again.