Adding new implementation of LoL to repository.
[clinton/lisp-on-lines.git] / src / display-test.lisp
CommitLineData
e7c5f95a 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