src/display-test.lisp

(in-package :lol-test)

(in-suite lisp-on-lines)

(deftest test-define-display ()
  (test-attribute-property-inheriting)

  (deflayer test-display)

  (define-display
    :in-layer test-display ((description attribute-test-2))
    (format *display* "BRILLANT!"))

  (let ((before (display-using-description
		 (find-description 'attribute-test-2)
		 nil :foo)))
    (with-active-layers (test-display)
      (is (equalp "BRILLANT!" (display-using-description
			       (find-description 'attribute-test-2)
			       nil :foo))))))
Commit	Line	Data
	1	(in-package :lol-test)
	2
	3	(in-suite lisp-on-lines)
	4
	5	(deftest test-define-display ()
	6	(test-attribute-property-inheriting)
	7
	8	(deflayer test-display)
	9
	10	(define-display
	11	:in-layer test-display ((description attribute-test-2))
	12	(format display "BRILLANT!"))
	13
	14	(let ((before (display-using-description
	15	(find-description 'attribute-test-2)
	16	nil :foo)))
	17	(with-active-layers (test-display)
	18	(is (equalp "BRILLANT!" (display-using-description
	19	(find-description 'attribute-test-2)
	20	nil :foo))))))
	21