X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Funit_core_uri_for_multibytechar.t;fp=t%2Funit_core_uri_for_multibytechar.t;h=72e981335f9b9ad368768dc6f16d79603eb91f4e;hb=01d6806bfecb3275a2aa657e46676bcb2a2ef938;hp=f29d6afba709edaa92073feceed316d91133de1a;hpb=8dc69021513026f14bf6920a289759b73ad1e29f;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/unit_core_uri_for_multibytechar.t b/t/unit_core_uri_for_multibytechar.t
index f29d6af..72e9813 100644
--- a/t/unit_core_uri_for_multibytechar.t
+++ b/t/unit_core_uri_for_multibytechar.t
@@ -5,9 +5,10 @@ use FindBin;
 use File::Spec;
 use lib File::Spec->catfile($FindBin::Bin, 'lib');
 
-use Test::More;
+use utf8; # for literal below
+use Encode; # URI.pm is braindead wrt unicode-flagged characters
 
-plan tests => 5;
+use Test::More tests => 5;
 
 use_ok('TestApp');
 
@@ -26,10 +27,9 @@ my $context = TestApp->new({
 my $uri_with_multibyte = URI->new($base);
 $uri_with_multibyte->path('/');
 $uri_with_multibyte->query_form(
-    name => '村瀬大輔',
+    name => Encode::encode('utf8', '村瀬大輔'),
 );
 
-
 # multibyte with utf8 bytes
 is($context->uri_for('/', { name => '村瀬大輔' }), $uri_with_multibyte, 'uri_for with utf8 bytes query');
 is($context->req->uri_with({ name => '村瀬大輔' }), $uri_with_multibyte, 'uri_with with utf8 bytes query');