(retracted by #14846)
[p5sagit/p5-mst-13.2.git] / lib / encoding.t
CommitLineData
a72c7584 1print "1..19\n";
0a378802 2
3use encoding "latin1"; # ignored (overwritten by the next line)
f14ed3c6 4use encoding "greek"; # iso 8859-7 (no "latin" alias, surprise...)
0a378802 5
0a378802 6# "greek" is "ISO 8859-7", and \xDF in ISO 8859-7 is
f14ed3c6 7# \x{3AF} in Unicode (GREEK SMALL LETTER IOTA WITH TONOS),
0a378802 8# instead of \xDF in Unicode (LATIN SMALL LETTER SHARP S)
9
9f4817db 10$a = "\xDF";
11$b = "\x{100}";
12
13print "not " unless ord($a) == 0x3af;
0a378802 14print "ok 1\n";
15
9f4817db 16print "not " unless ord($b) == 0x100;
0a378802 17print "ok 2\n";
18
9f4817db 19my $c;
20
21$c = $a . $b;
22
23print "not " unless ord($c) == 0x3af;
0a378802 24print "ok 3\n";
25
9f4817db 26print "not " unless length($c) == 2;
27print "ok 4\n";
28
29print "not " unless ord(substr($c, 1, 1)) == 0x100;
30print "ok 5\n";
0a378802 31
121910a4 32print "not " unless ord(chr(0xdf)) == 0x3af; # spooky
33print "ok 6\n";
34
35print "not " unless ord(pack("C", 0xdf)) == 0x3af;
36print "ok 7\n";
37
38# we didn't break pack/unpack, I hope
39
40print "not " unless unpack("C", pack("C", 0xdf)) == 0xdf;
41print "ok 8\n";
42
43# the first octet of UTF-8 encoded 0x3af
44print "not " unless unpack("C", chr(0xdf)) == 0xce;
45print "ok 9\n";
bfa383d6 46
3de8ed06 47print "not " unless unpack("U", pack("U", 0xdf)) == 0xdf;
48print "ok 10\n";
49
50print "not " unless unpack("U", chr(0xdf)) == 0x3af;
51print "ok 11\n";
52
bfa383d6 53# charnames must still work
54use charnames ':full';
55print "not " unless ord("\N{LATIN SMALL LETTER SHARP S}") == 0xdf;
3de8ed06 56print "ok 12\n";
57
58# combine
59
60$c = "\xDF\N{LATIN SMALL LETTER SHARP S}" . chr(0xdf);
61
62print "not " unless ord($c) == 0x3af;
63print "ok 13\n";
64
65print "not " unless ord(substr($c, 1, 1)) == 0xdf;
66print "ok 14\n";
67
68print "not " unless ord(substr($c, 2, 1)) == 0x3af;
69print "ok 15\n";
bfa383d6 70
a72c7584 71# regex literals
72
73print "not " unless "\xDF" =~ /\x{3AF}/;
74print "ok 16\n";
75
76print "not " unless "\x{3AF}" =~ /\xDF/;
77print "ok 17\n";
78
79print "not " unless "\xDF" =~ /\xDF/;
80print "ok 18\n";
81
82print "not " unless "\x{3AF}" =~ /\x{3AF}/;
83print "ok 19\n";
84