35 lines
923 B
Plaintext
35 lines
923 B
Plaintext
(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
|
|
|
|
|