Commit | Line | Data |
---|---|---|
4e002eb0 JH |
1 | BEGIN { |
2 | chdir 't' if -d 't'; | |
3 | @INC = '../lib'; | |
4 | } | |
5 | ||
6 | print "1..6\n"; | |
7 | ||
8 | my $a = chr(0x0100); | |
9 | ||
10 | print ord($a) == 0x100 ? "ok 1\n" : "not ok 1\n"; | |
11 | print length($a) == 1 ? "ok 2\n" : "not ok 2\n"; | |
12 | ||
13 | { | |
14 | use bytes; | |
15 | my $b = chr(0x0100); | |
16 | print ord($b) == 0 ? "ok 3\n" : "not ok 3\n"; | |
17 | } | |
18 | ||
19 | my $c = chr(0x0100); | |
20 | ||
21 | print ord($c) == 0x100 ? "ok 4\n" : "not ok 4\n"; | |
22 | ||
23 | { | |
24 | use bytes; | |
0ef00eb6 JH |
25 | if (ord('A') == 193) { |
26 | print ord($c) == 0x8c ? "ok 5\n" : "not ok 5\n"; | |
27 | } else { | |
28 | print ord($c) == 0xc4 ? "ok 5\n" : "not ok 5\n"; | |
29 | } | |
4e002eb0 JH |
30 | print length($c) == 2 ? "ok 6\n" : "not ok 6\n"; |
31 | } | |
32 |