From c82a54e6a750dc8a367ca819b48d5f3b6210486f Mon Sep 17 00:00:00 2001 From: Ilya Zakharevich Date: Sun, 24 Oct 1999 19:39:49 -0400 Subject: [PATCH] charnames and UTEST To: perl5-porters@perl.org (Mailing list Perl5) Message-Id: <199910250339.XAA16058@monk.mps.ohio-state.edu> p4raw-id: //depot/cfgperl@4451 --- t/lib/charnames.t | 22 +++++++++++++--------- 1 file changed, 13 insertions(+), 9 deletions(-) diff --git a/t/lib/charnames.t b/t/lib/charnames.t index 8d5c8db..b03083e 100644 --- a/t/lib/charnames.t +++ b/t/lib/charnames.t @@ -15,24 +15,28 @@ use charnames ':full'; print "not " unless "Here\N{EXCLAMATION MARK}?" eq 'Here!?'; print "ok 1\n"; -print "# \$res=$res \$\@='$@'\nnot " - if $res = eval <<'EOE' +{ + no utf8; # UTEST can switch it on + + print "# \$res=$res \$\@='$@'\nnot " + if $res = eval <<'EOE' use charnames ":full"; "Here: \N{CYRILLIC SMALL LETTER BE}!"; 1 EOE - or $@ !~ /above 0xFF/; -print "ok 2\n"; -# print "# \$res=$res \$\@='$@'\n"; + or $@ !~ /above 0xFF/; + print "ok 2\n"; + # print "# \$res=$res \$\@='$@'\n"; -print "# \$res=$res \$\@='$@'\nnot " - if $res = eval <<'EOE' + print "# \$res=$res \$\@='$@'\nnot " + if $res = eval <<'EOE' use charnames 'cyrillic'; "Here: \N{Be}!"; 1 EOE - or $@ !~ /CYRILLIC CAPITAL LETTER BE.*above 0xFF/; -print "ok 3\n"; + or $@ !~ /CYRILLIC CAPITAL LETTER BE.*above 0xFF/; + print "ok 3\n"; +} # If octal representation of unicode char is \0xyzt, then the utf8 is \3xy\2zt $encoded_be = "\320\261"; -- 2.7.4