X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Funicode_plugin_request_decode.t;h=42a9a722232fe6e999e7466ed71afd7dd2cf36ab;hb=e802107a22e7bf2ce0c4d525a125e357bcb11394;hp=a3bab973015a50a9b921f8b5ee87aa6e1dc00f3f;hpb=550464108eada19dba470ec5d17fc849399fdab0;p=catagits%2FCatalyst-Runtime.git diff --git a/t/unicode_plugin_request_decode.t b/t/unicode_plugin_request_decode.t index a3bab97..42a9a72 100644 --- a/t/unicode_plugin_request_decode.t +++ b/t/unicode_plugin_request_decode.t @@ -1,8 +1,6 @@ -#!/usr/bin/env perl - use strict; use warnings; -use Test::More tests => 5 * 5; +use Test::More; use utf8; # setup library path @@ -19,42 +17,19 @@ my $encode_str = "\x{e3}\x{81}\x{82}"; # e38182 is japanese 'ã' my $decode_str = Encode::decode('utf-8' => $encode_str); my $escape_str = uri_escape_utf8($decode_str); -check_parameter(GET "/?foo=$escape_str"); -check_parameter(POST '/', ['foo' => $encode_str]); -check_parameter(POST '/', - Content_Type => 'form-data', - Content => [ - 'foo' => [ - "$Bin/unicode_plugin_request_decode.t", - $encode_str, - ] - ], -); - -check_argument(GET "/$escape_str"); -check_capture(GET "/capture/$escape_str"); - -# sending non-utf8 data -my $non_utf8_data = "%C3%E6%CB%AA"; -check_fallback(GET "/?q=${non_utf8_data}"); -check_fallback(GET "/${non_utf8_data}"); -check_fallback(GET "/capture/${non_utf8_data}"); -check_fallback(POST '/', ['foo' => $non_utf8_data]); - sub check_parameter { my ( undef, $c ) = ctx_request(shift); is $c->res->output => '