Google
 

Trailing-Edge - PDP-10 Archives - red405a2 - uetp/lib/verify.ver
There are 15 other files named verify.ver in the archive. Click here to see a list.
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
!  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
!
!COPYRIGHT (C) 1977 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!VERIFY  TEST

@DEF DSK: DSK:,<UETP.LIB>

@TAKE SYS.CMD

@ENABLE
		!***** message: START OF APL TEST
@RUN  <UETP.lib>SENDER
*TYPE START
*BLABEL BEGIN:
*TEST VERIFY
*SEND START OF VERIFY TEST
*EXIT

@I  LOG ALL



!TEST FOR EXISTENCE OF VERIFY ON THIS SYSTEM.
@GET SYS:VERIFY.EXE
@IF (NOERROR) @GOTO VERIFY::

		!***** message: VERIFY NOT AVAILABLE
@RUN  <UETP.lib>SENDER
*TYPE ERROR
*BLABEL BEGIN:
*TEST VERIFY
*SEND VERIFY NOT AVAILABLE
*EXIT

@GOTO END::

VERIFY::
!
@GET SYS:VERIFY
@INF VER
@START
*CON VERIFY
*VERIFY *.VERIFY
@IF (NOERROR) @GOTO END::

		!***** message: ERRORS RUNNING VERIFY PROGRAMS
@RUN  <UETP.lib>SENDER
*TYPE ERROR
*BLABEL VERIFY:
*TEST VERIFY
*SEND ERRORS RUNNING VERIFY PROGRAMS
*EXIT

@GOTO END::


%TERR::
		!***** message: TIMER ERROR IN VERIFY TEST
@RUN  <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL END:
*TEST VERIFY
*SEND VERIFY RAN OUT OF CPU TIME
*EXIT

@GO TO END


%ERR::
		!***** message: UNKNOWN ERROR IN VERIFY TEST
@RUN  <UETP.lib>SENDER
*TYPE ERROR
*BLABEL END:
*TEST VERIFY
*SEND UNKNOWN ERROR IN VERIFY TEST
*EXIT

@GO TO END


END::

%FIN::
@CHKPNT ADSF::
		!***** message: END OF VERIFY TEST
@RUN  <UETP.lib>SENDER
*TYPE END
*BLABEL END:
*TEST VERIFY
*SEND END OF VERIFY TEST
*EXIT

@reset