Google
 

Trailing-Edge - PDP-10 Archives - AP-D543V_SB - maktst.ctl
There is 1 other file named maktst.ctl in the archive. Click here to see a list.
;
;***COPYRIGHT 1976, 1977 DIGITAL EQUIPMENT CORP.  MAYNARD, MASS. ***
;
;MAKTST.CTL - MAKVFU COMMAND TESTS  - CREATED 6/25/76
;
;THIS CONTROL FILE IS DESIGNED TO TEST THE PROGRAM MAKVFU. IT 
;EXERCISES ALL THE COMMANDS IN THE PROGRAM AND GENERATES ALL
;ERROR CONDITIONS.  THIS FILE SHOULD BE RUN EVERY TIME A BUG FIX
;IS MADE TO MAKVFU TO ENSURE THAT NO OTHER PARTS OF MAKVFU WERE AFFECTED
;BY THE FIX.
;
;THIS CONTROL FILE IS RELATED TO TWO OTHER CONTOL FILES: MAKVFU.CTL AND
;MAKTLP.CTL. MAKVFU.CTL IS THE ASSEMBLY BATCH FILE FOR MAKVFU AND
;MAKTLP.CTL IS THE TEST BATCH FILE FOR THE LP100/LP07 LINE PRINTER
;SUBSYSTEM. THIS FILE ENSURES THAT THE BINARY IMAGE CREATED BY MAKVFU
;IS LOADABLE INTO THE LINE PRINTER SUBSYSTEM.
;
;
;ALL COMMANDS IN THIS TEST FILE ARE VALID IF THEY DO NOT
;PRODUCE AN ERROR MESSAGE.
;
;ALL COMMAND TESTS CHECK FOR RECOGNITION OF THE FULL COMMAND
;SPELLING PLUS THE SHORTEST ABBREVIATION OF THE COMMAND ACCEPTABLE
;TO THE PROGRAM. A FULL TEST OF THE COMMAND SCANNER APPEARS IN TEST 12.
;
;CREATE ERROR MESSAGE FOR POSSIBLE LATER USE
;
.MAKE T.ERR
*I****************************** ERROR DETECTED ************************
********************* REMAINING SUB-TEST COMMANDS ARE INVALID **********

