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=d21137d96b35c4aa1bf3db80c423da3b6ef5fa14;hp=52939512e3b55d04792024d1a985df295e45548d;hb=b114ef4764de1bc4f492ba9832b3bae3eba2e17c;hpb=ef52d28f14574311a08012a742a704c36fd1cc28 diff --git a/t/utf_incoming.t b/t/utf_incoming.t index 5293951..d21137d 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)); } @@ -409,7 +409,9 @@ use Catalyst::Test 'MyApp'; is $res->content_charset, 'UTF-8'; } +SKIP: { + skip 'skipped: sysread isn\'t allowed on :utf8 handles (starting with 5.029004)', 4 if $] >= '5.029004'; ok my $path = File::Spec->catfile('t', 'utf8.txt'); ok my $req = POST '/root/file_upload', Content_Type => 'form-data', @@ -419,7 +421,9 @@ use Catalyst::Test 'MyApp'; is decode_utf8($res->content), "

This is stream_body_fh action ♥

\n"; } +SKIP: { + skip 'skipped: sysread isn\'t allowed on :utf8 handles (starting with 5.029004)', 5 if $] >= '5.029004'; ok my $path = File::Spec->catfile('t', 'utf8.txt'); ok my $req = POST '/root/file_upload_utf8_param', Content_Type => 'form-data',