[libhttp-entity-parser-perl] 03/08: Make it more clear that the parsed entity is utf-8 encoded.

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to tag 0.18
in repository libhttp-entity-parser-perl.

commit ed1a631883f910e4adf1f2f0eeb064ea141021d8
Author: Karen Etheridge <ether at cpan.org>
Date:   Sat Oct 1 21:16:43 2016 -0700

    Make it more clear that the parsed entity is utf-8 encoded.
    
    This does not change the meaning of the test, just makes it easier to read.
    Previously, because 'use utf8' was not included, the characters in the file
    were actually utf-8 encoded bytes, not decoded characters -- so it looked like
    the parser provided fully-decoded unicode characters in the entity.
---
 t/01_content_type/json.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/t/01_content_type/json.t b/t/01_content_type/json.t
index fe165e4..05a64cf 100644
--- a/t/01_content_type/json.t
+++ b/t/01_content_type/json.t
@@ -3,6 +3,7 @@ use warnings;
 use Test::More;
 use HTTP::Entity::Parser::JSON;
 use Hash::MultiValue;
+use utf8;
 
 my $parser = HTTP::Entity::Parser::JSON->new();
 $parser->add('{');
@@ -16,7 +17,7 @@ is_deeply(Hash::MultiValue->new(@$params)->as_hashref_multi,
   +{
     'hoge'     => [ 'fuga', 'hige' ],
     'moge'     => ['muga'],
-    'にほんご' => ['日本語'],
+    Encode::encode_utf8('にほんご') => [Encode::encode_utf8('日本語')],
   });
 is_deeply $uploads, [];
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libhttp-entity-parser-perl.git