Merge pull request #12 from miyagawa/decode-utf8

Unit test for decoding behavior change in #11
dankogai · Aug 29, 2013 · c9be90a · c9be90a
2 parents 1f1e421 + 0d0973e
commit c9be90a
Showing 1 changed file with 22 additions and 0 deletions.
diff --git a/t/decode.t b/t/decode.t
@@ -0,0 +1,22 @@
+use strict;
+use Encode qw(decode_utf8 FB_CROAK);
+use Test::More tests => 3;
+
+sub croak_ok(&) {
+    my $code = shift;
+    eval { $code->() };
+    like $@, qr/does not map/;
+}
+
+my $bytes = "L\x{e9}on";
+my $pad = "\x{30C9}";
+
+my $orig = $bytes;
+croak_ok { Encode::decode_utf8($orig, FB_CROAK) };
+
+my $orig2 = $bytes;
+croak_ok { Encode::decode('utf-8', $orig2, FB_CROAK) };
+
+chop(my $new = $bytes . $pad);
+croak_ok { Encode::decode_utf8($new, FB_CROAK) };
+