![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to test1.spt CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / spitbol|
Return to test1.spt CVS log | Up to [Research Unix] / researchv10no / cmd / spitbol |
1.1 ! root 1: -TITLE SPITBOL TEST PROGRAM #1 -- DIAGNOSTICS PHASE ONE ! 2: -IN80 ! 3: * ! 4: OUTPUT = 'TEST #1 ' ! 5: * ! 6: * ! 7: * THIS IS A STANDARD TEST PROGRAM FOR SPITBOL WHICH TESTS ! 8: * OUT FUNCTIONS, OPERATORS AND DATATYPE MANIPULATIONS ! 9: * ! 10: TRACE(.TEST) ! 11: &TRACE = 1000 ! 12: STARS = ' ERROR DETECTED ***' ! 13: &ERRLIMIT = 1000 ! 14: SETEXIT(.ERRORS) ;* SET INTERRUPT LOCATION ! 15: OUTPUT = '************************************************' ! 16: OUTPUT = '**** S P I T B O L D I A G N O S T I C S ****' ! 17: OUTPUT = '**** P H A S E O N E ****' ! 18: OUTPUT = '************************************************' ! 19: OUTPUT = '**** ANY TRACE OUTPUT INDICATES AN ERROR ****' ! 20: OUTPUT = '************************************************' ! 21: * ! 22: * TEST REPLACE FUNCTION ! 23: * ! 24: TEST = DIFFER(REPLACE('AXXBYYY','XY','01'),'A00B111') STARS ! 25: A = REPLACE(&ALPHABET,'XY','AB') ! 26: TEST = DIFFER(REPLACE('AXY',&ALPHABET,A),'AAB') STARS ! 27: * ! 28: * TEST LPAD,RPAD FUNCTIONS ! 29: * ! 30: TEST = DIFFER(LPAD('ABC',5,'X'),'XXABC') STARS ! 31: TEST = DIFFER(RPAD('ABC',5,'X'),'ABCXX') STARS ! 32: TEST = DIFFER(LPAD(12,5),' 12') STARS ! 33: TEST = DIFFER(RPAD(10,4),'10 ') STARS ! 34: TEST = DIFFER(LPAD('ABC',2),'ABC') STARS ! 35: TEST = DIFFER(RPAD('AB',1),'AB') STARS ! 36: TEST = DIFFER(LPAD('AB',2),'AB') STARS ! 37: TEST = DIFFER(LPAD()) STARS ! 38: TEST = DIFFER(LPAD(,5),' ') STARS ! 39: * ! 40: * TEST CONVERT FUNCTION ! 41: * ! 42: TEST = DIFFER(CONVERT('8.9','NUMERIC') , 8.9) STARS ! 43: TEST = DIFFER(CONVERT('100','NUMERIC') , 100) STARS ! 44: TEST = DIFFER(CONVERT('12','INTEGER') , 12) STARS ! 45: TEST = DIFFER(CONVERT(2.5,'INTEGER'),2) STARS ! 46: TEST = DIFFER(CONVERT(2,'REAL'),2.0) STARS ! 47: TEST = DIFFER(CONVERT('.2','REAL'),0.2) STARS ! 48: * ! 49: * TEST REVERSE FUNCTION ! 50: * ! 51: TEST = DIFFER(REVERSE('123'),'321') STARS ! 52: TEST = DIFFER(REVERSE()) STARS ! 53: TEST = DIFFER(REVERSE(12),'21') STARS ! 54: * ! 55: * TEST DATATYPE FUNCTION ! 56: * ! 57: TEST = DIFFER(DATATYPE('JKL'),'STRING') STARS ! 58: TEST = DIFFER(DATATYPE(12),'INTEGER') STARS ! 59: TEST = DIFFER(DATATYPE(1.33),'REAL') STARS ! 60: TEST = DIFFER(DATATYPE(NULL),'STRING') STARS ! 61: * ! 62: * TEST ARITHMETIC OPERATORS ! 63: * ! 64: TEST = DIFFER(3 + 2,5) STARS ! 65: TEST = DIFFER(3 - 2,1) STARS ! 66: TEST = DIFFER(3 * 2,6) STARS ! 67: TEST = DIFFER(5 / 2,2) STARS ! 68: TEST = DIFFER(13 / 7,1) STARS ! 69: TEST = DIFFER(13 / -7,-1) STARS ! 70: TEST = DIFFER(-13 / 7,-1) STARS ! 71: TEST = DIFFER(-13 / -7,1) STARS ! 72: TEST = DIFFER(13 / 13,1) STARS ! 73: TEST = DIFFER(13 / -13,-1) STARS ! 74: TEST = DIFFER(-13 / 13,-1) STARS ! 75: TEST = DIFFER(-13 / -13,1) STARS ! 76: TEST = DIFFER(13 / 14,0) STARS ! 77: TEST = DIFFER(13 / -14,0) STARS ! 78: TEST = DIFFER(2 ** 3,8) STARS ! 79: TEST = DIFFER(3 + 1,4) STARS ! 80: TEST = DIFFER(3 - 1,2) STARS ! 81: TEST = DIFFER('3' + 2,5) STARS ! 82: TEST = DIFFER(3 + '-2',1) STARS ! 83: TEST = DIFFER('1' + '0',1) STARS ! 84: TEST = DIFFER(5 + NULL,5) STARS ! 85: TEST = DIFFER(-5,0 - 5) STARS ! 86: TEST = DIFFER(+'4',4) STARS ! 87: TEST = DIFFER(2.0 + 3.0,5.0) STARS ! 88: TEST = DIFFER(3.0 - 1.0,2.0) STARS ! 89: TEST = DIFFER(3.0 * 2.0,6.0) STARS ! 90: TEST = DIFFER(3.0 / 2.0,1.5) STARS ! 91: TEST = DIFFER(3.0 ** 3,27.0) STARS ! 92: TEST = DIFFER(-1.0,0.0 - 1.0) STARS ! 93: * ! 94: * TEST MIXED MODE ! 95: * ! 96: TEST = DIFFER(1 + 2.0,3.0) STARS ! 97: TEST = DIFFER(3.0 / 2,1.5) STARS ! 98: * ! 99: * TEST FUNCTIONS ! 100: * ! 101: * FIRST, A SIMPLE TEST OF A FACTORIAL FUNCTION ! 102: * ! 103: DEFINE('FACT(N)') :(FACTEND) ! 104: FACT FACT = EQ(N,1) 1 :S(RETURN) ! 105: FACT = N * FACT(N - 1) :(RETURN) ! 106: FACTEND TEST = NE(FACT(5),120) STARS ! 107: TEST = DIFFER(OPSYN(.FACTO,'FACT')) STARS ! 108: TEST = DIFFER(FACTO(4),24) STARS ! 109: * ! 110: * SEE IF ALTERNATE ENTRY POINT WORKS OK ! 111: * ! 112: DEFINE('FACT2(N)',.FACT2ENT) :(FACT2ENDF) ! 113: FACT2ENT FACT2 = EQ(N,1) 1 :S(RETURN) ! 114: FACT2 = N * FACT2(N - 1) :(RETURN) ! 115: FACT2ENDF OUTPUT = NE(FACT2(6),720) STARS ! 116: * ! 117: * TEST FUNCTION REDEFINITION AND CASE OF ARGUMENT = FUNC NAME ! 118: * ! 119: TEST = DIFFER(DEFINE('FACT(FACT)','FACT3')) STARS ! 120: . :(FACT2END) ! 121: FACT3 FACT = NE(FACT,1) FACT * FACT(FACT - 1) ! 122: . :(RETURN) ! 123: FACT2END ! 124: TEST = NE(FACT(4),24) STARS ! 125: * ! 126: * TEST OUT LOCALS ! 127: * ! 128: DEFINE('LFUNC(A,B,C)D,E,F') :(LFUNCEND) ! 129: LFUNC TEST = ~(IDENT(A,'A') IDENT(B,'B') IDENT(C,'C')) STARS ! 130: * TEST = ~(IDENT(D) IDENT(E) IDENT(F)) STARS ! 131: A = 'AA' ; B = 'BB' ; C = 'CC' ; D = 'DD' ; E = 'EE' ; F = 'FF' ! 132: . :(RETURN) ! 133: LFUNCEND AA = 'A' ; BB = 'B' ; CC = 'C' ! 134: D = 'D' ; E = 'E' ; F = 'F' ! 135: A = 'X' ; B = 'Y' ; C = 'Z' ! 136: TEST = DIFFER(LFUNC(AA,BB,CC)) STARS ! 137: TEST = ~(IDENT(A,'X') IDENT(B,'Y') IDENT(C,'Z')) STARS ! 138: TEST = ~(IDENT(AA,'A') IDENT(BB,'B') IDENT(CC,'C')) STARS ! 139: TEST = ~(IDENT(D,'D') IDENT(E,'E') IDENT(F,'F')) STARS ! 140: * ! 141: * TEST NRETURN ! 142: * ! 143: DEFINE('NTEST()') :(ENDNTEST) ! 144: NTEST NTEST = .A :(NRETURN) ! 145: ENDNTEST A = 27 ! 146: TEST = DIFFER(NTEST(),27) STARS ! 147: . :F(ST59) ;ST59 ! 148: NTEST() = 26 ! 149: . :F(ST60) ;ST60 ! 150: TEST = DIFFER(A,26) STARS ! 151: * ! 152: * CONTINUE TEST OF FUNCTIONS ! 153: * ! 154: * ! 155: * TEST FAILURE RETURN ! 156: * ! 157: DEFINE('FAILURE()') :(FAILEND) ! 158: FAILURE :(FRETURN) ! 159: FAILEND TEST = FAILURE() STARS ! 160: * ! 161: * TEST OPSYN FOR OPERATORS ! 162: * ! 163: OPSYN('@',.DUPL,2) ! 164: OPSYN('|',.SIZE,1) ! 165: TEST = DIFFER('A' @ 4,'AAAA') STARS ! 166: TEST = DIFFER(|'STRING',6) STARS ! 167: * ! 168: * TEST OUT ARRAY FACILITY ! 169: * ! 170: A = ARRAY(3) ! 171: TEST = DIFFER(A[1]) STARS ! 172: A[2] = 4.5 ! 173: TEST = DIFFER(A[2],4.5) STARS ! 174: TEST = ?A[4] STARS ! 175: TEST = ?A[0] STARS ! 176: TEST = DIFFER(PROTOTYPE(A),3) STARS ! 177: B = ARRAY(3,10) ! 178: TEST = DIFFER(B[2],10) STARS ! 179: B = ARRAY('3') ! 180: B[2] = 'A' ! 181: TEST = DIFFER(B[2],'A') STARS ! 182: C = ARRAY('2,2') ! 183: C[1,2] = '*' ! 184: TEST = DIFFER(C[1,2],'*') STARS ! 185: TEST = DIFFER(PROTOTYPE(C),'2,2') STARS ! 186: D = ARRAY('-1:1,2') ! 187: D[-1,1] = 0 ! 188: TEST = DIFFER(D[-1,1],0) STARS ! 189: TEST = ?D[-2,1] STARS ! 190: TEST = ?D[2,1] STARS ! 191: * ! 192: * TEST PROGRAM DEFINED DATATYPE FUNCTIONS ! 193: * ! 194: DATA('NODE(VAL,LSON,RSON)') ! 195: A = NODE('X','Y','Z') ! 196: TEST = DIFFER(DATATYPE(A),'NODE') STARS ! 197: TEST = DIFFER(VAL(A),'X') STARS ! 198: B = NODE() ! 199: TEST = DIFFER(RSON(B)) STARS ! 200: LSON(B) = A ! 201: TEST = DIFFER(RSON(LSON(B)),'Z') STARS ! 202: * TEST = DIFFER(VALUE('B'),B) STARS ! 203: * ! 204: * TEST MULTIPLE USE OF FIELD FUNCTION NAME ! 205: * ! 206: DATA('CLUNK(VALUE,LSON)') ! 207: TEST = DIFFER(RSON(LSON(B)),'Z') STARS ! 208: * TEST = DIFFER(VALUE('B'),B) STARS ! 209: C = CLUNK('A','B') ! 210: TEST = DIFFER(LSON(C),'B') STARS ! 211: * ! 212: * TEST NUMERICAL PREDICATES ! 213: * ! 214: TEST = LT(5,4) STARS ! 215: TEST = LT(4,4) STARS ! 216: TEST = ~LT(4,5) STARS ! 217: TEST = LE(5,2) STARS ! 218: TEST = ~LE(4,4) STARS ! 219: TEST = ~LE(4,10) STARS ! 220: TEST = EQ(4,5) STARS ! 221: TEST = EQ(5,4) STARS ! 222: TEST = ~EQ(5,5) STARS ! 223: TEST = NE(4,4) STARS ! 224: TEST = ~NE(4,6) STARS ! 225: TEST = ~NE(6,4) STARS ! 226: TEST = GT(4,6) STARS ! 227: TEST = GT(4,4) STARS ! 228: TEST = ~GT(5,2) STARS ! 229: TEST = GE(5,7) STARS ! 230: TEST = ~GE(4,4) STARS ! 231: TEST = ~GE(7,5) STARS ! 232: TEST = NE(4,5 - 1) STARS ! 233: TEST = GT(4,3 + 1) STARS ! 234: TEST = LE(20,5 + 6) STARS ! 235: TEST = EQ(1.0,2.0) STARS ! 236: TEST = GT(-2.0,-1.0) STARS ! 237: TEST = GT(-3.0,4.0) STARS ! 238: TEST = NE('12',12) STARS ! 239: TEST = NE('12',12.0) STARS ! 240: TEST = ~CONVERT(BAL,'PATTERN') STARS ! 241: * ! 242: * TEST INTEGER ! 243: * ! 244: TEST = INTEGER('ABC') STARS ! 245: TEST = ~INTEGER(12) STARS ! 246: TEST = ~INTEGER('12') STARS ! 247: * ! 248: * TEST SIZE ! 249: * ! 250: TEST = NE(SIZE('ABC'),3) STARS ! 251: TEST = NE(SIZE(12),2) STARS ! 252: TEST = NE(SIZE(NULL),0) STARS ! 253: * ! 254: * TEST LGT ! 255: * ! 256: TEST = LGT('ABC','XYZ') STARS ! 257: TEST = LGT('ABC','ABC') STARS ! 258: TEST = ~LGT('XYZ','ABC') STARS ! 259: TEST = LGT(NULL,'ABC') STARS ! 260: TEST = ~LGT('ABC',NULL) STARS ! 261: * ! 262: * TEST INDIRECT ADDRESSING ! 263: * ! 264: TEST = DIFFER($'BAL',BAL) STARS ! 265: TEST = DIFFER($.BAL,BAL) STARS ! 266: $'QQ' = 'X' ! 267: TEST = DIFFER(QQ,'X') STARS ! 268: TEST = DIFFER($'GARBAGE') STARS ! 269: A = ARRAY(3) ! 270: A[2] = 'X' ! 271: TEST = DIFFER($.A[2],'X') STARS ! 272: * ! 273: * TEST CONCATENATION ! 274: * ! 275: TEST = DIFFER('A' 'B','AB') STARS ! 276: TEST = DIFFER('A' 'B' 'C','ABC') STARS ! 277: TEST = DIFFER(1 2,'12') STARS ! 278: TEST = DIFFER(2 2 2,'222') STARS ! 279: TEST = DIFFER(1 3.4,'13.4') STARS ! 280: TEST = DIFFER(BAL NULL,BAL) STARS ! 281: TEST = DIFFER(NULL BAL,BAL) STARS ! 282: * ! 283: * TEST DREALS ! 284: * ! 285: TEST = DIFFER(1.0D2 + 2.0D2,3.0D2) STARS ! 286: TEST = DIFFER(2.5D0 * 2.0D0,5.00D0) STARS ! 287: TEST = DIFFER(3.0D0 / 3.0D0,1.0D0) STARS ! 288: TEST = DIFFER(4.0D0 - 3.0D0,1.0D0) STARS ! 289: * TEST = DIFFER(3.D0 + 1.,4.D0) STARS ! 290: * TEST = DIFFER(1. + 3.D0,4.D0) STARS ! 291: TEST = DIFFER(1.0D0 + 1,2.0D0) STARS ! 292: TEST = DIFFER(3 + 1.0D0,4.0D0) STARS ! 293: TEST = DIFFER(3.0D0 ** 3,27.0D0) STARS ! 294: * ! 295: * TEST REMDR ! 296: * ! 297: TEST = DIFFER(REMDR(10,3),1) STARS ! 298: TEST = DIFFER(REMDR(11,10),1) STARS ! 299: TEST = DIFFER(REMDR(13,7),6) STARS ! 300: TEST = DIFFER(REMDR(13,-7),6) STARS ! 301: TEST = DIFFER(REMDR(-13,7),-6) STARS ! 302: TEST = DIFFER(REMDR(-13,-7),-6) STARS ! 303: TEST = DIFFER(REMDR(13,13),0) STARS ! 304: TEST = DIFFER(REMDR(13,-13),0) STARS ! 305: TEST = DIFFER(REMDR(-13,13),0) STARS ! 306: TEST = DIFFER(REMDR(-13,-13),0) STARS ! 307: * ! 308: * TEST DUPL ! 309: * ! 310: TEST = DIFFER(DUPL('ABC',2),'ABCABC') STARS ! 311: TEST = DIFFER(DUPL(NULL,10),NULL) STARS ! 312: TEST = DIFFER(DUPL('ABCDEFG',0),NULL) STARS ! 313: TEST = DIFFER(DUPL(1,10),'1111111111') STARS ! 314: * ! 315: * TEST TABLE FACILITY ! 316: * ! 317: T = TABLE(10) ! 318: TEST = DIFFER(T['CAT']) STARS ! 319: T['CAT'] = 'DOG' ! 320: TEST = DIFFER(T['CAT'],'DOG') STARS ! 321: T[7] = 45 ! 322: TEST = DIFFER(T[7],45) STARS ! 323: TEST = DIFFER(T['CAT'],'DOG') STARS ! 324: TA = CONVERT(T,'ARRAY') ! 325: TEST = DIFFER(PROTOTYPE(TA),'2,2') STARS ! 326: ATA = CONVERT(TA,'TABLE') ! 327: TEST = DIFFER(ATA[7],45) STARS ! 328: TEST = DIFFER(ATA['CAT'],'DOG') STARS ! 329: * ! 330: * TEST ITEM FUNCTION ! 331: * ! 332: AAA = ARRAY(10) ! 333: ITEM(AAA,1) = 5 ! 334: TEST = DIFFER(ITEM(AAA,1),5) STARS ! 335: TEST = DIFFER(AAA[1],5) STARS ! 336: AAA[2] = 22 ! 337: TEST = DIFFER(ITEM(AAA,2),22) STARS ! 338: AMA = ARRAY('2,2,2,2') ! 339: ITEM(AMA,1,2,1,2) = 1212 ! 340: TEST = DIFFER(ITEM(AMA,1,2,1,2),1212) STARS ! 341: TEST = DIFFER(AMA[1,2,1,2],1212) STARS ! 342: AMA[2,1,2,1] = 2121 ! 343: TEST = DIFFER(ITEM(AMA,2,1,2,1),2121) STARS ! 344: * ! 345: * TEST EVAL ! 346: * ! 347: EXPR = *('ABC' 'DEF') ! 348: TEST = DIFFER(EVAL(EXPR),'ABCDEF') STARS ! 349: Q = 'QQQ' ! 350: SEXP = *Q ! 351: TEST = DIFFER(EVAL(SEXP),'QQQ') STARS ! 352: FEXP = *IDENT(1,2) ! 353: TEST = EVAL(FEXP) STARS ! 354: * ! 355: * TRY A FEW ALTERNATIONS ! 356: * ! 357: TEST = DIFFER((GT(3,1) 3,1),3) STARS ! 358: TEST = DIFFER((LT(3,1) 3,1),1) STARS ! 359: TEST = DIFFER(EVAL(*(NE(1,2) 'A','B')),'A') STARS ! 360: TEST = DIFFER(EVAL(*(EQ(1,2) 'A','B')),'B') STARS ! 361: * ! 362: * TEST SUBSTR ! 363: * ! 364: TEST = DIFFER(SUBSTR('ABC',2,1),'B') STARS ! 365: TEST = DIFFER(SUBSTR('ABCDEF',1,5),'ABCDE') STARS ! 366: TEST = SUBSTR('ABC',50,1) STARS ! 367: TEST = SUBSTR('ABC',81,50) STARS ! 368: TEST = SUBSTR(NULL,1,1) STARS ! 369: * ! 370: * TEST ARG ! 371: * ! 372: JLAB DEFINE('JLAB(A,B,C)D,E,F') ! 373: TEST = DIFFER(ARG(.JLAB,1),.A) STARS ! 374: TEST = DIFFER(ARG(.JLAB,3),.C) STARS ! 375: $ARG(.JLAB,1) = 'QWERT' ! 376: TEST = DIFFER(A,'QWERT') STARS ! 377: TEST = ARG(.JLAB,0) STARS ! 378: TEST = ARG(.JLAB,4) STARS ! 379: * ! 380: * TEST LOC ! 381: * ! 382: TEST = DIFFER(LOCAL(.JLAB,1),.D) STARS ! 383: TEST = DIFFER(LOCAL(.JLAB,3),.F) STARS ! 384: TEST = LOCAL(.JLAB,0) STARS ! 385: TEST = LOCAL('JLAB',4) STARS ! 386: * ! 387: * TEST APPLY ! 388: * ! 389: TEST = APPLY(.EQ,1,2) STARS ! 390: TEST = ~APPLY(.EQ,1,1) STARS ! 391: TEST = ~APPLY(.EQ,0) STARS ! 392: TEST = ~APPLY(.EQ,1,1,1) STARS ! 393: TEST = ~IDENT(APPLY(.TRIM,'ABC '),'ABC') STARS ! 394: * ! 395: * FINAL PROCESSING ! 396: * ! 397: OUTPUT = '************************************************' ! 398: DIAGNOSTICS = 1000 - &TRACE ! 399: EQ(DIAGNOSTICS,0) :S(TERMINATE) ! 400: OUTPUT = '**** NUMBER OF ERRORS DETECTED ' ! 401: . LPAD(DIAGNOSTICS,5) ' ****' ! 402: OUTPUT = '**** E N D O F D I A G N O S T I C S ****' ! 403: OUTPUT = '************************************************' ! 404: . :(END) ! 405: TERMINATE OUTPUT = '**** N O E R R O R S D E T E C T E D ****' ! 406: OUTPUT = '**** E N D O F D I A G N O S T I C S ****' ! 407: OUTPUT = '************************************************' ! 408: :(END) ! 409: * ! 410: * ERROR HANDLING ROUTINE ! 411: * ! 412: ERRORS OUTPUT = '**** ERROR AT ' ! 413: . LPAD(&LASTNO,4) ' &ERRTYPE = ' LPAD(&ERRTYPE,7,' ') ! 414: . ' ****' ! 415: OUTPUT = ' &ERRTEXT = ' &ERRTEXT ! 416: DUMP(1) ! 417: &TRACE = &TRACE - 1 ! 418: SETEXIT(.ERRORS) :(CONTINUE) ! 419: END
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.