This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Encode to CPAN version 2.54
[perl5.git] / cpan / Encode / t / decode.t
1 #
2 # $Id: decode.t,v 1.1 2013/08/29 16:47:39 dankogai Exp dankogai $
3 #
4 use strict;
5 use Encode qw(decode_utf8 FB_CROAK);
6 use Test::More tests => 3;
7
8 sub croak_ok(&) {
9     my $code = shift;
10     eval { $code->() };
11     like $@, qr/does not map/;
12 }
13
14 my $bytes = "L\x{e9}on";
15 my $pad = "\x{30C9}";
16
17 my $orig = $bytes;
18 croak_ok { Encode::decode_utf8($orig, FB_CROAK) };
19
20 my $orig2 = $bytes;
21 croak_ok { Encode::decode('utf-8', $orig2, FB_CROAK) };
22
23 chop(my $new = $bytes . $pad);
24 croak_ok { Encode::decode_utf8($new, FB_CROAK) };
25