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