So far, it looks like every file with through tr '\r\n' '\n\r' swapping cr and lf.
This commit is contained in:
Larry Masinter
347
internal/test/tools/TESTERVARS
Normal file
347
internal/test/tools/TESTERVARS
Normal file
@@ -0,0 +1,347 @@
|
||||
(FILECREATED "21-Aug-85 16:44:54" {DSK}<LISPFILES>TESTER>SOURCES>TESTERVARS.;10 14034
|
||||
|
||||
changes to: (VARS TEST.CONCEPT-WINDOW-MENU-ITEMS TESTERVARSCOMS TEST.DEFAULT-TRACE-MODE
|
||||
TEST.DEFAULT-PRETEST-MODE TEST.DEFAULT-HARDCOPY-MODE TEST.DEFAULT-LOCATION
|
||||
TEST.MAX-TESTS-BUFFER-SIZE)
|
||||
|
||||
previous date: "20-Aug-85 12:37:12" {DSK}<LISPFILES>TESTER>SOURCES>TESTERVARS.;6)
|
||||
|
||||
|
||||
(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)
|
||||
|
||||
(PRETTYCOMPRINT TESTERVARSCOMS)
|
||||
|
||||
(RPAQQ TESTERVARSCOMS ((RECORDS CONCEPT CONCEPTSPACE TEST)
|
||||
(VARS TEST.AVERAGE-TEST-SIZE TEST.BACKGROUND-MENU-SUBITEMS TEST.CONCEPT-SPACES
|
||||
TEST.CONCEPT-WINDOW-MENU-ITEMS TEST.DEFAULT-DEPTH TEST.DEFAULT-HARDCOPY-DEVICE
|
||||
TEST.DEFAULT-HARDCOPY-MODE TEST.DEFAULT-LOCATION TEST.DEFAULT-PRETEST-MODE
|
||||
TEST.DEFAULT-TRACE-MODE TEST.DEFAULT.EVALAFTER TEST.DEFAULT.EVALBEFORE
|
||||
TEST.DEFAULT.EVALEXPR TEST.DEFAULT.INPUT TEST.DEFAULT.PRETESTS
|
||||
TEST.DEFAULT.SUCCESSPREDICATE TEST.DEFAULT.TESTCOMMENT TEST.DEFAULT.TESTID
|
||||
TEST.DEFAULT.TIMEOUT TEST.DEFAULT.TIMES TEST.EVAL-SERVER-HOST (
|
||||
TEST.GLOBAL-RESULT-OF-TIMED-EVALUATION NIL)
|
||||
(TEST.LIST-OF-MODIFIED-TESTS NIL)
|
||||
(TEST.LIST-OF-TESTS NIL)
|
||||
TEST.MAX-TESTS-BUFFER-SIZE TEST.MIN-TESTS-BUFFER-SIZE (
|
||||
TEST.NEWPAGE-BEFORE-HARDCOPY-TEST NIL)
|
||||
(TEST.TESTS-BUFFER-SIZE (TEST.SET-TESTS-BUFFER-SIZE)))
|
||||
(INITVARS (TEST.DEFAULT-CONCEPT-SPACE-NAME (QUOTE INTERLISPD-SYSTEM))
|
||||
(TEST.DEFAULT-LOCATION (QUOTE On))
|
||||
(TEST.DISPLAY-THERMOMETERS T)
|
||||
(TEST.OBTAIN-LOCK-WHEN-EDIT T)
|
||||
(TEST.TEST-DATA-BASE-DIRECTORY (QUOTE {ERIS}<TEST>TESTS>))
|
||||
(TEST.TRACE-FILE-NAME (QUOTE {DSK}<LISPFILES>TESTER-TRACES>TRACE-FILE)))
|
||||
(CONSTANTS (TEST.NAME-OF-FILE-HOLDING-NEXT-TESTID (QUOTE {ERIS}<TEST>TOOLS>NEXTID))
|
||||
(TEST.NAME-OF-LOCK-FILE (QUOTE {ERIS}<TEST>TOOLS>LOCK-FILE)))
|
||||
(GLOBALVARS TEST.AVERAGE-TEST-SIZE TEST.BACKGROUND-MENU-SUBITEMS TEST.CONCEPT-SPACES
|
||||
TEST.CONCEPT-WINDOW-MENU-ITEMS TEST.DEFAULT-CONCEPT-SPACE-NAME TEST.DEFAULT-DEPTH
|
||||
TEST.DEFAULT-HARDCOPY-DEVICE TEST.DEFAULT-HARDCOPY-MODE TEST.DEFAULT-LOCATION
|
||||
TEST.DEFAULT-PRETEST-MODE TEST.DEFAULT-TRACE-MODE TEST.DEFAULT.EVALAFTER
|
||||
TEST.DEFAULT.EVALBEFORE TEST.DEFAULT.EVALEXPR TEST.DEFAULT.INPUT
|
||||
TEST.DEFAULT.PRETESTS TEST.DEFAULT.SUCCESSPREDICATE TEST.DEFAULT.TESTCOMMENT
|
||||
TEST.DEFAULT.TESTID TEST.DEFAULT.TIMEOUT TEST.DEFAULT.TIMES
|
||||
TEST.DISPLAY-THERMOMETERS TEST.EVAL-SERVER-HOST
|
||||
TEST.GLOBAL-RESULT-OF-TIMED-EVALUATION TEST.LIST-OF-MODIFIED-TESTS
|
||||
TEST.LIST-OF-TESTS TEST.MAX-TESTS-BUFFER-SIZE TEST.MIN-TESTS-BUFFER-SIZE
|
||||
TEST.NAME-OF-FILE-HOLDING-NEXT-TESTID TEST.NAME-OF-LOCK-FILE
|
||||
TEST.NEWPAGE-BEFORE-HARDCOPY-TEST TEST.OBTAIN-LOCK-WHEN-EDIT
|
||||
TEST.TEST-DATA-BASE-DIRECTORY TEST.TESTS-BUFFER-SIZE TEST.TRACE-FILE-NAME)
|
||||
(P (VARBROWSER [QUOTE ((TEST.EVAL-SERVER-HOST)
|
||||
(TEST.TEST-DATA-BASE-DIRECTORY)
|
||||
(TEST.DEFAULT-HARDCOPY-DEVICE)
|
||||
(TEST.TRACE-FILE-NAME)
|
||||
(TEST.DEFAULT-HARDCOPY-MODE (No-Hardcopy Failures-Only Hardcopy-All))
|
||||
(TEST.DEFAULT-PRETEST-MODE (No-Pretests Weak-Links Strong-Links))
|
||||
(TEST.DEFAULT-TRACE-MODE (On Off))
|
||||
(TEST.DEFAULT-LOCATION (Local Remote))
|
||||
(TEST.TRACE-FILE-NAME)
|
||||
(TEST.DEFAULT-CONCEPT-SPACE-NAME)
|
||||
(TEST.DEFAULT-DEPTH (NIL 2 3 4 5 6 7 8 9 10))
|
||||
(TEST.MAX-TESTS-BUFFER-SIZE (2000 1000 750 500 250 200 100 75 50 30 10)
|
||||
)
|
||||
(TEST.MIN-TESTS-BUFFER-SIZE (1 5 10 20 50 100 200 500))
|
||||
(TEST.OBTAIN-LOCK-WHEN-EDIT (T NIL))
|
||||
(TEST.DISPLAY-THERMOMETERS (T NIL))
|
||||
(TEST.NEWPAGE-BEFORE-HARDCOPY-TEST (T NIL]
|
||||
NIL "Test Variables"))))
|
||||
[DECLARE: EVAL@COMPILE
|
||||
|
||||
(RECORD CONCEPT (CONCEPTNAME TESTS SUBCONCEPTS SUPERCONCEPTS))
|
||||
|
||||
(RECORD CONCEPTSPACE (CONCEPTSPACENAME ROOTCONCEPT CONCEPTLIST))
|
||||
|
||||
(RECORD TEST (TESTID EVALEXPR INPUT SUCCESSPREDICATE TIMES TIMEOUT EVALBEFORE EVALAFTER TESTCOMMENT
|
||||
PRETESTS))
|
||||
]
|
||||
|
||||
(RPAQQ TEST.AVERAGE-TEST-SIZE 1.222222)
|
||||
|
||||
(RPAQQ TEST.BACKGROUND-MENU-SUBITEMS (SUBITEMS ("Load Concept Space" (TEST.LOAD-CONCEPT-SPACE-COMMAND)
|
||||
|
||||
"Prompts for a file name and loads the concept space stored on this file.")
|
||||
("Store Concept Space" (
|
||||
TEST.STORE-CONCEPT-SPACE-COMMAND)
|
||||
|
||||
"Pops up a menu of the concept spaces, prompts for a file name and stores the concept space on the file."
|
||||
)
|
||||
("Browse concept space" (
|
||||
TEST.BROWSE-CONCEPT-SPACE-COMMAND)
|
||||
|
||||
"Pops up a menu of the concept spaces, and displayes a graph window of the selected concept space.")))
|
||||
|
||||
(RPAQQ TEST.CONCEPT-SPACES [(INTERLISPD-SYSTEM INTERLISP-D
|
||||
((INTERLISP-D NIL (TESTER INPUT/OUTPUT DISPLAY
|
||||
COMPILER LIST-PROCESSING
|
||||
ARITHMETIC)
|
||||
NIL)
|
||||
(ARITHMETIC NIL (ARITHMETIC-FUNCTIONS
|
||||
FLOAT-ARITHMETIC
|
||||
INTEGER-ARITHMETIC)
|
||||
(INTERLISP-D))
|
||||
(LIST-PROCESSING NIL NIL (INTERLISP-D))
|
||||
(COMPILER NIL NIL (INTERLISP-D))
|
||||
(INTEGER-ARITHMETIC NIL
|
||||
(IQUOTIENT IMINUS IPLUS ITIMES
|
||||
BIGNUM FIXP-ARITH)
|
||||
(ARITHMETIC))
|
||||
(FLOAT-ARITHMETIC NIL (FTIMES FPLUS)
|
||||
(ARITHMETIC))
|
||||
(FIXP-ARITH (10 8 7 6 5)
|
||||
NIL
|
||||
(INTEGER-ARITHMETIC))
|
||||
(BIGNUM (27 26 25 24 23 20 18 13 12 11 9 4)
|
||||
NIL
|
||||
(INTEGER-ARITHMETIC))
|
||||
(ARITHMETIC-FUNCTIONS NIL
|
||||
(IQUOTIENT SUB1 ADD1 IMINUS EQP
|
||||
FTIMES FPLUS IPLUS
|
||||
ITIMES)
|
||||
(ARITHMETIC))
|
||||
(ITIMES (13 10 4)
|
||||
NIL
|
||||
(INTEGER-ARITHMETIC ARITHMETIC-FUNCTIONS))
|
||||
(IPLUS (12 11 9 8 7 6 5)
|
||||
NIL
|
||||
(INTEGER-ARITHMETIC ARITHMETIC-FUNCTIONS))
|
||||
(FPLUS NIL NIL (FLOAT-ARITHMETIC ARITHMETIC-FUNCTIONS)
|
||||
)
|
||||
(FTIMES NIL NIL (FLOAT-ARITHMETIC
|
||||
ARITHMETIC-FUNCTIONS))
|
||||
(DISPLAY NIL (FONTS WINDOW-SYSTEM)
|
||||
(INTERLISP-D))
|
||||
(WINDOW-SYSTEM NIL (WINDOW-FUNCTIONS)
|
||||
(DISPLAY))
|
||||
(WINDOW-FUNCTIONS NIL (SHAPEW)
|
||||
(WINDOW-SYSTEM))
|
||||
(SHAPEW (14)
|
||||
NIL
|
||||
(WINDOW-FUNCTIONS))
|
||||
(FONTS NIL (FONTS-FUNCTIONS)
|
||||
(DISPLAY))
|
||||
(FONTS-FUNCTIONS NIL (FONTCREATE)
|
||||
(FONTS))
|
||||
(FONTCREATE (16)
|
||||
NIL
|
||||
(I/O-FUNCTIONS FONTS-FUNCTIONS))
|
||||
(INPUT/OUTPUT NIL (I/O-FUNCTIONS DSK-FILING NS-FILING)
|
||||
(INTERLISP-D))
|
||||
(NS-FILING (3 2 1)
|
||||
NIL
|
||||
(INPUT/OUTPUT))
|
||||
(DSK-FILING NIL NIL (INPUT/OUTPUT))
|
||||
(I/O-FUNCTIONS NIL (FONTCREATE PRIN2 READ)
|
||||
(INPUT/OUTPUT))
|
||||
(READ (3 2 1)
|
||||
NIL
|
||||
(I/O-FUNCTIONS))
|
||||
(PRIN2 (3 2 1)
|
||||
NIL
|
||||
(I/O-FUNCTIONS))
|
||||
(TESTER NIL (RANDOM-GENERATOR TESTS REMOTE-EVAL
|
||||
CONCEPT-SPACE)
|
||||
(INTERLISP-D))
|
||||
(CONCEPT-SPACE NIL NIL (TESTER))
|
||||
(REMOTE-EVAL NIL NIL (TESTER))
|
||||
(TESTS NIL (1-100)
|
||||
(TESTER))
|
||||
(RANDOM-GENERATOR NIL NIL (TESTER))
|
||||
(1-100 (21 19)
|
||||
NIL
|
||||
(TESTS))
|
||||
(EQP (20)
|
||||
NIL
|
||||
(ARITHMETIC-FUNCTIONS))
|
||||
(IMINUS (24 23)
|
||||
NIL
|
||||
(INTEGER-ARITHMETIC ARITHMETIC-FUNCTIONS))
|
||||
(ADD1 (26 25)
|
||||
NIL
|
||||
(ARITHMETIC-FUNCTIONS))
|
||||
(SUB1 (26 25)
|
||||
NIL
|
||||
(ARITHMETIC-FUNCTIONS))
|
||||
(IQUOTIENT (27)
|
||||
NIL
|
||||
(INTEGER-ARITHMETIC ARITHMETIC-FUNCTIONS])
|
||||
|
||||
(RPAQQ TEST.CONCEPT-WINDOW-MENU-ITEMS [("Copy subtree" TEST.COPY-SUBTREE-COMMAND)
|
||||
("Add concept" TEST.ADD-CONCEPT-COMMAND)
|
||||
("Delete concept" TEST.DELETE-CONCEPT-COMMAND)
|
||||
("Add link" TEST.ADD-LINK-COMMAND)
|
||||
("Delete link" TEST.DELETE-LINK-COMMAND)
|
||||
("Add test" TEST.ADD-TEST-COMMAND)
|
||||
("Delete test" TEST.DELETE-TEST-COMMAND)
|
||||
("Edit test" TEST.EDIT-TEST-COMMAND)
|
||||
("Display" NIL "select subitem to perform display operations."
|
||||
(SUBITEMS ("Display tests on/off"
|
||||
TEST.SWITCH-DISPLAY-MODE-COMMAND)
|
||||
("Browse subtree"
|
||||
TEST.BROWSE-SUBTREE-COMMAND
|
||||
"Asks for a node selection and creates a browser for the concept space for which the selected node is the root"
|
||||
)
|
||||
("Change depth" TEST.CHANGE-DEPTH-COMMAND
|
||||
"Will prompt for an integer which will be the new depth of the displayed concept space lattice")
|
||||
("Update" TEST.UPDATE-COMMAND
|
||||
"Recomputes the graph and display it.")))
|
||||
("Execute tests" TEST.EXECUTE-TESTS
|
||||
"Executes all the tests of the selected concept. "
|
||||
(SUBITEMS ("All tests" TEST.EXECUTE-TESTS
|
||||
"Executes all the tests of the selected concept. ")
|
||||
("Selected tests"
|
||||
TEST.EXECUTE-SELECTED-TESTS-COMMAND
|
||||
"Lets the user to select tests of the selected concept, and executes these tests.")))
|
||||
("Hardcopy tests" TEST.HARDCOPY-ALL-TESTS-COMMAND NIL
|
||||
(SUBITEMS ("All tests"
|
||||
TEST.HARDCOPY-ALL-TESTS-COMMAND)
|
||||
("Selected tests"
|
||||
TEST.HARDCOPY-SELECTED-TESTS-COMMAND)))
|
||||
("data base" NIL "Select on of the submenus"
|
||||
(SUBITEMS ("Obtain Lock" TEST.OBTAIN-LOCK-COMMAND
|
||||
"Will try to obtain locks on all the tests of the selected concept"
|
||||
(SUBITEMS ("All tests"
|
||||
|
||||
TEST.OBTAIN-LOCK-COMMAND
|
||||
"Will try to obtain locks on all the tests of the selected concept")
|
||||
(
|
||||
"Selected tests" TEST.OBTAIN-LOCK-ON-SELECTED-TESTS-COMMAND
|
||||
"Will try to obtain locks on the selected tests of the selected concept")))
|
||||
("Release lock"
|
||||
TEST.RELEASE-LOCK-COMMAND
|
||||
"Will release all the locks that the user has on the tests of the selected test."
|
||||
(SUBITEMS ("All tests"
|
||||
|
||||
TEST.RELEASE-LOCK-COMMAND
|
||||
"Will release all the locks that the user has on the tests of the selected test.")
|
||||
(
|
||||
"Selected tests" TEST.RELEASE-LOCK-ON-SELECTED-TESTS-COMMAND
|
||||
"Will the locks that the user has on the selected tests of the selected concept"])
|
||||
|
||||
(RPAQQ TEST.DEFAULT-DEPTH NIL)
|
||||
|
||||
(RPAQQ TEST.DEFAULT-HARDCOPY-DEVICE {LPT})
|
||||
|
||||
(RPAQQ TEST.DEFAULT-HARDCOPY-MODE Hardcopy-All)
|
||||
|
||||
(RPAQQ TEST.DEFAULT-LOCATION Local)
|
||||
|
||||
(RPAQQ TEST.DEFAULT-PRETEST-MODE Weak-Links)
|
||||
|
||||
(RPAQQ TEST.DEFAULT-TRACE-MODE On)
|
||||
|
||||
(RPAQQ TEST.DEFAULT.EVALAFTER [LAMBDA (RES ARGS])
|
||||
|
||||
(RPAQQ TEST.DEFAULT.EVALBEFORE NIL)
|
||||
|
||||
(RPAQQ TEST.DEFAULT.EVALEXPR NIL)
|
||||
|
||||
(RPAQQ TEST.DEFAULT.INPUT (QUOTE DUMMYARG1 DUMMYARG2))
|
||||
|
||||
(RPAQQ TEST.DEFAULT.PRETESTS ((WEAK)
|
||||
(STRONG)))
|
||||
|
||||
(RPAQQ TEST.DEFAULT.SUCCESSPREDICATE [LAMBDA (RES ARGS)
|
||||
(IF THEN (QUOTE SUCCESS)
|
||||
ELSE
|
||||
(QUOTE FAILURE])
|
||||
|
||||
(RPAQQ TEST.DEFAULT.TESTCOMMENT (* * Describe in short what the test does))
|
||||
|
||||
(RPAQQ TEST.DEFAULT.TESTID 0)
|
||||
|
||||
(RPAQQ TEST.DEFAULT.TIMEOUT [LAMBDA (ARGS)
|
||||
1000])
|
||||
|
||||
(RPAQQ TEST.DEFAULT.TIMES 1)
|
||||
|
||||
(RPAQQ TEST.EVAL-SERVER-HOST NIL)
|
||||
|
||||
(RPAQQ TEST.GLOBAL-RESULT-OF-TIMED-EVALUATION NIL)
|
||||
|
||||
(RPAQQ TEST.LIST-OF-MODIFIED-TESTS NIL)
|
||||
|
||||
(RPAQQ TEST.LIST-OF-TESTS NIL)
|
||||
|
||||
(RPAQQ TEST.MAX-TESTS-BUFFER-SIZE 500)
|
||||
|
||||
(RPAQQ TEST.MIN-TESTS-BUFFER-SIZE 20)
|
||||
|
||||
(RPAQQ TEST.NEWPAGE-BEFORE-HARDCOPY-TEST NIL)
|
||||
|
||||
(RPAQ TEST.TESTS-BUFFER-SIZE (TEST.SET-TESTS-BUFFER-SIZE))
|
||||
|
||||
(RPAQ? TEST.DEFAULT-CONCEPT-SPACE-NAME (QUOTE INTERLISPD-SYSTEM))
|
||||
|
||||
(RPAQ? TEST.DEFAULT-LOCATION (QUOTE On))
|
||||
|
||||
(RPAQ? TEST.DISPLAY-THERMOMETERS T)
|
||||
|
||||
(RPAQ? TEST.OBTAIN-LOCK-WHEN-EDIT T)
|
||||
|
||||
(RPAQ? TEST.TEST-DATA-BASE-DIRECTORY (QUOTE {ERIS}<TEST>TESTS>))
|
||||
|
||||
(RPAQ? TEST.TRACE-FILE-NAME (QUOTE {DSK}<LISPFILES>TESTER-TRACES>TRACE-FILE))
|
||||
(DECLARE: EVAL@COMPILE
|
||||
|
||||
(RPAQQ TEST.NAME-OF-FILE-HOLDING-NEXT-TESTID {ERIS}<TEST>TOOLS>NEXTID)
|
||||
|
||||
(RPAQQ TEST.NAME-OF-LOCK-FILE {ERIS}<TEST>TOOLS>LOCK-FILE)
|
||||
|
||||
(CONSTANTS (TEST.NAME-OF-FILE-HOLDING-NEXT-TESTID (QUOTE {ERIS}<TEST>TOOLS>NEXTID))
|
||||
(TEST.NAME-OF-LOCK-FILE (QUOTE {ERIS}<TEST>TOOLS>LOCK-FILE)))
|
||||
)
|
||||
(DECLARE: DOEVAL@COMPILE DONTCOPY
|
||||
|
||||
(GLOBALVARS TEST.AVERAGE-TEST-SIZE TEST.BACKGROUND-MENU-SUBITEMS TEST.CONCEPT-SPACES
|
||||
TEST.CONCEPT-WINDOW-MENU-ITEMS TEST.DEFAULT-CONCEPT-SPACE-NAME TEST.DEFAULT-DEPTH
|
||||
TEST.DEFAULT-HARDCOPY-DEVICE TEST.DEFAULT-HARDCOPY-MODE TEST.DEFAULT-LOCATION
|
||||
TEST.DEFAULT-PRETEST-MODE TEST.DEFAULT-TRACE-MODE TEST.DEFAULT.EVALAFTER
|
||||
TEST.DEFAULT.EVALBEFORE TEST.DEFAULT.EVALEXPR TEST.DEFAULT.INPUT TEST.DEFAULT.PRETESTS
|
||||
TEST.DEFAULT.SUCCESSPREDICATE TEST.DEFAULT.TESTCOMMENT TEST.DEFAULT.TESTID
|
||||
TEST.DEFAULT.TIMEOUT TEST.DEFAULT.TIMES TEST.DISPLAY-THERMOMETERS TEST.EVAL-SERVER-HOST
|
||||
TEST.GLOBAL-RESULT-OF-TIMED-EVALUATION TEST.LIST-OF-MODIFIED-TESTS TEST.LIST-OF-TESTS
|
||||
TEST.MAX-TESTS-BUFFER-SIZE TEST.MIN-TESTS-BUFFER-SIZE
|
||||
TEST.NAME-OF-FILE-HOLDING-NEXT-TESTID TEST.NAME-OF-LOCK-FILE
|
||||
TEST.NEWPAGE-BEFORE-HARDCOPY-TEST TEST.OBTAIN-LOCK-WHEN-EDIT
|
||||
TEST.TEST-DATA-BASE-DIRECTORY TEST.TESTS-BUFFER-SIZE TEST.TRACE-FILE-NAME)
|
||||
)
|
||||
(VARBROWSER [QUOTE ((TEST.EVAL-SERVER-HOST)
|
||||
(TEST.TEST-DATA-BASE-DIRECTORY)
|
||||
(TEST.DEFAULT-HARDCOPY-DEVICE)
|
||||
(TEST.TRACE-FILE-NAME)
|
||||
(TEST.DEFAULT-HARDCOPY-MODE (No-Hardcopy Failures-Only Hardcopy-All))
|
||||
(TEST.DEFAULT-PRETEST-MODE (No-Pretests Weak-Links Strong-Links))
|
||||
(TEST.DEFAULT-TRACE-MODE (On Off))
|
||||
(TEST.DEFAULT-LOCATION (Local Remote))
|
||||
(TEST.TRACE-FILE-NAME)
|
||||
(TEST.DEFAULT-CONCEPT-SPACE-NAME)
|
||||
(TEST.DEFAULT-DEPTH (NIL 2 3 4 5 6 7 8 9 10))
|
||||
(TEST.MAX-TESTS-BUFFER-SIZE (2000 1000 750 500 250 200 100 75 50 30 10))
|
||||
(TEST.MIN-TESTS-BUFFER-SIZE (1 5 10 20 50 100 200 500))
|
||||
(TEST.OBTAIN-LOCK-WHEN-EDIT (T NIL))
|
||||
(TEST.DISPLAY-THERMOMETERS (T NIL))
|
||||
(TEST.NEWPAGE-BEFORE-HARDCOPY-TEST (T NIL]
|
||||
NIL "Test Variables")
|
||||
(PUTPROPS TESTERVARS COPYRIGHT ("Xerox Corporation" 1985))
|
||||
(DECLARE: DONTCOPY
|
||||
(FILEMAP (NIL)))
|
||||
STOP
|
||||
Reference in New Issue
Block a user