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=a95f58a807b96127fffa82d9836286c0de8ddb3d;hp=8b88a0ef8e635be1ba429db48041afad03668a3d;hb=5757858f133f7f1e92dd996dad0f6e28b0b919ed;hpb=9206d78d3c3c9439fcbc0b9dd79c552beebe5ff5 diff --git a/t/utf_incoming.t b/t/utf_incoming.t index 8b88a0e..a95f58a 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)); } @@ -234,7 +234,7 @@ use Scalar::Util (); package MyApp; use Catalyst; - Test::More::ok(MyApp->setup, 'setup app'); + Test::More::ok(MyApp->setup('-Log=fatal'), 'setup app'); } ok my $psgi = MyApp->psgi_app, 'build psgi app'; @@ -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...