Start to clean out envos test directory
This commit is contained in:
Larry Masinter
101
internal/test/IO/Display/Auto/CURSORTEST.SOURCE
Normal file
101
internal/test/IO/Display/Auto/CURSORTEST.SOURCE
Normal 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
34
internal/test/IO/Display/Auto/CURSORTEST.TEST
Normal 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
BIN
internal/test/IO/Display/Hand/CURSOR.PROC
Normal file
Binary file not shown.
BIN
internal/test/IO/Display/Logs/CURSOR.LOG
Normal file
BIN
internal/test/IO/Display/Logs/CURSOR.LOG
Normal file
Binary file not shown.
Reference in New Issue
Block a user