github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-30 21:49:38 +00:00
Code Issues Projects Releases Wiki Activity

Start to clean out envos test directory

Browse Source
This commit is contained in:
Larry Masinter
2020-12-16 18:21:28 -08:00
parent bd492b34ff
commit bffbf30c8e
96 changed files with 166 additions and 8504 deletions
Download Patch File Download Diff File Expand all files Collapse all files

101
internal/test/IO/Display/Auto/CURSORTEST.SOURCE Normal file
View File

@@ -0,0 +1,101 @@
(DEFINE-FILE-INFO §PACKAGE "INTERLISP" §READTABLE "XCL" §BASE 10)
(FILECREATED "30-Mar-87 16:03:39" {ERIS}<LISPCORE>TEST>DISPLAY>CURSORTEST.SOURCE\;10 5831
|changes| |to:| (VARS CURSORTESTCOMS)
|previous| |date:| "30-Mar-87 15:50:23" {ERIS}<LISPCORE>TEST>DISPLAY>CURSORTEST.SOURCE\;8)
; Copyright (c) 1987 by XEROX Corporation. All rights reserved.
(PRETTYCOMPRINT CURSORTESTCOMS)
(RPAQQ CURSORTESTCOMS ((VARS CURSORNAMES XCL-TEST::DOLLAR XCL-TEST::WRONGDOLLAR-16-17
XCL-TEST::WRONGDOLLAR-17-16 XCL-TEST::TRIANGLE)
(FNS XCL-TEST::CURSORP XCL-TEST::CURSORSETTEST XCL-TEST::CNAMETEST
XCL-TEST::MOVECURSORTEST)
(DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
(ADDVARS (NLAMA)
(NLAML)
(LAMA XCL-TEST::MOVECURSORTEST XCL-TEST::CNAMETEST
XCL-TEST::CURSORSETTEST XCL-TEST::CURSORP)))))
(RPAQQ CURSORNAMES
(WAITINGCURSOR MOUSECONFIRMCURSOR SYSOUTCURSOR SAVINGCURSOR CROSSHAIRS BOXCURSOR FORCEPS
EXPANDINGBOX |UpperRightCursor| |LowerRightCursor| |UpperLeftCursor| |LowerLeftCursor|
|VertThumbCursor| |VertScrollCursor| |ScrollUpCursor| |ScrollDownCursor|
|HorizThumbCursor| |HorizScrollCursor| |ScrollLeftCursor| |ScrollRightCursor|
DEFAULTCURSOR))
(RPAQQ XCL-TEST::DOLLAR #*(16 16)@EJ@@FF@@LC@ADBHADBHADB@@LB@@FB@@EJ@@DF@@DC@ADBHADBH@LBH@DC@@CL@)
(RPAQQ XCL-TEST::WRONGDOLLAR-16-17
#*(16 17)@EJ@@FF@@LC@ADBHADBHADBH@LB@@FB@@EJ@@DF@@DC@ADBHADBHADBH@LC@@FF@@EJ@)
(RPAQQ XCL-TEST::WRONGDOLLAR-17-16 #*(17 16)@EM@@@@@@FC@@@@@@DAH@@@@@LAD@@@@ADAD@@@@ADAD@@@@ADA@@@@@@LA@@@@@@FA@@@@@@EM@@@@@ADC@@@@@ADAH@@@@ADAD@@@@@LAD@@@@@FCH@@@@@EM@@@@@
)
(RPAQQ XCL-TEST::TRIANGLE #*(15 16)OOONH@@BD@@DD@@DB@@HB@@HA@A@A@A@@HB@@HB@@DD@@DD@@BH@@BH@@A@@@A@@)
(DEFINEQ
(XCL-TEST::CURSORP
(CL:LAMBDA (XCL-TEST::OBJECT) (* \; "Edited 26-Mar-87 10:56 by REIDY")
"OBJECT iff it's a cursor, else NIL"
(COND
((TYPEP XCL-TEST::OBJECT 'CURSOR)
XCL-TEST::OBJECT)
(T NIL))))
(XCL-TEST::CURSORSETTEST
(CL:LAMBDA (XCL-TEST::CURSOR)
(CL:BLOCK XCL-TEST::CURSORSETTEST (CURSOR XCL-TEST::CURSOR)
(CL:EQUAL (CURSOR)
XCL-TEST::CURSOR))))
(XCL-TEST::CNAMETEST
(CL:LAMBDA NIL (CL:BLOCK XCL-TEST::CNAMETEST (LET ((XCL-TEST::CURSORLIST (CL:MAPCAR 'CL:EVAL
CURSORNAMES)))
(AND (CL:EVERY 'BOUNDP CURSORNAMES)
(CL:EVERY 'CURSORP XCL-TEST::CURSORLIST)
(CL:EVERY 'BITMAPP (CL:MAPCAR 'CURSORBITMAP
XCL-TEST::CURSORLIST
))
(CL:EVERY 'XCL-TEST::CURSORSETTEST
XCL-TEST::CURSORLIST))))))
(XCL-TEST::MOVECURSORTEST
(CL:LAMBDA NIL (CL:BLOCK XCL-TEST::MOVECURSORTEST (LET ((XCL-TEST::DOLLARCURSOR (CURSORCREATE
XCL-TEST::DOLLAR
10 10))
(XCL-TEST::TRIANGLECURSOR (CURSORCREATE
XCL-TEST::TRIANGLE
8 8)))
(CURSOR XCL-TEST::DOLLARCURSOR)
(PRIN1 'XCL-TEST::|Move the dollar-sign cursor through the TEdit, SEdit, Filebrowser and EXEC windows, then enter a carriage return.|
)
(CL:READ-CHAR)
(SETCURSOR XCL-TEST::TRIANGLECURSOR)
(PRIN1 'XCL-TEST::|Move the triangular cursor through the TEdit, SEdit, Filebrowser and EXEC windows, then enter a carriage return.|
)
(CL:READ-CHAR)
(SETCURSOR BOXCURSOR)
(PRIN1 'XCL-TEST::|Move the square cursor through the TEdit, SEdit, Filebrowser and EXEC windows, then enter a carriage return.|
)
(CL:READ-CHAR)
(CURSOR T)
(CL:VALUES)))))
)
(DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
(ADDTOVAR NLAMA )
(ADDTOVAR NLAML )
(ADDTOVAR LAMA XCL-TEST::MOVECURSORTEST XCL-TEST::CNAMETEST XCL-TEST::CURSORSETTEST XCL-TEST::CURSORP)
)
(PUTPROPS CURSORTEST.SOURCE COPYRIGHT ("XEROX Corporation" 1987))
(DECLARE\: DONTCOPY
(FILEMAP (NIL (2048 5523 (XCL-TEST::CURSORP 2058 . 2350) (XCL-TEST::CURSORSETTEST 2352 . 2560) (
XCL-TEST::CNAMETEST 2562 . 3439) (XCL-TEST::MOVECURSORTEST 3441 . 5521)))))
STOP

34
internal/test/IO/Display/Auto/CURSORTEST.TEST Normal file
View File

@@ -0,0 +1,34 @@
(do-test-group cursortests
;; Automatic tests of cursor functions
;; Filed as {ERIS}<LISPCORE>TEST>DISPLAY>CURSOR.TEST
;;
;; 26 March 1987
;; By Peter Reidy
:before (il:load? "{eris}<test>i/o>display>auto>cursortest.source")
;;
(do-test cname
(cnametest)
) ; do-test cname
;;
;; Tests of AR 8204: see if cursoring rejects oversize bitmaps (i.e. > 16 x 16) rather than proceeding to a crash.
;; WARNING: don't try this in 11 March or earlier sysouts.
(do-test cursor-16x17-test
(expect-errors (error)
(cursor
(cursorcreate wrongdollar-16-17))))
(do-test cursor-17x16-test
(expect-errors (error)
(cursor
(cursorcreate wrongdollar-17-16))))
(do-test setcursor-16x17-test
(expect-errors (error)
(setcursor
(cursorcreate wrongdollar-16-17))))
(do-test setcursor-17x16-test
(expect-errors (error)
(setcursor
(cursorcreate wrongdollar-17-16))))
) ; do-test-group cursortests
STOP

BIN
internal/test/IO/Display/Hand/CURSOR.PROC Normal file
View File

Binary file not shown.

BIN
internal/test/IO/Display/Logs/CURSOR.LOG Normal file
View File

Binary file not shown.

BIN
internal/test/IO/Hardcopy/Hand/FX80DRIVER.PROC Normal file
View File

Binary file not shown.

BIN
internal/test/IO/Hardcopy/Hand/PRESS/INTERPRESS.LOG Normal file
View File

Binary file not shown.

BIN
internal/test/IO/Hardcopy/Hand/PRESS/INTERPRESS.PROC Normal file
View File

Binary file not shown.

BIN
internal/test/IO/Hardcopy/Hand/STREAMTESTS.DFASL Normal file
View File

Binary file not shown.

BIN
internal/test/IO/Hardcopy/Hand/STRESSTEST/STRESSTEST.TEDIT Normal file
View File

Binary file not shown.

BIN
internal/test/IO/Hardcopy/Hand/fx80driver.log Normal file
View File

Binary file not shown.

182
internal/test/IO/Hardcopy/Hand/streamtests.u Normal file
View File

@@ -0,0 +1,182 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "XCL-USER")
(il:filecreated "28-Feb-88 14:22:53" il:{eris}<test>i/o>hardcopy>hand>testfiles>streamtests.u\;1 7304
il:|changes| il:|to:| (il:functions sendfiles)
(il:vars il:streamtestscoms)
(file-environments "STREAMTESTS.U" "STREAMTESTS")
(il:fns sendfiles stresstest)
il:|previous| il:|date:| "28-Feb-88 13:45:44" il:{eris}<test>i/o>hardcopy>hand>streamtests.u\;4
)
; Copyright (c) 1987, 1988 by XEROX Corporation. All rights reserved.
(il:prettycomprint il:streamtestscoms)
(il:rpaqq il:streamtestscoms
((file-environments "STREAMTESTS.U")
(il:fns squash lister tedstream setq80 80set defprint pusher 4045set set4045 stresstest
setprinters)
(il:functions sendfiles)
(il:vars tedlist sketchlist rs232 tty fastfx80list fast hq fastfx80 hqfx80 4045xlp)
(il:declare\: il:donteval@load il:doeval@compile il:dontcopy il:compilervars
(il:addvars (il:nlama)
(il:nlaml)
(il:lama stresstest set4045 4045set pusher defprint 80set setq80 tedstream
lister squash)))))
(define-file-environment "STREAMTESTS.U" :package "XCL-USER" :readtable "XCL" :compiler
:compile-file)
(il:defineq
(squash
(lambda (prefix suffix)
(block squash (make-symbol (concatenate 'simple-string (symbol-name prefix)
(symbol-name suffix))))))
(lister
(lambda (names extension)
(block lister (mapcar 'squash names (make-list (length names)
:initial-element extension)))))
(tedstream
(lambda (file)
(block tedstream (let ((stream (il:opentextstream file)))
(il:tedit.hardcopy stream)
(close stream)))))
(setq80
(lambda (string)
(block setq80 (setq il:fastfx80-default-destination string il:hqfx80-default-destination
string))))
(80set
(lambda (&optional port) (il:* il:\; "Edited 6-Mar-87 15:50 by reidy")
(block 80set (cond
((null port)
(print 'fastfx80)
(prin1 il:fastfx80-default-destination)
(print 'hqfx80)
(prin1 il:hqfx80-default-destination)
(values))
((stringp port)
(setq80 port))
((equal port tty)
(setq80 "{TTY}"))
((or (equal port rs232)
(equal port 232))
(setq80 "{RS232}"))
(t (setq80 (symbol-name port)))))))
(defprint
(lambda (&optional printer) (il:* il:\; "Edited 6-Mar-87 15:38 by reidy")
(block defprint (cond
((null printer)
(car il:defaultprintinghost))
((equal printer hqfx80)
(pusher '(il:hqfx80 il:hqfx80)))
((equal printer fastfx80)
(pusher '(il:fastfx80 il:fastfx80)))
((or (equal printer 4045)
(equal printer 4045xlp))
(pusher 'il:4045xlp))
(t (pusher printer))))))
(pusher
(lambda (arg) (il:* il:\; "Edited 24-Feb-87 21:06 by James.pa")
(block pusher (cond
((equal arg (car il:defaultprintinghost))
il:defaultprintinghost)
(t (push arg il:defaultprintinghost))))))
(4045set
(lambda (&optional (port nil)) (il:* il:\; "Edited 12-Mar-87 16:18 by Reidy")
(block 4045set (cond
((null port)
(il:4045xlp.get.parameters '(il:port)))
((equal port 'tty)
(set4045 tty))
((or (equal port 'rs232)
(equal port '232))
(set4045 rs232))
(t (set4045 port))))))
(set4045
(lambda (port) (il:* il:\; "Edited 26-Feb-87 12:55 by James.pa")
(block set4045 (il:4045xlp.set.parameters (list (cons 'il:port port))))))
(stresstest
(lambda nil  (il:* il:\; "Edited 28-Feb-88 13:27 by Snow")
(block stresstest (il:send.file.to.printer
"{eris}<test>i/o>hardcopy>hand>stresstest>stresstest.tedit"))))
(setprinters
(il:lambda nil (il:* il:\; "Edited 17-Mar-87 14:35 by REIDY")
"Set PRESSPRINTER and IPPRINTER to the first Press and Interpress printers on il:defaultprintinghost"
(let ((ppos (position 'il:press (mapcar 'il:printertype il:defaultprintinghost)))
(ippos (position 'il:interpress (mapcar 'il:printertype il:defaultprintinghost))))
(cond
(ppos (setq pressprinter (elt il:defaultprintinghost ppos)))
(t (setq pressprinter nil)))
(cond
(ippos (setq ipprinter (elt il:defaultprintinghost ippos)))
(t (setq ipprinter nil))))
(princ '|PRESSPRINTER: |)
(prin1 pressprinter)
(terpri)
(princ '|IPPRINTER: |)
(prin1 ipprinter)
(values)))
)
(defun sendfiles (&optional host) (mapcar '(lambda (file)
(il:send.file.to.printer file host))
(il:directory "{eris}<test>i/o>hardcopy>hand>testfiles>"
'il:collect)))
(il:rpaqq tedlist (il:01ur.tedit il:02looks.tedit il:03fonts.tedit il:04para.tedit
il:05page.tedit il:06line.tedit il:07ns.tedit il:08imob.tedit))
(il:rpaqq sketchlist (il:10mixed.sketch il:11straight.sketch il:12curve.sketch il:13change.sketch
il:14text.sketch il:15reverse.sketch))
(il:rpaqq rs232 il:rs232)
(il:rpaqq tty il:tty)
(il:rpaqq fastfx80list (il:00plaintext.tedit il:01ur.tedit))
(il:rpaqq fast il:fastfx80)
(il:rpaqq hq il:hqfx80)
(il:rpaqq fastfx80 il:fastfx80)
(il:rpaqq hqfx80 il:hqfx80)
(il:rpaqq 4045xlp il:4045xlp)
(il:declare\: il:donteval@load il:doeval@compile il:dontcopy il:compilervars
(il:addtovar il:nlama )
(il:addtovar il:nlaml )
(il:addtovar il:lama stresstest set4045 4045set pusher defprint 80set setq80 tedstream lister
squash)
)
(il:putprops il:streamtests.u il:copyright ("XEROX Corporation" 1987 1988))
(il:declare\: il:dontcopy
(il:filemap (nil (1458 5950 (squash 1471 . 1662) (lister 1664 . 1858) (tedstream 1860 . 2066) (setq80
2068 . 2237) (80set 2239 . 3062) (defprint 3064 . 3783) (pusher 3785 . 4118) (4045set 4120 . 4675) (
set4045 4677 . 4878) (stresstest 4880 . 5152) (setprinters 5154 . 5948)))))
il:stop

23
internal/test/IO/Hardcopy/Hand/testfiles/00PLAINTEXT.TEDIT Normal file
View File

@@ -0,0 +1,23 @@
OOPLAINTEXT.TEDIT
Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash? In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive Treating the upper and lower cases of the same letter as distinct symbols. E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash? In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive Treating the upper and lower cases of the same letter as distinct symbols. E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash? In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive Treating the upper and lower cases of the same letter as distinct symbols. E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button
On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse. Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash? In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive Treating the upper and lower cases of the same letter as distinct symbols. E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash? In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive Treating the upper and lower cases of the same letter as distinct symbols. E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash? In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive Treating the upper and lower cases of the same letter as distinct symbols. E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse. Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash? In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive Treating the upper and lower cases of the same letter as distinct symbols. E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash? In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive Treating the upper and lower cases of the same letter as distinct symbols. E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash? In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive Treating the upper and lower cases of the same letter as distinct symbols. E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash? In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive Treating the upper and lower cases of the same letter as distinct symbols. E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button
On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse. Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash? In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive Treating the upper and lower cases of the same letter as distinct symbols. E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash? In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive Treating the upper and lower cases of the same letter as distinct symbols. E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash? In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive Treating the upper and lower cases of the same letter as distinct symbols. E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse. Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash? In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive Treating the upper and lower cases of the same letter as distinct symbols. E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.

BIN
internal/test/IO/Hardcopy/Hand/testfiles/01UR.TEDIT Normal file
View File

Binary file not shown.

BIN
internal/test/IO/Hardcopy/Hand/testfiles/02LOOKS.TEDIT Normal file
View File

Binary file not shown.

BIN
internal/test/IO/Hardcopy/Hand/testfiles/03FONTS.TEDIT Normal file
View File

Binary file not shown.

85
internal/test/IO/Hardcopy/Hand/testfiles/04PARA.TEDIT Normal file
View File

@@ -0,0 +1,85 @@
04PARA.TEDIT
Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash? In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive Treating the upper and lower cases of the same letter as distinct symbols. E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash? In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive Treating the upper and lower cases of the same letter as distinct symbols.
E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash? In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive Treating the upper and lower cases of the same letter as distinct symbols. E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button
On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse. Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash? In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive Treating the upper and lower cases of the same letter as distinct symbols. E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash? In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive Treating the upper and lower cases of the same letter as distinct symbols. E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.ÄHC What are the requirements for saving a file in a crash? In a normal |OGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive Treating the upper and lower cases of the same letter as distinct symbols. E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash? In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive Treating the upper and lower cases of the same letter as distinct symbols. E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.DOC What are the requirements for saving a file in a crash? In a normal LOGOUT and boot without TEdit PUT and QUIT? Definitions Case-sensitive Treating the upper and lower cases of the same letter as distinct symbols. E.g. if a search string contains a capital X, a lower-case x will not qualify as a match.Middle button On a 2-button mouse, pressing both buttons at once will have the same effect as pressing the middle button on a 3-button mouse.
Local copy: {DSK}<LISPFILES>REQT PUBLIC: {ROSE}<REIDY>SPEC>TEDIT.ÄHC What are the requirements for saving a file in a crash? In a normal LOGOUT and boot wit§ÍÃõ
t÷Ã@ ª¨@ÂÜÈè³ú_ý€ðÐÿWœR£K{sÁ«4WÖúCŠ/<2F>.Í® „J®,Œ.Íí „­ ¤®L$Ì<> „íí®Ld,l®läÍ „­ d.¬­ „­ŒŽ®L$n„,mŽ.ÍmŒd.¯Mì<4D>mΤÈåÌ$Í $ d®,Ln
dŽN.Íí dìÍ<C3AC>.,Ím$ d, .<2E>.Œ
‹$ „íí®L®e,l® ä.<2E><>
Äí<EFBFBD>$®.Œ-Í,$l$ ¤-Œn Í¥)<29>ŒŒ­ D¬ŽŽîÍ
äÉ
$ D¦E¬ŽŽîÍ
¤í­n®ŒN®ln.Íí Dì<44>
D¬ŽDA (self index) (* dgb%: " 2-DEC-82 22:14")
(CAR (FNTH (GetValue self 'indexedVars)
index))))
(PutNthValue
(LAMBDA (self varIndex newValue propName) (* dgb%: "23-NOV-82 00:11")
(* Store away a value for an indexed
variable)
(COND
((NUMBERP varIndex)
(StoreNthValue self varIndex newValue propName))
(T (PutValue self varIndex newValue propName)))))
(StoreNthValue
(LAMBDA (self index newValue propName) (* dgb%: " 2-DEC-82 18:35")
(* * Store value for nth indexed variable.
Used by objects having a VarLength mixin.)
(PROG ((descr (FetchNthDescr! self index)))
(RETURN (ObjSetValue self index newValue descr (ObjGetProp descr propName)
propName)))))
(StoreNthValueOnly
(LAMBDA (self index newValue propName) (* edited%: "22-Dec-84 18:29")
(* * Store away value for nth indexed variable.
Used by objects having a VarLength mixin.
Same as StoreNthValue except ignores activeValues.)
(PROG ((descr (CAR (FNTH (@ indexedVars)
index))))
(RETURN (COND
((NULL descr) (* Here if no value set yet.)
(PROG (varLst numVars)
(SETQ varLst (GetValueOnly self 'indexedVars))
(SETQ numVars (LENGTH varLst)) (* First allocate space for any vars
of lower index.)
(SETQ varLst (APPEND varLst (for i from 1
to (SUB1 (IDIFFERENCE index numVars))
collect (CONS NotSetValue))))
(* Then stick the newValue on the end.)
(SETQ varLst (NCONC1 varLst (COND
(propName (LIST NotSetValue propName
newValue))
(T (CONS newValue)))))
(PutValueOnly self 'indexedVars varLst)
(RETURN newValue)))
(T (* Usual case.)
(ObjPutProp descr propName newValue)))))))
)
(* ;;; "Class property stuff")
(DEFINEQ
(GetClass
(LAMBDA (classRec propName) (* dgb%: " 5-Dec-84 14:47")

BIN
internal/test/IO/Hardcopy/Hand/testfiles/05PAGE.TEDIT Normal file
View File

Binary file not shown.

BIN
internal/test/IO/Hardcopy/Hand/testfiles/06LINE.TEDIT Normal file
View File

Binary file not shown.

BIN
internal/test/IO/Hardcopy/Hand/testfiles/07NS.TEDIT Normal file
View File

Binary file not shown.

BIN
internal/test/IO/Hardcopy/Hand/testfiles/08IMOB.TEDIT Normal file
View File

Binary file not shown.

BIN
internal/test/IO/Hardcopy/Hand/testfiles/10MIXED.SKETCH Normal file
View File

Binary file not shown.

BIN
internal/test/IO/Hardcopy/Hand/testfiles/11STRAIGHT.SKETCH Normal file
View File

Binary file not shown.

BIN
internal/test/IO/Hardcopy/Hand/testfiles/12CURVE.SKETCH Normal file
View File

Binary file not shown.

BIN
internal/test/IO/Hardcopy/Hand/testfiles/13CHANGE.SKETCH Normal file
View File

Binary file not shown.

BIN
internal/test/IO/Hardcopy/Hand/testfiles/14TEXT.SKETCH Normal file
View File

Binary file not shown.

BIN
internal/test/IO/Hardcopy/Hand/testfiles/15REVERSE.SKETCH Normal file
View File

Binary file not shown.

142
internal/test/IO/Keyboard/Hand/ASKUSER.u Normal file
View File

@@ -0,0 +1,142 @@
;; Being tested: AskUser
;;
;; Source:
;;
;; Created By: Henry Cate III
;;
;; Creation Date: March 6, 1987
;;
;; Last Update:
;;
;; Filed As: {eris}<lispcore>test>Keyboard>AskUser.u
;;
;;
;;
(do-test "load the functions for the prompter for interactive tests"
(if (not (fboundp 'do-test-menu-setup))
(load "{ERINYES}<test>TOOLS>DO-TEST-MENU.dfasl"))
T)
(do-test-group "Testing AskUser"
:before (progn
(setq window-list (do-test-menu-Setup "AskUser")))
:after (progn
(do-test-menu-Cleanup window-list))
(do-test "Test TTYIN in the Interlisp exec"
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Test TTYIN in the Interlisp exec
If there is no free Interlisp exec, bring up a another one.
Put the cursor in it.
Indicate success when you get this far. "))
(command-string
"(SETQ TEMP-KEY-LIST (MAKEKEYLST
'(GREETINGS HELLO SALUTATIONS) NIL NIL T))
(SETQ TEMPX (ASKUSER NIL NIL \"Type a H \" TEMP-KEY-LIST))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Check basic ASKUSER workds
Type an \"H\" and then a carriage return.
Were you able to get this far? "))
(good-value (equal 'il:hello il:|TEMPX|)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "TTYIN, test default in the Interlisp Exec"
(let* ((user-result1 (do-test-menu-Message window-list 'high
" TTYIN, test default in the Interlisp Exec
Indicate success when the cursor is in the Interlisp Exec. "))
(command-string
"(SETQ TEMP-KEY-LIST (MAKEKEYLST
'(GREETINGS HELLO SALUTATIONS) NIL NIL T))
(SETQ TEMPX (ASKUSER 1 'G \"Just CR \" TEMP-KEY-LIST))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Check ASKUSER can default
Wait for ASKUSER to prompt with
\"Just CR ...GREETINGS\"
and then press the CR.
Were you able to get this far? "))
(good-value (equal 'il:greetings il:|TEMPX|)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "Test TTYIN in the XCL exec"
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Test TTYIN in the XCL exec
If there is no free XCL exec, bring up a another one.
Put the cursor in it.
Indicate success when you get this far. "))
(command-string
"(cl:in-package 'xcl-test)
(setq temp-key-list (il:makekeylst
'(GREETINGS HELLO SALUTATIONS) nil nil T))
(setq tempx (il:askuser nil nil \"Type a H \" temp-key-list))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Check ASKUSER works in an XCL exec
Type an \"H\" and then a carriage return.
Were you able to get this far? "))
(good-value (equal 'hello tempx)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "TTYIN, test default in the XCL exec"
(let* ((user-result1 (do-test-menu-Message window-list 'high
" TTYIN, test default in the XCL exec
Indicate success when the cursor is in the XCL Exec. "))
(command-string
"(setq temp-key-list (il:makekeylst
'(GREETINGS HELLO SALUTATIONS) nil nil T))
(setq tempx (il:askuser 100 'il:G \"Just CR \" temp-key-list))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Check ASKUSER can default in an XCL exec
Wait until the exec reads:
\"Just CR ...GREETINGS\"
Then press CR.
Were you able to get this far? "))
(good-value (equal 'greetings TEMPX)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "TTYIN, test reaing from a STREAM"
(let* ((user-result1 (do-test-menu-Message window-list 'high
" TTYIN, test reading from a STREAM
Indicate success when the cursor is in the XCL Exec. "))
(command-string
"(setq temp-key-list (il:makekeylst
'(GREETINGS HELLO SALUTATIONS) nil nil T))
(setq temp-pathname (make-pathname :host \"core\"
:directory \"cmltest\" :name (string (gensym))))
(setq temp-stream (cl:open temp-pathname :direction :output))
(write-line \"S\" temp-stream)
(write-line \" \" temp-stream)
(close temp-stream)
(setq temp-stream (open temp-pathname :direction :input))
(setq tempx (il:askuser nil nil \"Just CR \" temp-key-list T T nil temp-stream))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Check ASKUSER can read from STREAM
Inidcate success when the call to ASKUSER is made. "))
(toss-away2 (and (close temp-stream) (delete-file temp-pathname)))
(good-value (equal 'salutations tempx)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
) ; end of do-test-group
STOP

196
internal/test/IO/Keyboard/Hand/PromptForWord.u Normal file
View File

@@ -0,0 +1,196 @@
;; Being tested: PromptForWord
;;
;; Source:
;;
;; Created By: Henry Cate III
;;
;; Creation Date: March 10, 1987
;;
;; Last Update:
;;
;; Filed As: {eris}<lispcore>test>Keyboard>PromptForWord.u
;;
;;
;;
(do-test "load the functions for the prompter for interactive tests"
(if (not (fboundp 'do-test-menu-setup))
(load "{ERINYES}<test>TOOLS>DO-TEST-MENU.dfasl"))
T)
(do-test-group "Testing PromptForWord"
:before (progn
(setq window-list (do-test-menu-Setup "PromptForWord")))
:after (progn
(do-test-menu-Cleanup window-list))
(do-test "Check basic ReadNumber works"
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Get to the Interlisp exec
If there is no free Interlisp exec, bring up a another one.
Place the cursor in the Interlisp exec.
Indicate success when you get this far. "))
(command-string
"(SETQ TEMPX (PROMPTFORWORD \"Type hello\"))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Check basic ReadNumber works
Enter \"hello\" and a CR.
Was the prompt:
\"Type hello\"? "))
(good-value (equal "hello" il:|TEMPX|)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "Check can do candidate string"
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Get to the Interlisp exec
Indicate success when the cursor is in the Interlisp exec. "))
(command-string
"(SETQ TEMPX (PROMPTFORWORD \"Type good-bye\" 'good-bye))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Check can do candidate string
Just press the space-bar.
Does the line read:
\"Type good-bye good-bye\"? "))
(good-value (equal "good-bye" il:|TEMPX|)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "test returns nil when nothing is entered."
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Get to the Interlisp exec
Indicate success when the cursor is in the Interlisp exec. "))
(command-string
"(SETQ TEMPX (PROMPTFORWORD \"Just press the tab key\"))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" test returns nil when nothing is entered
Just press the tab key.
Were you able to get this far? "))
(good-value (equal NIL il:|TEMPX|)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "Test help."
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Get to the Interlisp exec
Indicate success when the cursor is in the Interlisp exec. "))
(command-string
"(SETQ TEMPX (PROMPTFORWORD \"First question mark, then CR\" NIL \"This is a help message\"))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Test help
Type in \"?\"
Then press CR.
Was the following three lines printed out?
First question mark, then CR
This is a help message
First question mark, then CR "))
(good-value (equal NIL il:|TEMPX|)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "Test DONTECHOTYPEIN.FLG."
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Get to the Interlisp exec
Indicate success when the cursor is in the Interlisp exec. "))
(command-string
"(SETQ TEMPX (PROMPTFORWORD \"Just CR\" \"password\" NIL NIL '*))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Test DONTECHOTYPEIN.FLG
Press CR.
Was the prompt:
\"Just CR ********\" "))
(good-value (equal "password" il:|TEMPX|)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "Test urgency.option, part 1."
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Get to the Interlisp exec
Indicate success when the cursor is in the Interlisp exec. "))
(command-string
"(SETQ TEMPX (PROMPTFORWORD \"Nothing\" \"smile\" NIL NIL NIL 1))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Test urgency.option, part 1
Wait, it should continue on it's own after a second or two..
Was the prompt:
\"Nothing smile\"
And did it go on on its own? "))
(good-value (equal "smile" il:|TEMPX|)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "Test urgency.option, part 2."
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Get to the Interlisp exec
Indicate success when the cursor is in the Interlisp exec. "))
(command-string
"(SETQ TEMPX (PROMPTFORWORD \"Wait, then CR\" \"smile\" NIL NIL NIL T))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Test urgency.option, part 2
Wait for a minute.
Then press the CR.
Did the exec window flash? "))
(good-value (equal "smile" il:|TEMPX|)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "Test terminating character list."
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Get to the Interlisp exec
Indicate success when the cursor is in the Interlisp exec. "))
(command-string
"(SETQ TEMPX (PROMPTFORWORD \"Type 12345\" NIL NIL NIL NIL NIL (CHARCODE (5 6 7))))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Test terminating character list
Type: \"12345\"
Did it return after the number \"5\"? "))
(good-value (equal "1234" il:|TEMPX|)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "Try in XCL."
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Get to a XCL exec
If needed bring up another XCL exec.
Indicate success when the cursor is in the XCL exec. "))
(command-string
"(cl:in-package 'xcl-test)
(SETQ TEMPX (il:PROMPTFORWORD \"Type 12345\" ))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Try in XCL
Type: \"12345\"
Then a CR
Were you able to get this far? "))
(good-value (equal "12345" TEMPX)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
) ; end of do-test-group
STOP

251
internal/test/IO/Keyboard/Hand/ReadNumber.u Normal file
View File

@@ -0,0 +1,251 @@
;; Being tested: ReadNumber
;;
;; Source:
;;
;; Created By: Henry Cate III
;;
;; Creation Date: March 10, 1987
;;
;; Last Update:
;;
;; Filed As: {eris}<lispcore>test>Keyboard>ReadNumber.u
;;
;;
;;
(do-test "load the functions for the prompter for interactive tests"
(if (not (fboundp 'do-test-menu-setup))
(load "{ERINYES}<test>TOOLS>DO-TEST-MENU.dfasl"))
T)
(do-test-group "Testing ReadNumber"
:before (progn
(setq window-list (do-test-menu-Setup "ReadNumber")))
:after (progn
(do-test-menu-Cleanup window-list))
(do-test "Check basic ReadNumber works"
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Get to the Interlisp exec
If there is no free Interlisp exec, bring up a another one.
Place the cursor in the Interlisp exec.
Indicate success when you get this far. "))
(command-string
"(SETQ TEMPX (RNUMBER '(SIMPLE TEST, TYPE 1234)))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Check basic ReadNumber works
Enter the number \"1234\" by clicking each item on the menu, then on \"ok\"
Does \"ReadNumber\" have the message:
\"Simple Test, Type 1234\"? "))
(good-value (equal 1234 il:|TEMPX|)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "Try rest of the numbers and minus sign"
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Make sure cursor in in Interlisp exec
Indicate success when the cursor is in the Interlisp exec "))
(command-string
"(SETQ TEMPX (RNUMBER '(Type the number -56789)))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Test a little more of ReadNumber
Enter the number \"-56789\" by clicking the numbers first, and then the minus sign, from the menu, then on \"ok\"
Were you able to get this far? "))
(good-value (equal -56789 il:|TEMPX|)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "Test clear"
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Make sure cursor in in Interlisp exec
Indicate success when the cursor is in the Interlisp exec "))
(command-string
"(SETQ TEMPX (RNUMBER '(Type the number 123, then clr, then 567)))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Test a little more of ReadNumber
Enter the number \"123\" by clicking each number first
then click on the clr item
then enter \"567\" by clicking on each number
then on \"ok\"
Were you able to get this far? "))
(good-value (equal 567 il:|TEMPX|)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "Test back space and position"
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Make sure cursor in in Interlisp exec
Indicate success when the cursor is in the Interlisp exec "))
(command-string
"(SETQ TEMPX (RNUMBER '(Type the number 482, bs twice, then 15) '(0 . 0)))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Test back space and position
Enter the number \"482\" by clicking each number first
then click on the bs item twice
then enter \"15\" by clicking on each number
then on \"ok\"
Did the menu appear in the bottom left hand corner? "))
(good-value (equal 415 il:|TEMPX|)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "Test abort"
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Make sure cursor in in Interlisp exec
Indicate success when the cursor is in the Interlisp exec "))
(command-string
"(SETQ TEMPX (RNUMBER '(Type number 123 then abort) NIL NIL NIL T))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Test abort
Enter the number \"123\" by clicking each number first
then on \"abort\"
Were you able to get this far? "))
(good-value (equal nil il:|TEMPX|)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "Test decimal"
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Make sure cursor in in Interlisp exec
Indicate success when the cursor is in the Interlisp exec "))
(command-string
"(SETQ TEMPX (RNUMBER '(Type number 123.456) NIL NIL NIL NIL T))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Test decimal
Enter the number \"123.456\" by clicking each number first
then on \"ok\"
Were you able to get this far? "))
(good-value (equal 123.456 il:|TEMPX|)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "Test decimal & abort"
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Make sure cursor in in Interlisp exec
Indicate success when the cursor is in the Interlisp exec "))
(command-string
"(SETQ TEMPX (RNUMBER '(Type number 90.87) NIL NIL NIL T T))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Test decimal and abort
Enter the number \"90.87\" by clicking each number first
then on \"ok\"
Were both the decimal point and the abort key in the menu? "))
(good-value (equal 90.87 il:|TEMPX|)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "Test message font"
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Make sure cursor in in Interlisp exec
Indicate success when the cursor is in the Interlisp exec "))
(command-string
"(SETQ TEMPX (RNUMBER '(Type number 123) NIL '(MODERN 18)))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Test message font
This may take a minute to find the right font
Enter the number \"123\" by clicking each number first
then on \"ok\"
Was the font for the message very big? "))
(good-value (equal 123 il:|TEMPX|)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "Test number font"
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Make sure cursor in in Interlisp exec
Indicate success when the cursor is in the Interlisp exec "))
(command-string
"(SETQ TEMPX (RNUMBER '(Type number 123) NIL NIL '(MODERN 18)))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Test number font
This may take a minute to find the right font
Enter the number \"123\" by clicking each number first
then on \"ok\"
Was the font for the numbers very big? "))
(good-value (equal 123 il:|TEMPX|)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "Test can call from XCL"
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Make sure cursor in an XCL exec
If needed bring up another XCL exec.
Indicate success when the cursor is in the XCL exec "))
(command-string
"(cl:in-package 'xcl-test)
(setq tempx (il:rnumber '(Type number 123)))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Test number font
This may take a minute to find the right font
Enter the number \"123\" by clicking each number first
then on \"ok\"
Was the font for the numbers very big? "))
(good-value (equal 123 TEMPX)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "Test create.numberpad.reader"
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Make sure cursor in an XCL exec
Indicate success when the cursor is in the XCL exec "))
(command-string
"(setq temp-numberpad (il:create.numberpad.reader '(Continous input)))
(setq tempx (il:numberpad.read temp-numberpad))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Test create.numberpad.reader
Enter the number \"123\" by clicking each number first
then on \"ok\"
Was the font for the numbers very big? "))
(good-value (equal 123 TEMPX)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "Test create.numberpad.reader"
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Make sure cursor in an XCL exec
Indicate success when the cursor is in the XCL exec "))
(command-string
"(setq tempx (il:numberpad.read temp-numberpad))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Test create.numberpad.reader
Enter the number \"456\" by clicking each number first
then on \"ok\"
Was the font for the numbers very big? "))
(good-value (equal 456 TEMPX)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
) ; end of do-test-group
STOP

275
internal/test/IO/Keyboard/Hand/TTYIN.u Normal file
View File

@@ -0,0 +1,275 @@
;; Being tested: TTYIN
;;
;; Source:
;;
;; Created By: Henry Cate III
;;
;; Creation Date: March 4, 1987
;;
;; Last Update:
;;
;; Filed As: {eris}<lispcore>test>Keyboard>TTYIN.u
;;
;;
;;
(do-test "load the functions for the prompter for interactive tests"
(if (not (fboundp 'do-test-menu-setup))
(load "{ERINYES}<test>TOOLS>DO-TEST-MENU.dfasl"))
T)
(do-test-group "Testing TTYIN"
:before (progn
(setq window-list (do-test-menu-Setup "TTYIN")))
:after (progn
(do-test-menu-Cleanup window-list))
(do-test "Test TTYIN in the Interlisp exec"
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Test TTYIN in the Interlisp exec
If there is no free Interlisp exec, bring up a another one.
Put the cursor in it.
Indicate success when you get this far. "))
(command-string "(SETQ TEMPX '(ABCDEFGHIJKLM NOPQRSTUVWXYZ 123 456.789 0 \"!@#$&*()\" \",./<>? ;'`:~\"))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Able to stuff things into a Interlisp exec
Was \"tempx\" set in the Interlisp exec? "))
(good-value (equal '(il:abcdefghijklm il:nopqrstuvwxyz 123 456.789 0 "!@#$&*()" ",./<>? ;'`:~") il:|TEMPX|)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "Editing, delete, add in, in Interlisp exec"
(let* ((user-result (do-test-menu-Message window-list 'high
" Editing, delete, add in, in Interlisp exec
Assumping just set TEMPX to:
(ABCDEFGHIJKLM NOPQRSTUVWXYZ 123 456.789 0 \"!@#$&*()\" \",./<>? ;'`:~\")
In the Interlisp exec type: \"fix\"
Delete the number \"123\" by clicking with the left button before it, and then the right button after it.
Now type in \" 321 \"
Type control-x.
Were you able to get this far? "))
(good-value (equal '(il:abcdefghijklm il:nopqrstuvwxyz 321 456.789 0 "!@#$&*()" ",./<>? ;'`:~") il:|TEMPX|)))
(and user-result (if (eq t user-result) good-value T))
))
(do-test "Editing, delete previous word, in Interlisp exec"
(let* ((user-result (do-test-menu-Message window-list 'high
" Editing, delete previous word, in Interlisp exec
Assumping just set TEMPX to:
(ABCDEFGHIJKLM NOPQRSTUVWXYZ 321 456.789 0 \"!@#$&*()\" \",./<>? ;'`:~\")
In the Interlisp exec type: \"fix\"
Place the caret right after the number \"0\".
Type control-w.
Type control-x.
Were you able to get this far? "))
(good-value (equal '(il:abcdefghijklm il:nopqrstuvwxyz 321 456.789 "!@#$&*()" ",./<>? ;'`:~") il:|TEMPX|)))
(and user-result (if (eq t user-result) good-value T))
))
(do-test "Test TTYIN refresh in Interlisp exec"
(do-test-menu-Message window-list 'high
" Test TTYIN refresh in Interlisp exec
Assumping just set TEMPX to:
(ABCDEFGHIJKLM NOPQRSTUVWXYZ 321 456.789 \"!@#$&*()\" \",./<>? ;'`:~\")
In the Interlisp exec type: \"fix\"
Watch carefully
Type control-r.
Type control-x.
Was the screen redisplayed? "))
;;; start of a new section of testings
(do-test "Test TTYIN in the XCL-TEST exec"
(let* ((user-result1 (do-test-menu-Message window-list 'high
" Test TTYIN in the XCL-TEST exec
If there is no free XCL-TEST exec, bring up a another one.
Put the cursor in it.
Indicate success when you get this far. "))
(command-string
"(cl:in-package 'xcl-test)
(SETQ TEMPX '(ABCDEFGHIJKLM NOPQRSTUVWXYZ 123 456.789 0 \"!@#$&*()\" \",./<>? ;'`:~\"))")
(toss-away (IL:BKSYSBUF command-string))
(user-result2 (do-test-menu-Message window-list 'high
" Able to stuff things into a Interlisp exec
Was \"tempx\" set in the Interlisp exec? "))
(good-value (equal '(abcdefghijklm nopqrstuvwxyz 123 456.789 0 "!@#$&*()" ",./<>? ;'`:~") tempx)))
(and user-result1 user-result2 (if (eq t user-result2) good-value T))
))
(do-test "Try editing a statement in the XCL-TEST exec"
(let* ((user-result (do-test-menu-Message window-list 'high
" Try editing a statement in the XCL-TEST exec
Assumping just set TEMPX to:
(ABCDEFGHIJKLM NOPQRSTUVWXYZ 123 456.789 0 \"!@#$&*()\" \",./<>? ;'`:~\")
In the XCL-TEST exec type: \"fix\"
Delete the number \"123\" by clicking with the left button before it, and then the right button after it.
Now type in \" 321 \"
Type control-x.
Were you able to get this far? "))
(good-value (equal '(abcdefghijklm nopqrstuvwxyz 321 456.789 0 "!@#$&*()" ",./<>? ;'`:~") tempx)))
(and user-result (if (eq t user-result) good-value T))
))
(do-test "Test shift select for TTYIN in XCL-TEST exec"
(let* ((user-result (do-test-menu-Message window-list 'high
" Test shift select for TTYIN in XCL-TEST exec
Assumping tempx set to:
(ABCDEFGHIJKLM NOPQRSTUVWXYZ 321 456.789 0 \"!@#$&*()\" \",./<>? ;'`:~\")
In the XCL-TEST exec type: \"fix\"
Place the caret after the number \"0\".
Hold down the shift button.
Select the following: \" 54 \"
Type control-x.
Were you able to get this far? "))
(good-value (equal '(abcdefghijklm nopqrstuvwxyz 321 456.789 0 54 "!@#$&*()" ",./<>? ;'`:~") tempx)))
(and user-result (if (eq t user-result) good-value T))
))
;;; test calling the function "TTYIN"
(do-test "Set up for a simple call to function TTYIN"
(let* ((user-result (do-test-menu-Message window-list 'high
" Set up for a simple call to function TTYIN
Place the cursor in an Interlisp Exec.
Shift select the following into the Interlisp Exec:
\"(SETQ TEMPX (TTYIN \"Please type the number 54. \"))\"
Type in the number \"54\".
Were you able to get this far?"))
(good-value (equal '(54) il:|TEMPX|)))
(and user-result (if (eq t user-result) good-value T))
))
(do-test "Set up for a simple call to function TTYIN"
(let* ((user-result (do-test-menu-Message window-list 'high
" Set up for a simple call to function TTYIN
Place the cursor in an XCL-test Exec.
Shift select the following into the XCL-test Exec:
\"(SETQ TEMPX (il:TTYIN \"Please type the atom \\\"hello\\\". \"))\"
Type in the number \"hello\".
Were you able to get this far?"))
(good-value (equal '(il:hello) TEMPX)))
(and user-result (if (eq t user-result) good-value T))
))
(do-test "Set up for a simple call to function TTYIN"
(let* ((user-result (do-test-menu-Message window-list 'high
" Set up for a simple call to function TTYIN
Place the cursor in an XCL-test Exec.
Shift select the following into the XCL-test Exec:
\"(SETQ TEMPX (il:TTYIN \"Trying for a string. \" nil nil '(IL:NORAISE IL:STRING)))\"
Type: \"Hello\" and a carriage return.
Were you able to get this far?"))
(good-value (equal "Hello" TEMPX)))
(and user-result (if (eq t user-result) good-value T))
))
;;; test calling the function "TTYINEDIT"
(do-test "Set up for a simple call to function TTYINEDIT"
(do-test-menu-Message window-list 'high
" Set up for a simple call to function TTYINEDIT
Place the cursor in an Interlisp Exec.
Shift select the following into the Interlisp Exec:
\"(SETQ TEMPX (TTYINEDIT '(54 67 89) NIL NIL \"Hello: \"))\"
Is a window created with:
\"Hello: 54 67 89\"? "))
(do-test "Modify value from a TTYINEDIT"
(let* ((user-result (do-test-menu-Message window-list 'high
" Modify value from a TTYINEDIT
Place the cursor after the numbers in the new TTYINEDIT window.
Shift-select in: \" 12 34\"
Then type: control-x.
Does the caret go back to the Interlisp window?" ))
(good-value (equal '(54 67 89 12 34) il:|TEMPX|)))
(and user-result (if (eq t user-result) good-value T))
))
(do-test "Set up for a simple call to function TTYINEDIT"
(do-test-menu-Message window-list 'high
" Set up for a simple call to function TTYINEDIT
Close the TTYINEdit window from the previous test.
Place the cursor in an XCL-test Exec.
Shift select the following into the XCL-test Exec:
\"(setq IL:TTYINAUTOCLOSEFLG T)
(setq tempx (il:TTYINEDIT '(54 67 89) (IL:CREATEW) NIL \"Hello: \"))\"
Does the system ask you to:
\"Specify region for window\"
and then fill the region with a window with the following in it:
\"Hello: 54 67 89\"? "))
(do-test "Modify value from a TTYINEDIT"
(let* ((user-result (do-test-menu-Message window-list 'high
" Modify value from a TTYINEDIT
Place the cursor after the numbers in the new TTYINEDIT window.
Position the mouse just before the number \"67\" and click the left button. Then position the mouse just after the number \"67\" and click the right button.
Type a space.
Then type: control-x.
Does the caret go back to the XCL-test exec
and does the TTYINEdit window get closed?" ))
(good-value (equal '(54 89) tempx)))
(and user-result (if (eq t user-result) good-value T))
))
;;; test ?=
(do-test "Testing question mark, equals sign"
(do-test-menu-Message window-list 'high
" Testing question mark, equals sign
Place the cursor in an XCL-test Exec.
Type/shift-select: \"(il:createw \",
a question mark, and a equals sign,
then type a carriage return.
Does the system respond with:
\"(il:createw REGION TITLE BORDERSIZE NOOPENFLG\"? "))
(do-test "Testing question mark, equals sign, part two"
(do-test-menu-Message window-list 'high
" Testing question mark, equals sign, part two
Type: \"nil 'Hello \",
a question mark, and a equals sign
then a carriage return
Does the system respond with:
\"(il:createw
REGION = nil
TITLE = (quote hello)
BORDERSIZE NOOPENFLG\"? "))
(do-test "Clean up on question mark, equals sign test"
(do-test-menu-Message window-list 'high
" Testing question mark, equals sign, part two test
Type: \")\"
Create any region. Close the window.
Were you ableto get this far?"))
) ; end of do-test-group
STOP

5
internal/test/IO/Keyboard/logs/askuser.log Normal file
View File

@@ -0,0 +1,5 @@
;;; Test results for sysout of 12-Feb-88 18:51:29
;;; Tests run on 2-Mar-88 15:48:10
;;; Running tests from ({ERIS}<TEST>I/O>Keyboard>Hand>askuser.U)
(END-OF-TESTS)

15
internal/test/IO/Keyboard/logs/keyboard.log Normal file
View File

@@ -0,0 +1,15 @@
;;; Test results for sysout of 12-Feb-88 18:51:29
;;; Tests run on 2-Mar-88 15:20:41
;;; Running tests from ({ERIS}<TEST>I/O>Keyboard>Hand>*.U)
Test "TTYIN, test default in the XCL exec" failed in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>ASKUSER.U;1"
Test "Test decimal & abort" failed in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>READNUMBER.U;1"
Test "Test number font" failed in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>READNUMBER.U;1"
Test "Test can call from XCL" failed in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>READNUMBER.U;1"
Test "Test create.numberpad.reader" failed in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>READNUMBER.U;1"
Test "Test create.numberpad.reader" failed in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>READNUMBER.U;1"
Test "Test shift select for TTYIN in XCL-TEST exec" failed in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>TTYIN.U;1"
(END-OF-TESTS)

13
internal/test/IO/Keyboard/logs/keyboard.log.~1~ Normal file
View File

@@ -0,0 +1,13 @@
;;; Test results for sysout of 12-Feb-88 18:51:29
;;; Tests run on 17-Feb-88 14:16:42
;;; Running tests from ({eris}<test>i/o>keyboard>hand>*.u;)
Test "load the functions for the prompter for interactive tests" failed in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>ASKUSER.U;1"
:BEFORE forms for test "Testing AskUser" in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>ASKUSER.U;1" failed.
Test "load the functions for the prompter for interactive tests" failed in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>PROMPTFORWORD.U;1"
:BEFORE forms for test "Testing PromptForWord" in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>PROMPTFORWORD.U;1" failed.
Test "load the functions for the prompter for interactive tests" failed in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>READNUMBER.U;1"
:BEFORE forms for test "Testing ReadNumber" in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>READNUMBER.U;1" failed.
Test "load the functions for the prompter for interactive tests" failed in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>TTYIN.U;1"
:BEFORE forms for test "Testing TTYIN" in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>TTYIN.U;1" failed.
(END-OF-TESTS)

13
internal/test/IO/Keyboard/logs/keyboard.log.~2~ Normal file
View File

@@ -0,0 +1,13 @@
;;; Test results for sysout of 12-Feb-88 18:51:29
;;; Tests run on 17-Feb-88 14:21:48
;;; Running tests from ({eris}<test>i/o>keyboard>hand>*.u;)
Test "load the functions for the prompter for interactive tests" failed in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>ASKUSER.U;1"
:BEFORE forms for test "Testing AskUser" in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>ASKUSER.U;1" failed.
Test "load the functions for the prompter for interactive tests" failed in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>PROMPTFORWORD.U;1"
:BEFORE forms for test "Testing PromptForWord" in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>PROMPTFORWORD.U;1" failed.
Test "load the functions for the prompter for interactive tests" failed in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>READNUMBER.U;1"
:BEFORE forms for test "Testing ReadNumber" in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>READNUMBER.U;1" failed.
Test "load the functions for the prompter for interactive tests" failed in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>TTYIN.U;1"
:BEFORE forms for test "Testing TTYIN" in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>TTYIN.U;1" failed.
(END-OF-TESTS)

15
internal/test/IO/Keyboard/logs/keyboard.log.~3~ Normal file
View File

@@ -0,0 +1,15 @@
;;; Test results for sysout of 12-Feb-88 18:51:29
;;; Tests run on 2-Mar-88 15:20:41
;;; Running tests from ({ERIS}<TEST>I/O>Keyboard>Hand>*.U)
Test "TTYIN, test default in the XCL exec" failed in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>ASKUSER.U;1"
Test "Test decimal & abort" failed in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>READNUMBER.U;1"
Test "Test number font" failed in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>READNUMBER.U;1"
Test "Test can call from XCL" failed in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>READNUMBER.U;1"
Test "Test create.numberpad.reader" failed in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>READNUMBER.U;1"
Test "Test create.numberpad.reader" failed in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>READNUMBER.U;1"
Test "Test shift select for TTYIN in XCL-TEST exec" failed in file "{ERIS}<TEST>I/O>KEYBOARD>HAND>TTYIN.U;1"
(END-OF-TESTS)