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