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=9b2b68efbfe2f91efb3e44c644c7da6933def196;hp=8b88a0ef8e635be1ba429db48041afad03668a3d;hb=88e5a8b0c4d28e46b8ba6b6b9567063e57af9063;hpb=9206d78d3c3c9439fcbc0b9dd79c552beebe5ff5 diff --git a/t/utf_incoming.t b/t/utf_incoming.t index 8b88a0e..9b2b68e 100644 --- a/t/utf_incoming.t +++ b/t/utf_incoming.t @@ -10,7 +10,7 @@ use JSON::MaybeXS; use Data::Dumper; use Scalar::Util (); -# Test cases for incoming utf8 +# Test cases for incoming utf8 { package MyApp::Controller::Root; @@ -73,7 +73,7 @@ use Scalar::Util (); # Test to make sure redirect can now take an object (sorry don't have a better place for it # but wanted test coverage. my $location = $c->res->redirect( $c->uri_for($c->controller('Root')->action_for('uri_for')) ); - Test::More::ok !ref $location; + Test::More::ok !ref $location; } sub stream_write :Local { @@ -170,7 +170,7 @@ use Scalar::Util (); # Encode JSON also encodes to a UTF-8 encoded, binary string. This is why we don't # have application/json as one of the things we match, otherwise we get double - # encoding. + # encoding. $c->response->body(JSON::MaybeXS::encode_json($post)); } @@ -558,10 +558,8 @@ SKIP: { my $res = request $req; is ($res->code, '400', "Invalid get param is 400") or diag Dumper($res->decoded_content); } - } - ## should we use binmode on filehandles to force the encoding...? ## Not sure what else to do with multipart here, if docs are enough...