11 # because of ebcdic.c these should be the same on asciiish
12 # and ebcdic machines.
13 # Peter Prymmer <pvhp@best.com>.
16 is (ord($c), 0, '\c@');
18 is (ord($c), 1, '\cA');
20 is (ord($c), 2, '\cB');
22 is (ord($c), 3, '\cC');
24 is (ord($c), 4, '\cD');
26 is (ord($c), 5, '\cE');
28 is (ord($c), 6, '\cF');
30 is (ord($c), 7, '\cG');
32 is (ord($c), 8, '\cH');
34 is (ord($c), 9, '\cI');
36 is (ord($c), 10, '\cJ');
38 is (ord($c), 11, '\cK');
40 is (ord($c), 12, '\cL');
42 is (ord($c), 13, '\cM');
44 is (ord($c), 14, '\cN');
46 is (ord($c), 15, '\cO');
48 is (ord($c), 16, '\cP');
50 is (ord($c), 17, '\cQ');
52 is (ord($c), 18, '\cR');
54 is (ord($c), 19, '\cS');
56 is (ord($c), 20, '\cT');
58 is (ord($c), 21, '\cU');
60 is (ord($c), 22, '\cV');
62 is (ord($c), 23, '\cW');
64 is (ord($c), 24, '\cX');
66 is (ord($c), 25, '\cY');
68 is (ord($c), 26, '\cZ');
70 is (ord($c), 27, '\c[');
72 is (ord($c), 28, '\c\\');
74 is (ord($c), 29, '\c]');
76 is (ord($c), 30, '\c^');
78 is (ord($c), 31, '\c_');
80 # '\c?' is an outlier, and is treated differently on each platform.
81 # It's DEL on ASCII, and APC on EBCDIC
83 is (ord($c), ($::IS_ASCII)
85 : utf8::unicode_to_native(0x9F),
88 is (ord($c), 0, 'ord("") is 0');