7bef6ef58c8a9045f4b7d798b2b3779ab4a8cf05
[clinton/lisp-on-lines.git] / src / display-test.lisp
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 *object*)))
17 (with-active-layers (test-display)
18 (is (equalp "BRILLANT!" (display-using-description
19 (find-description 'attribute-test-2)
20 nil *object*))))))
21