use Data::Dumper;
use Scalar::Util ();
-# Test cases for incoming utf8
+# Test cases for incoming utf8
{
package MyApp::Controller::Root;
# 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 {
# 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));
}
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',
is decode_utf8($res->content), "<p>This is stream_body_fh action ♥</p>\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',