summaryrefslogtreecommitdiff
path: root/lib/utf8.t
diff options
context:
space:
mode:
authorSADAHIRO Tomoyuki <BQW10602@nifty.com>2005-10-08 09:59:00 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-10-09 14:31:47 +0000
commit77263263f2dcc1d77fff24405b11002b13929822 (patch)
treedc9b521116d6104bbd0abe76331b7a9929b240f5 /lib/utf8.t
parent779ec47719855ab60e913a3e26cf358bbda748ab (diff)
downloadperl-77263263f2dcc1d77fff24405b11002b13929822.tar.gz
undef IS_UTF8_CHAR() on EBCDIC
Message-Id: <20051008165752.348A.BQW10602@nifty.com> p4raw-id: //depot/perl@25716
Diffstat (limited to 'lib/utf8.t')
-rw-r--r--lib/utf8.t10
1 files changed, 9 insertions, 1 deletions
diff --git a/lib/utf8.t b/lib/utf8.t
index 70ef1e3294..81ebc22161 100644
--- a/lib/utf8.t
+++ b/lib/utf8.t
@@ -37,7 +37,7 @@ no utf8; # Ironic, no?
#
#
-plan tests => 146;
+plan tests => 150;
{
# bug id 20001009.001
@@ -431,3 +431,11 @@ SKIP: {
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");
+}