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 | |