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

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...