1# 2# $Id: decode.t,v 1.1 2013/08/29 16:47:39 dankogai Exp $ 3# 4use strict; 5use Encode qw(decode_utf8 FB_CROAK); 6use Test::More tests => 3; 7 8sub croak_ok(&) { 9 my $code = shift; 10 eval { $code->() }; 11 like $@, qr/does not map/; 12} 13 14my $bytes = "L\x{e9}on"; 15my $pad = "\x{30C9}"; 16 17my $orig = $bytes; 18croak_ok { Encode::decode_utf8($orig, FB_CROAK) }; 19 20my $orig2 = $bytes; 21croak_ok { Encode::decode('utf-8', $orig2, FB_CROAK) }; 22 23chop(my $new = $bytes . $pad); 24croak_ok { Encode::decode_utf8($new, FB_CROAK) }; 25 26