X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Futf_incoming.t;h=6342025b8f4795fe0fe5cf43a33e41a16eef3e76;hp=c144a443b8f60aeb0d966037777a6bdffc7e723d;hb=6cf77e11ef210219fbbe19df5f5b7cd7c84f501c;hpb=9f3e69eeed571171a639f0af2a627da4baf9fc93

diff --git a/t/utf_incoming.t b/t/utf_incoming.t
index c144a44..6342025 100644
--- a/t/utf_incoming.t
+++ b/t/utf_incoming.t
@@ -479,6 +479,16 @@ SKIP: {
 
 }
 
+{
+  my $shiftjs = 'test テスト';
+  my $encoded = Encode::encode('UTF-8', $shiftjs);
+
+  ok my $req = GET "/root/echo_arg?a=$encoded";
+  my ($res, $c) = ctx_request $req;
+
+  is $c->req->query_parameters->{'a'}, $shiftjs, 'got expected value';
+}
+
 ## should we use binmode on filehandles to force the encoding...?
 ## Not sure what else to do with multipart here, if docs are enough...