X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Funicode_plugin_no_encoding.t;h=8034c3840955c11531ba5896d52465d1f650c277;hb=1a87d45c9c78b4b0a27dfeef4c04d1a9a6956b4d;hp=a32c76b7845e7629bc45731f40f8d230c9b5bd8a;hpb=a6a3355ffafb71e9a52b0ac5a533dc9cb6f8ba8b;p=catagits%2FCatalyst-Runtime.git diff --git a/t/unicode_plugin_no_encoding.t b/t/unicode_plugin_no_encoding.t index a32c76b..8034c38 100644 --- a/t/unicode_plugin_no_encoding.t +++ b/t/unicode_plugin_no_encoding.t @@ -14,6 +14,7 @@ use Encode; use HTTP::Request::Common; use URI::Escape qw/uri_escape_utf8/; use HTTP::Status 'is_server_error'; +use Data::Dumper; my $encode_str = "\x{e3}\x{81}\x{82}"; # e38182 is japanese 'あ' my $decode_str = Encode::decode('utf-8' => $encode_str); @@ -40,9 +41,8 @@ sub check_parameter { is $myparam => $encode_str; } - is scalar(@TestLogger::ELOGS), 2 + is scalar(@TestLogger::ELOGS), 0 or diag Dumper(\@TestLogger::ELOGS); - like $TestLogger::ELOGS[0], qr/method \"decode\"/; } done_testing;