![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to test2.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 test2.spt CVS log | Up to [Research Unix] / researchv10no / cmd / spitbol |
1.1 root 1: -TITLE SPITBOL TEST PROGRAM #2 -- DIAGNOSTICS PHASE TWO
2: -IN80
3: *
4: OUTPUT = 'TEST #2 '
5: *
6: *
7: * THIS IS THE STANDARD TEST PROGRAM FOR SPITBOL WHICH
8: * TESTS PATTERN MATCHING
9: *
10: &ANCHOR = 0
11: &ANCHOR = 0
12: DEFINE('ERROR()')
13: &TRACE = 1000
14: &ERRLIMIT = 100
15: TRACE(.ERRTYPE,'KEYWORD')
16: OUTPUT = '**********************************************'
17: OUTPUT = '**** SPITBOL DIAGNOSTICS -- PHASE TWO ****'
18: OUTPUT = '**********************************************'
19: FLOOP ERRCOUNT = 0
20: TEST = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
21: *
22: * TEST PATTERN MATCHING AGAINST SIMPLE STRING
23: *
24: TEST 'ABC' :S(S01) ; ERROR()
25: S01 TEST 'BCD' :S(S02) ; ERROR()
26: S02 TEST 'XYZ' :S(S03) ; ERROR()
27: S03 TEST 'ABD' :F(S04) ; ERROR()
28: S04 &ANCHOR = 1
29: TEST 'ABC' :S(S05) ; ERROR()
30: S05 TEST 'BCD' :F(S06) ; ERROR()
31: S06 TEST TEST :S(S06A) ; ERROR()
32: *
33: * TEST SIMPLE CASES OF $
34: *
35: S06A TEST 'ABC' $ VAR :S(S07) ; ERROR()
36: S07 IDENT(VAR,'ABC') :S(S08) ; ERROR()
37: S08 TEST 'ABC' . VARD :S(S09) ; ERROR()
38: S09 IDENT(VARD,'ABC') :S(S10) ; ERROR()
39: *
40: * TEST LEN
41: *
42: S10 &ANCHOR = 0
43: TEST LEN(3) $ VARL :S(S11) ; ERROR()
44: S11 IDENT(VARL,'ABC') :S(S12) ; ERROR()
45: S12 TEST LEN(26) $ VARL :S(S13) ; ERROR()
46: S13 IDENT(VARL,TEST) :S(S14) ; ERROR()
47: S14 TEST LEN(27) :F(S15) ; ERROR()
48: *
49: * TEST TAB
50: *
51: S15 TEST TAB(3) $ VART :S(S16) ; ERROR()
52: S16 IDENT(VART,'ABC') :S(S17) ; ERROR()
53: S17 TEST TAB(26) $ VART :S(S18) ; ERROR()
54: S18 IDENT(TEST,VART) :S(S19) ; ERROR()
55: S19 TEST TAB(0) $ VART :S(S20) ; ERROR()
56: S20 IDENT(VART) :S(S21) ; ERROR()
57: *
58: * TEST ARB
59: *
60: S21 TEST ARB $ VARA 'C' :S(S22) ; ERROR()
61: S22 IDENT(VARA,'AB') :S(S23) ; ERROR()
62: S23 &ANCHOR = 1
63: TEST ARB $ VARA POS(60) :F(S24) ; ERROR()
64: S24 IDENT(VARA,TEST) :S(S25) ; ERROR()
65: *
66: * TEST POS
67: *
68: S25 TEST ARB $ VARA POS(2) $ VARP :S(S26) ; ERROR()
69: S26 (IDENT(VARA,'AB') IDENT(VARP)) :S(S27) ; ERROR()
70: S27 &ANCHOR = 0
71: TEST ARB $ VARA POS(26) $ VARP :S(S28) ; ERROR()
72: S28 (IDENT(VARA,TEST) IDENT(VARP)) : S(S29) ; ERROR()
73: S29 TEST ARB $ VARA POS(0) $ VARP :S(S30) ; ERROR()
74: S30 IDENT(VARA VARP) :S(S31) ; ERROR()
75: S31 TEST POS(0) ARB $ VARA POS(26) :S(S32) ; ERROR()
76: S32 IDENT(TEST,VARA) :S(S33) ; ERROR()
77: S33 TEST POS(2) ARB $ VARA POS(3) :S(S34) ; ERROR()
78: S34 IDENT(VARA,'C') :S(S35) ; ERROR()
79: S35 TEST POS(27) :F(S36) ; ERROR()
80: *
81: * TEST RPOS
82: *
83: S36 TEST ARB $ VARA RPOS(25) :S(S37) ; ERROR()
84: S37 IDENT(VARA,'A') :S(S38) ; ERROR()
85: S38 TEST ARB $ VARA RPOS(0) :S(S39) ; ERROR()
86: S39 IDENT(TEST,VARA) :S(S39A) ; ERROR()
87: S39A TEST ARB $ VARA RPOS(26) :S(S40) ; ERROR()
88: S40 IDENT(VARA) :S(S41) ; ERROR()
89: S41 TEST RPOS(27) :F(S42) ; ERROR()
90: *
91: * TEST RTAB
92: *
93: S42 TEST RTAB(26) $ VARA :S(S43) ; ERROR()
94: S43 IDENT(VARA) :S(S44) ; ERROR()
95: S44 TEST RTAB(27) :F(S45) ; ERROR()
96: S45 TEST RTAB(0) $ VARA :S(S46) ; ERROR()
97: S46 IDENT(VARA,TEST) :S(S47) ; ERROR()
98: S47 TEST RTAB(25) $ VARA :S(S48) ; ERROR()
99: S48 IDENT(VARA,'A') :S(S49) ; ERROR()
100: *
101: * TEST @
102: *
103: S49 TEST LEN(6) @VARA :S(S50) ; ERROR()
104: S50 IDENT(VARA,6) :S(S51) ; ERROR()
105: S51 TEST @VARA :S(S52) ; ERROR()
106: S52 IDENT(VARA,0) :S(S53) ; ERROR()
107: S53 TEST LEN(26) @VARA :S(S54) ; ERROR()
108: S54 IDENT(VARA,26) :S(S55) ; ERROR()
109: *
110: * TEST BREAK
111: *
112: S55 TEST BREAK('C') $ VARA :S(S56) ; ERROR()
113: S56 IDENT(VARA,'AB') :S(S57) ; ERROR()
114: S57 TEST BREAK('Z()') $ VARA :S(S58) ; ERROR()
115: S58 IDENT(VARA,'ABCDEFGHIJKLMNOPQRSTUVWXY') :S(S59) ; ERROR()
116: S59 TEST BREAK(',') :F(S60) ; ERROR()
117: S60 LPAD(TEST,1000) BREAK('A') $ VARA :S(S61) ; ERROR()
118: S61 IDENT(LPAD(' ',1000 - 26),VARA) :S(S62) ; ERROR()
119: S62 LPAD(TEST,1000) BREAK(',') :F(S63) ; ERROR()
120: *
121: * TEST SPAN
122: *
123: S63 TEST SPAN(TEST) $ VARA :S(S64) ; ERROR()
124: S64 IDENT(TEST,VARA) :S(S65) ;ERROR()
125: S65 TEST SPAN('CDQ') $ VARA :S(S66) ; ERROR()
126: S66 IDENT(VARA,'CD') :S(S67) ; ERROR()
127: S67 TEST SPAN(',') :F(S68) ; ERROR()
128: S68 LPAD(TEST,1000) SPAN(' ') $ VARA :S(S69) ; ERROR()
129: S69 IDENT(VARA,LPAD(' ',1000 - 26)) :S(S70) ; ERROR()
130: *
131: * TEST BREAKX
132: *
133: S70 (TEST TEST) POS(0) BREAKX('E') $ VARA '.' :F(S71) ; ERROR()
134: S71 IDENT(VARA,TEST 'ABCD') :S(S72) ; ERROR()
135: S72 TEST BREAKX('.') :F(S73) ; ERROR()
136: *
137: * TEST ANY
138: *
139: S73 TEST ANY('MXZ') $ VARA :S(S74) ; ERROR()
140: S74 IDENT(VARA,'M') :S(S75) ; ERROR()
141: S75 TEST ANY(',.') :F(S76) ; ERROR()
142: *
143: * TEST NOTANY
144: *
145: S76 TEST NOTANY('ABCDEFGHJKLMPQRSTUWXYZ') $ VARA :S(S77) ; ERROR()
146: S77 IDENT(VARA,'I') :S(S78) ; ERROR()
147: S78 TEST NOTANY(TEST) :F(S79) ; ERROR()
148: *
149: * TEST REM
150: *
151: S79 TEST REM $ VARA :S(S80) ; ERROR()
152: S80 IDENT(VARA,TEST) :S(S81) ; ERROR()
153: S81 TEST LEN(26) REM $ VARA :S(S82) ; ERROR()
154: S82 IDENT(VARA) :S(S83) ; ERROR()
155: *
156: * TEST ALTERNATION
157: *
158: S83 TEST ('ABD' | 'AB') $ VARA :S(D84) ; ERROR()
159: D84 IDENT(VARA,'AB') :S(D85) ; ERROR()
160: D85 TEST (TEST 'A' | TEST) $ VARL :S(D86) ; ERROR()
161: D86 IDENT(VARL,TEST) :S(D00) ; ERROR()
162: *
163: * TEST DEFERRED STRINGS
164: *
165: D00 TEST *'ABC' :S(D01) ; ERROR()
166: D01 TEST *'ABD' :F(D06) ; ERROR()
167: *
168: * TEST $ . WITH DEFERRED NAME ARGUMENTS
169: *
170: D06 TEST 'ABC' $ *VAR :S(D07) ; ERROR()
171: D07 IDENT(VAR,'ABC') :S(D08) ; ERROR()
172: D08 TEST 'ABC' . *$'VARD' :S(D09) ; ERROR()
173: D09 IDENT(VARD,'ABC') :S(D10) ; ERROR()
174: *
175: * TEST LEN WITH DEFERRED ARGUMENT
176: *
177: D10 &ANCHOR = 0
178: TEST LEN(*3) $ VARL :S(D11) ; ERROR()
179: D11 IDENT(VARL,'ABC') :S(D15) ; ERROR()
180: *
181: * TEST TAB WITH DEFERRED ARGUMENT
182: *
183: D15 TEST TAB(*3) $ VART :S(D16) ; ERROR()
184: D16 IDENT(VART,'ABC') :S(D21) ; ERROR()
185: *
186: * TEST POS WITH DEFERRED ARGUMENT
187: *
188: D21 &ANCHOR = 1
189: TEST ARB $ VARA POS(*2) $ VARP :S(D26) ; ERROR()
190: D26 (IDENT(VARA,'AB') IDENT(VARP)) :S(D27) ; ERROR()
191: D27 &ANCHOR = 0
192: TEST ARB $ VARA POS(*0) $ VARP :S(D35) ; ERROR()
193: D35 IDENT(VARA VARP) :S(D36) ; ERROR()
194: *
195: * TEST RPOS WITH DEFERRED ARGUMENT
196: *
197: D36 TEST ARB $ VARA RPOS(*25) :S(D37) ; ERROR()
198: D37 IDENT(VARA,'A') :S(D38) ; ERROR()
199: *
200: * TEST RTAB WITH DEFERRED ARGUMENT
201: *
202: D38 TEST RTAB(*26) $ VARA :S(D43) ; ERROR()
203: D43 IDENT(VARA) :S(D49) ; ERROR()
204: *
205: * TEST @ WITH DEFERRED ARGUMENT
206: *
207: D49 TEST LEN(6) @*VARA :S(D50) ; ERROR()
208: D50 IDENT(VARA,6) :S(D51) ; ERROR()
209: D51 TEST @*$'VARA' :S(D52) ; ERROR()
210: D52 IDENT(VARA,0) :S(D55) ; ERROR()
211: *
212: * TEST BREAK WITH DEFERRED ARGUMENT
213: *
214: D55 TEST BREAK(*'C') $ VARA :S(D56) ; ERROR()
215: D56 IDENT(VARA,'AB') :S(D57) ; ERROR()
216: *
217: * TEST SPAN WITH DEFERRED ARGUMENT
218: *
219: D57 TEST SPAN(*TEST) $ VARA :S(D64) ; ERROR()
220: D64 IDENT(TEST,VARA) :S(D70) ; ERROR()
221: *
222: * TEST BREAKX WITH DEFERRED ARGUMENT
223: *
224: D70 (TEST TEST) POS(*0) BREAKX(*'E') $ VARA '.' :F(D71) ; ERROR()
225: D71 IDENT(VARA,TEST 'ABCD') :S(D73) ; ERROR()
226: *
227: * TEST ANY WITH DEFERRED ARGUMENT
228: *
229: D73 TEST ANY(*'MXZ') $ VARA :S(D74) ; ERROR()
230: D74 IDENT(VARA,'M') :S(D75) ; ERROR()
231: *
232: * TEST NOTANY WITH DEFERRED ARGUMENT
233: *
234: D75 TEST NOTANY(*'ABCDEFGHJKLMPQRSTUWXYZ') $ VARA :S(D77)
235: ERROR()
236: D77 IDENT(VARA,'I') :S(D79) ; ERROR()
237: D79 :(ALLDONE)
238: EJECT
239: *
240: * ERROR HANDLING ROUTINE
241: *
242: ERROR OUTPUT = '****** ERROR DETECTED AT ' &LASTNO ' ********'
243: OUTPUT = DIFFER(&ERRTEXT) ' &ERRTEXT = ' &ERRTEXT
244: ERRCOUNT = ERRCOUNT + 1
245: DUMP(1) :(RETURN)
246: *
247: * TERMINATION ROUTINE
248: *
249: ALLDONE
250: ERRCOUNT = ERRCOUNT + &ERRLIMIT - 100
251: &ERRLIMIT = 100
252: OUTPUT = EQ(ERRCOUNT,0)
253: . '**** NO ERRORS DETECTED ****'
254: OUTPUT = '**********************************************'
255: OUTPUT = '**** END OF DIAGNOSTICS ****'
256: OUTPUT = '**********************************************'
257: END
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.