Win32 pacifying from mjd.
[perl.git] / lib / bytes.t
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;
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     }
30     print length($c) == 2 ? "ok 6\n" : "not ok 6\n";
31 }
32