diff options
Diffstat (limited to 'gnu/usr.bin/perl/lib/utf8.t')
| -rw-r--r-- | gnu/usr.bin/perl/lib/utf8.t | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/lib/utf8.t b/gnu/usr.bin/perl/lib/utf8.t index 576d90e5a81..81ebc221614 100644 --- a/gnu/usr.bin/perl/lib/utf8.t +++ b/gnu/usr.bin/perl/lib/utf8.t @@ -37,7 +37,7 @@ no utf8; # Ironic, no? # # -plan tests => 145; +plan tests => 150; { # bug id 20001009.001 @@ -425,3 +425,17 @@ SKIP: { utf8::upgrade($b); is($b, $a, "utf8::upgrade OffsetOK"); } + +{ + fresh_perl_like ('use utf8; utf8::moo()', + qr/Undefined subroutine utf8::moo/, {stderr=>1}, + "Check Carp is loaded for AUTOLOADing errors") +} + +{ + # failure of is_utf8_char() without NATIVE_TO_UTF on EBCDIC (0260..027F) + ok(utf8::valid(chr(0x250)), "0x250"); + ok(utf8::valid(chr(0x260)), "0x260"); + ok(utf8::valid(chr(0x270)), "0x270"); + ok(utf8::valid(chr(0x280)), "0x280"); +} |