view release on metacpan or  search on metacpan

t/decode.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#
# $Id: decode.t,v 1.5 2019/01/31 04:26:40 dankogai Exp $
#
use strict;
use Encode qw(decode_utf8 FB_CROAK find_encoding decode);
use Test::More tests => 17;
use Test::Builder;
 
sub croak_ok(&) {
    local $Test::Builder::Level = $Test::Builder::Level + 1;
    my $code = shift;
    eval { $code->() };
    like $@, qr/does not map/;
}
 
my $bytes = "L\x{e9}on";
my $pad = "\x{30C9}";
 
my $orig = $bytes;