efdea027bb4d9a7f646aec69e2c9c87904268985
[perl.git] / t / op / chars.t
1 #!./perl
2
3 print "1..33\n";
4
5 # because of ebcdic.c these should be the same on asciiish 
6 # and ebcdic machines.
7 # Peter Prymmer <pvhp@best.com>.
8
9 my $c = "\c@";
10 print +((ord($c) == 0) ? "" : "not "),"ok 1\n";
11 $c = "\cA";
12 print +((ord($c) == 1) ? "" : "not "),"ok 2\n";
13 $c = "\cB";
14 print +((ord($c) == 2) ? "" : "not "),"ok 3\n";
15 $c = "\cC";
16 print +((ord($c) == 3) ? "" : "not "),"ok 4\n";
17 $c = "\cD";
18 print +((ord($c) == 4) ? "" : "not "),"ok 5\n";
19 $c = "\cE";
20 print +((ord($c) == 5) ? "" : "not "),"ok 6\n";
21 $c = "\cF";
22 print +((ord($c) == 6) ? "" : "not "),"ok 7\n";
23 $c = "\cG";
24 print +((ord($c) == 7) ? "" : "not "),"ok 8\n";
25 $c = "\cH";
26 print +((ord($c) == 8) ? "" : "not "),"ok 9\n";
27 $c = "\cI";
28 print +((ord($c) == 9) ? "" : "not "),"ok 10\n";
29 $c = "\cJ";
30 print +((ord($c) == 10) ? "" : "not "),"ok 11\n";
31 $c = "\cK";
32 print +((ord($c) == 11) ? "" : "not "),"ok 12\n";
33 $c = "\cL";
34 print +((ord($c) == 12) ? "" : "not "),"ok 13\n";
35 $c = "\cM";
36 print +((ord($c) == 13) ? "" : "not "),"ok 14\n";
37 $c = "\cN";
38 print +((ord($c) == 14) ? "" : "not "),"ok 15\n";
39 $c = "\cO";
40 print +((ord($c) == 15) ? "" : "not "),"ok 16\n";
41 $c = "\cP";
42 print +((ord($c) == 16) ? "" : "not "),"ok 17\n";
43 $c = "\cQ";
44 print +((ord($c) == 17) ? "" : "not "),"ok 18\n";
45 $c = "\cR";
46 print +((ord($c) == 18) ? "" : "not "),"ok 19\n";
47 $c = "\cS";
48 print +((ord($c) == 19) ? "" : "not "),"ok 20\n";
49 $c = "\cT";
50 print +((ord($c) == 20) ? "" : "not "),"ok 21\n";
51 $c = "\cU";
52 print +((ord($c) == 21) ? "" : "not "),"ok 22\n";
53 $c = "\cV";
54 print +((ord($c) == 22) ? "" : "not "),"ok 23\n";
55 $c = "\cW";
56 print +((ord($c) == 23) ? "" : "not "),"ok 24\n";
57 $c = "\cX";
58 print +((ord($c) == 24) ? "" : "not "),"ok 25\n";
59 $c = "\cY";
60 print +((ord($c) == 25) ? "" : "not "),"ok 26\n";
61 $c = "\cZ";
62 print +((ord($c) == 26) ? "" : "not "),"ok 27\n";
63 $c = "\c[";
64 print +((ord($c) == 27) ? "" : "not "),"ok 28\n";
65 $c = "\c\\";
66 print +((ord($c) == 28) ? "" : "not "),"ok 29\n";
67 $c = "\c]";
68 print +((ord($c) == 29) ? "" : "not "),"ok 30\n";
69 $c = "\c^";
70 print +((ord($c) == 30) ? "" : "not "),"ok 31\n";
71 $c = "\c_";
72 print +((ord($c) == 31) ? "" : "not "),"ok 32\n";
73 $c = "\c?";
74 print +((ord($c) == 127) ? "" : "not "),"ok 33\n";