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';
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',