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=7e2888d9872118228a64b1758bb66a4588509564;hp=9a3d2d8f346ebbb7bf71307f2bb12653cfc8b1d6;hb=b9d96e27325fd2b5bc7ff2bd28e5c96675b42c7f;hpb=0ca510f0aa1cabe138d81897d38111d7b772449c

diff --git a/t/utf_incoming.t b/t/utf_incoming.t
index 9a3d2d8..7e2888d 100644
--- a/t/utf_incoming.t
+++ b/t/utf_incoming.t
@@ -2,6 +2,7 @@ use utf8;
 use warnings;
 use strict;
 use Test::More;
+use HTTP::Request::Common;
 
 # Test cases for incoming utf8 
 
@@ -42,7 +43,7 @@ use Test::More;
 ok my $psgi = MyApp->psgi_app, 'build psgi app';
 
 use Catalyst::Test 'MyApp';
-use Encode 2.21 'decode_utf8';
+use Encode 2.21 'decode_utf8', 'encode_utf8';
 
 {
   my $res = request "/root/♥";
@@ -69,12 +70,20 @@ use Encode 2.21 'decode_utf8';
 }
 
 {
-  my $res = request "/base/♥?♥=♥♥";
+  my ($res, $c) = ctx_request POST "/base/♥?♥=♥&♥=♥♥", [a=>1, b=>'', '♥'=>'♥', '♥'=>'♥♥'];
 
   is $res->code, 200, 'OK';
   is decode_utf8($res->content), '<p>This is base-link action ♥</p>', 'correct body';
   is $res->content_length, 35, 'correct length';
+  is $c->req->parameters->{'♥'}[0], '♥';
+  is $c->req->query_parameters->{'♥'}[0], '♥';
+  is $c->req->body_parameters->{'♥'}[0], '♥';
+  is $c->req->parameters->{'♥'}[0], '♥';
 }
 
+## tests for args and captureargs (chained and otherise)
+## warn $c->req->uri; (seemsto be pre encodinged and all
+## test what uri_for looks like in responses 
+
 
 done_testing;