;; 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.")