-#!/usr/bin/env perl
-
use strict;
use warnings;
use Test::More;
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);
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;