Cross Reference: utf8.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
ext
/
Digest
/
MD5
/
t
/
utf8.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
utf8.t revision 1
1
N/A
#!perl -w
1
N/A
1
N/A
BEGIN
{
1
N/A
if
($] <
5.006
)
{
1
N/A
print
"1..0 # Skipped: your perl don't know unicode\n"
;
1
N/A
exit
;
1
N/A
}
1
N/A
}
1
N/A
1
N/A
print
"1..3\n"
;
1
N/A
1
N/A
use
strict
;
1
N/A
use
Digest
::
MD5
qw
(
md5_hex
)
;
1
N/A
1
N/A
my
$str
;
1
N/A
$str
=
"foo\xFF\x{100}"
;
1
N/A
1
N/A
eval
{
1
N/A
print
md5_hex
(
$str
)
;
1
N/A
print
"not ok 1\n"
;
# should not run
1
N/A
}
;
1
N/A
print
"not "
unless
$@ && $@ =~ /^
(
Big
byte
|
Wide
character
)
/;
1
N/A
print
"ok 1\n"
;
1
N/A
1
N/A
my
$exp
=
ord
"A"
==
193
?
# EBCDIC
1
N/A
"c307ec81deba65e9a222ca81cd8f6ccd"
:
1
N/A
"503debffe559537231ed24f25651ec20"
;
# Latin 1
1
N/A
1
N/A
chop
(
$str
)
;
# only bytes left
1
N/A
print
"not "
unless
md5_hex
(
$str
)
eq
$exp
;
1
N/A
print
"ok 2\n"
;
1
N/A
1
N/A
# reference
1
N/A
print
"not "
unless
md5_hex
(
"foo\xFF"
)
eq
$exp
;
1
N/A
print
"ok 3\n"
;