X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Fauthor%2Funicode_plugin_nested_params.t;fp=t%2Fauthor%2Funicode_plugin_nested_params.t;h=0000000000000000000000000000000000000000;hp=f9f47c6031e829e50659151bfaf9a5be218d72a1;hb=807303a1658f895c41417beba24d24ff9b71c194;hpb=b62c4f8b4b612b159ff6e02e350a818f6c6ee5c3 diff --git a/t/author/unicode_plugin_nested_params.t b/t/author/unicode_plugin_nested_params.t deleted file mode 100644 index f9f47c6..0000000 --- a/t/author/unicode_plugin_nested_params.t +++ /dev/null @@ -1,69 +0,0 @@ -use strict; -use warnings; -use Test::More; -use utf8; - -# setup library path -use FindBin qw($Bin); -use lib "$Bin/../lib"; - -BEGIN { eval { require Catalyst::Plugin::Params::Nested; 1; } || - plan skip_all => 'Need Catalyst::Plugin::Params::Nested' } - -use Catalyst::Test 'TestApp2'; -use Encode; -use HTTP::Request::Common; -use URI::Escape qw/uri_escape_utf8/; -use HTTP::Status 'is_server_error'; - -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); - -BEGIN { - eval 'require Catalyst::Plugin::Params::Nested'; - plan skip_all => 'Catalyst::Plugin::Params::Nested is required' if $@; -} - -{ - my ($res, $c) = ctx_request("/?foo.1=bar&foo.2=$escape_str"); - is( $c->res->output, '