56 lines
1.9 KiB
Plaintext
56 lines
1.9 KiB
Plaintext
;; Automatic DO-TEST
|
|
(in-package "INTERLISP")
|
|
|
|
;; search path when file not found on current directory
|
|
;(SETQ DIRECTORIES '(
|
|
; "{dsk}/usr/local/lde/internal/library/"
|
|
;))
|
|
|
|
;; paths for display fonts; list the ones that are installed
|
|
(SETQ DISPLAYFONTDIRECTORIES
|
|
'("{DSK}/usr/local/lde/fonts/display/presentation"
|
|
"{DSK}/usr/local/lde/fonts/display/publishing"
|
|
"{DSK}/usr/local/lde/fonts/display/printwheel"
|
|
"{DSK}/usr/local/lde/fonts/display/miscellaneous"
|
|
"{DSK}/usr/local/lde/fonts/display/jis1"
|
|
"{DSK}/usr/local/lde/fonts/display/jis2"
|
|
"{DSK}/usr/local/lde/fonts/display/chinese"))
|
|
|
|
;; paths for interpress font widths; list the ones that are installed
|
|
(SETQ INTERPRESSFONTDIRECTORIES
|
|
'("{DSK}/usr/local/lde/fonts/interpress/presentation"
|
|
"{DSK}/usr/local/lde/fonts/interpress/publishing"
|
|
"{DSK}/usr/local/lde/fonts/interpress/printwheel"
|
|
"{DSK}/usr/local/lde/fonts/interpress/miscellaneous"
|
|
"{DSK}/usr/local/lde/fonts/interpress/jis1"
|
|
"{DSK}/usr/local/lde/fonts/interpress/jis2"
|
|
"{DSK}/usr/local/lde/fonts/interpress/chinese"))
|
|
|
|
;; let any user with a valid UNIX login to exit Idle mode
|
|
(LISTPUT IDLE.PROFILE 'AUTHENTICATE 'UNIX)
|
|
(LISTPUT IDLE.PROFILE 'ALLOWED.LOGINS '(*))
|
|
(LISTPUT IDLE.PROFILE 'SAVEVM NIL)
|
|
(IDLE.SET.OPTION 'TIMEOUT T)
|
|
(SETQ |\\BeginDST| 98)
|
|
(SETQ |\\EndDST| 305)
|
|
|
|
;; edit to have your particular site parameters-- for standalone, short
|
|
;; site name is host name
|
|
|
|
(SETQ XCL:*LONG-SITE-NAME*
|
|
(SETQ XCL:*SHORT-SITE-NAME* (UNIX-GETPARM "HOSTNAME")))
|
|
|
|
;; Now loading DO-TEST and run DO-TEST
|
|
;(load "{DSK}/python1/fuji/TESTTOOL/omake/DO-TEST.DFASL")
|
|
(load "{DSK}~/lispcore/internal/library/DO-TEST.DFASL")
|
|
(il:load? 'masterscope.dfasl)
|
|
|
|
(il:cndir "{dsk}/python1/fuji/TESTTOOL/LANGUAGE/")
|
|
(xcl-test::do-all-tests
|
|
:results "{DSK}~/DO-TEST/AUTO-TESTS.results"
|
|
:patterns '("*.TEST"))
|
|
|
|
(DATE)
|
|
(PRINT "DO-TEST completed.")
|
|
|