diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-10-24 19:39:49 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-25 08:13:06 +0000 |
| commit | c82a54e6a750dc8a367ca819b48d5f3b6210486f (patch) | |
| tree | 00a31ed54b0508b883e86263482cb5acc2507d46 /t | |
| parent | 0903b40598b1b829409041efc4821da5d84934af (diff) | |
| download | perl-c82a54e6a750dc8a367ca819b48d5f3b6210486f.tar.gz | |
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
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/charnames.t | 22 |
1 files changed, 13 insertions, 9 deletions
diff --git a/t/lib/charnames.t b/t/lib/charnames.t index 8d5c8db384..b03083e6d1 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"; |