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=52939512e3b55d04792024d1a985df295e45548d;hb=10f9ef88e69b504106ed9e5cefa1088ccaf3308d;hpb=ef52d28f14574311a08012a742a704c36fd1cc28 diff --git a/t/utf_incoming.t b/t/utf_incoming.t index 5293951..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';