*EX
;
;CHECK VERSION NUMBERS OF ALL PROGRAMS
;
.SET WATCH VERSION
;
;CHECK ORIGINAL VFU CONFIGURATION - THIS WILL BE THE SAME
;EVERY TIME MAKVFU IS FIRST ENTERED.
;
.RU MAKVFU
*I
*I 1
*I 2
*I 3
*I 4
*I 5
*I 6
*I 7
*I 8
*I 9
*I 10
*I 11
*I 12
.IF (ERROR) .TYPE T.ERR
;
;NOW RUN THE TESTS
;*********************************************
;TEST 1 - CHANNEL COMMAND TESTS
;*********************************************
;SEE TESTS 10 AND 11 FOR SUBCOMMAND TESTS
;
;VALID COMMANDS
;
.RU MAKVFU
*C 1 A
*CHANNEL 1 A
*C 1 T
*C 2 T
*C 3 T
*C 4 T
*C 5 T
*C 6 T
*C 7 T
*C 8 T
*C 12 B
*I 1
*I 2
*I 3
*I 4
*I 5
*I 6
*I 7
*I 8
*I 12
.IF (ERROR) .TYPE T.ERR
;
;ERRORS
;
*C 1 NONE
.IF (NOERROR) .TYPE T.ERR
*C
.IF (NOERROR) .TYPE T.ERR
*C X A
.IF (NOERROR) .TYPE T.ERR
*C 0 A
.IF (NOERROR) .TYPE T.ERR
*C 13 A
.IF (NOERROR) .TYPE T.ERR
*C!!1!A
.IF (NOERROR) .TYPE T.ERR
*C 1
.IF (NOERROR) .TYPE T.ERR
;*********************************************
;TEST 2 - EXIT COMMAND TESTS
;*********************************************
;
;VALID COMMANDS
;
.RU MAKVFU
*E
.IF (NOERROR) .TYPE T.ERR
.CONT
*EXIT
.IF (NOERROR) .TYPE T.ERR
.CONT
*O
.IF (ERROR) .TYPE T.ERR
*E
.IF (ERROR) .TYPE T.ERR
.CONT
;
;ERRORS
;
*EXITX
.IF (NOERROR) .TYPE T.ERR
*E X
.IF (NOERROR) .TYPE T.ERR
.CONT
;
;*********************************************
;TEST 3 - FORMS COMMAND TESTS
;*********************************************
;
;VALID COMMANDS
;
.RU MAKVFU
*F
*I
*F 1
*FORMS 1
*F 2
*F 3
*F 4
*F 5
*F 6
*F 7
*F 8
*I
.IF (ERROR) .TYPE T.ERR
;
;ERRORS
;
*FORMSX 1
.IF (NOERROR) .TYPE T.ERR
*F 0
.IF (NOERROR) .TYPE T.ERR
*F 13
.IF (NOERROR) .TYPE T.ERR
*F 1 2
.IF (NOERROR) .TYPE T.ERR
*F X
.IF (NOERROR) .TYPE T.ERR
;*********************************************
;TEST 4 - HELP COMMAND TESTS
;*********************************************
;
;VALID COMMANDS
;
.RU MAKVFU
*H
.IF (ERROR) .TYPE T.ERR
*HELP
.IF (ERROR) .TYPE T.ERR
;
;ERRORS
;
*HELPER
.IF (NOERROR) .TYPE T.ERR
*H X
.IF (NOERROR) .TYPE T.ERR
;
;*********************************************
;TEST 5 - INFO COMMAND TESTS
;*********************************************
;
;VALID COMMANDS
;
.RU MAKVFU
*I
*INFORMATION
*I 1
*I 2
*I 3
*I 4
*I 5
*I 6
*I 7
*I 8
*I 12
*P 143
*I
*C 1 A
*F 1
*I 1
;
;ERRORS
;
*I 0
.IF (NOERROR) .TYPE T.ERR
*I 13
.IF (NOERROR) .TYPE T.ERR
*I 1 2
.IF (NOERROR) .TYPE T.ERR
;
;*********************************************
;TEST 6 - LENGTH COMMAND TESTS
;*********************************************
;
;VALID COMMANDS
;
.RU MAKVFU
*LE 61
*LENGTH 61
*I
*LE 143
*I
.IF (ERROR) .TYPE T.ERR
;
;ERRORS AND WARNINGS
;
*LE 50
.IF (ERROR) .TYPE T.ERR
*L 50
.IF (NOERROR) .TYPE T.ERR
*LE 144
.IF (NOERROR) .TYPE T.ERR
*LE X
.IF (NOERROR) .TYPE T.ERR
*LE
.IF (NOERROR) .TYPE T.ERR
*LE 66 5
.IF (NOERROR) .TYPE T.ERR
;
;*********************************************
;TEST 7 - LPI COMMAND TESTS
;*********************************************
;
;VALID COMMANDS
;
.RU MAKVFU
*I
*LP 6
*LPI 6
*I
*LP 8
*I
*LP 0
*I
.IF (ERROR) .TYPE T.ERR
;
;ERRORS
;
*L 100
.IF (NOERROR) .TYPE T.ERR
*LP 100
.IF (NOERROR) .TYPE T.ERR
*LP 6 8
.IF (NOERROR) .TYPE T.ERR
;
;*********************************************
;TEST 8 - OUTPUT COMMAND TESTS
;*********************************************
;
;THESE TESTS ARE REPRESENTATIVE BUT NOT EXHAUSTIVE.
;
;TESTS FOR [P,PN] AND DSK: PORTIONS OF FILESPEC ARE INSTALLATION 
;DEPENDENT. THUS, THEY ARE THE RESPONSIBLITY OF THE PERSON SUBMITTING
;THIS .CTL FILE
;
.RU MAKVFU
*E
.IF (NOERROR) .TYPE T.ERR
.CONT
*O
*OUTPUT
*O A
*O A.
*O A.B
*O A.TRUNCATE
*O DSK:
*O DSK:A
*O DSK:A.
*O DSK:A.B
*O TRUNCATE
.IF (ERROR) .TYPE T.ERR
;
;ERRORS
;
*O .EXT
.IF (NOERROR) .TYPE T.ERR
*O :;
.IF (NOERROR) .TYPE T.ERR
*O [374562]
.IF (NOERROR) .TYPE T.ERR
*O DSKB::
.IF (NOERROR) .TYPE T.ERR
*O [1,,2]
.IF (NOERROR) .TYPE T.ERR
*O 1,2]
.IF (NOERROR) .TYPE T.ERR
*O [9,9]
.IF (NOERROR) .TYPE T.ERR
*O [1,2] X
.IF (NOERROR) .TYPE T.ERR
*O [1,2]
.IF (NOERROR) .TYPE T.ERR
*E
.IF (ERROR) .TYPE T.ERR
;
;*********************************************
;TEST 9 - PAGE COMMAND TESTS
;*********************************************
;
;VALID COMMANDS
;
.RU MAKVFU
*P 50
*PAGE 50
*I
.IF (ERROR) .TYPE T.ERR
;
;ERRORS AND WARNINGS
;
*P 143
.IF (ERROR) .TYPE T.ERR
*P 0
.IF (NOERROR) .TYPE T.ERR
*PAGE 144
.IF (NOERROR) .TYPE T.ERR
*PAGES 60
.IF (NOERROR) .TYPE T.ERR
*P X
.IF (NOERROR) .TYPE T.ERR
*P 60 50
.IF (NOERROR) .TYPE T.ERR
;*********************************************
;TEST 10 - ALL,TOP,BOTTOM SUBCOMMAND TESTS
;*********************************************
;
;VALID COMMANDS
;
.RU MAKVFU
*C 1 A
*C 1 ALL
*I 1
*C 1 T
*C 1 TOP
*I 1
*C 2 B
*C 2 BOTTOM
*I 2
.IF (ERROR) .TYPE T.ERR
;
;ERRORS
;
*C 1 ALLX
.IF (NOERROR) .TYPE T.ERR
*C 1 TOPX
.IF (NOERROR) .TYPE T.ERR
*C 1 A 1
.IF (NOERROR) .TYPE T.ERR
*C 1 B 1
.IF (NOERROR) .TYPE T.ERR
*C 1 T 1
.IF (NOERROR) .TYPE T.ERR
*C 1 B
.IF (NOERROR) .TYPE T.ERR
;
;*********************************************
;TEST 11 - EVERY AND LINES SUBCOMMAND TESTS
;*********************************************
;
;VALID COMMANDS
;
.RU MAKVFU
*C 1 E 1
*C 1 EVERY 1
*I 1
*C 1 L 1 2 3
*C 1 LINES 1 2 3
*I 1
*C 2 L 66
*I 2
*F 2
*I 2
.IF (ERROR) .TYPE T.ERR
;
;ERRORS
;
*C 1 E -10
.IF (NOERROR) .TYPE T.ERR
*C 1 E 70
.IF (NOERROR) .TYPE T.ERR
*C 1 E
.IF (NOERROR) .TYPE T.ERR
*C 1 E X
.IF (NOERROR) .TYPE T.ERR
*C 1 L 1 2 X
.IF (NOERROR) .TYPE T.ERR
*C 1 L
.IF (NOERROR) .TYPE T.ERR
*C 1 EVERYX 1
.IF (NOERROR) .TYPE T.ERR
*C 1 LINESX 1
.IF (NOERROR) .TYPE T.ERR
*C 1 E 1 2
.IF (NOERROR) .TYPE T.ERR
*C 1 L 2 9 143
.IF (NOERROR) .TYPE T.ERR
;
;*********************************************
;TEST 12 - MISCELLANEOUS TESTS
;*********************************************
;
.RU MAKVFU
;
;VALID COMMANDS
;
;CHECK COMMAND INTERPRETER
;
*C 1 A
*CH 1 A
*CHA 1 A
*CHAN 1 A
*CHANN 1 A
*CHANNE 1 A
*CHANNEL 1 A
*CHANNEX 1 A
*C 1 E 1
*C 1 EV 1
*C 1 EVE 1
*C 1 EVER 1
*C 1 EVERY 1
.IF (ERROR) .TYPE T.ERR
;
;THE FOLLOWING COMMANDS HAVE UNUSUAL TERMINATORS AND EXTRA SPACES
;BETWEEN THE ARGUMENTS. THEY ARE ALL VALID.
;
*C!1!E!2
*  C  1  A
* C    1   E     1
;
;THE FOLLOWING COMMANDS HAVE SPACES AND TABS AFTER THE LAST VISIBLE
;CHARACTER.
;
;ONE SPACE
;
*O 
;
;ONE TAB
;
*E	
.CONT
;
;2 SPACES
;
*E  
.CONT
;
;2 TABS
;
*E		
.CONT
;
;SPACE + TAB
;
*E 	
.CONT
;
;TAB + SPACE
;
*E	 
.CONT
;
;TAB + SPACE + TAB
;
*E	 	
.CONT
;
;SPACE + TAB + SPACE
;
*E 	 
.CONT
;
;CHECK ALL COMMANDS - ONE SPACE AT END
;
*C 1 A 
*C 2 B 
*C 1 E 1 
*C 1 L 1 
*C 1 T 
*F 
*F 1 
*H 
*I 
*I 1 
*LE 66 
*LP 6 
*O A 
*P 60 
.IF (ERROR) .TYPE T.ERR
;
;THE FOLLOWING COMMANDS CAUSE ERRORS
;
*MARK
.IF (NOERROR) .TYPE T.ERR
*L 1
.IF (NOERROR) .TYPE T.ERR
;
;CLEANUP AFTER TESTS COMPLETED
;
.DELETE NORMAL.VFU,TRUNCA.VFU,A.VFU,A,A.B,A.TRU,T.ERR