Adding new implementation of LoL to repository.

[clinton/lisp-on-lines.git] / src / display-test.lisp

diff --git a/src/display-test.lisp b/src/display-test.lisp
new file mode 100644 (file)
index 0000000..7bef6ef
--- /dev/null
+++ b/src/display-test.lisp
@@ -0,0 +1,21 @@
+(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 *object*)))
+    (with-active-layers (test-display)
+      (is (equalp "BRILLANT!" (display-using-description 
+                              (find-description 'attribute-test-2) 
+                              nil *object*))))))
+                 
\ No newline at end of file