12 use Catalyst::Test 'TestAppWithoutUnicode';
14 use HTTP::Request::Common;
15 use URI::Escape qw/uri_escape_utf8/;
16 use HTTP::Status 'is_server_error';
18 my $encode_str = "\x{e3}\x{81}\x{82}"; # e38182 is japanese 'あ'
19 my $decode_str = Encode::decode('utf-8' => $encode_str);
20 my $escape_str = uri_escape_utf8($decode_str);
22 check_parameter(GET "/?myparam=$escape_str");
23 check_parameter(POST '/',
24 Content_Type => 'form-data',
27 "$Bin/unicode_plugin_no_encoding.t",
28 "$Bin/unicode_plugin_request_decode.t",
34 my ( undef, $c ) = ctx_request(shift);
36 my $myparam = $c->req->param('myparam');
37 ok !utf8::is_utf8($myparam);
38 unless ( $c->request->method eq 'POST' ) {
39 is $c->res->output => $encode_str;
40 is $myparam => $encode_str;
43 is scalar(@TestLogger::ELOGS), 2
44 or diag Dumper(\@TestLogger::ELOGS);
45 like $TestLogger::ELOGS[0], qr/method \"decode\"/;