Move initialization of attribute object

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

diff --git a/src/display-test.lisp b/src/display-test.lisp
dissimilarity index 90%
index 91068bd..6b3f9c8 100644 (file)
--- a/src/display-test.lisp
+++ b/src/display-test.lisp
@@ -1,21 +1,20 @@
-(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))))))
-                 
\ No newline at end of file
+(in-package :lol-test)
+
+(in-suite lisp-on-lines)
+
+(deftest (test-define-display :compile-before-run t) ()
+ 
+  (define-description test-display ())
+
+  (define-display ((description test-display))
+   t "BRILLANT!")
+  
+  (is (equalp "BRILLANT!" (display-using-description 
+                          (find-description 'test-display) 
+                          nil :foo))))
+
+(deftest test-symbol-display ()
+  (is (stringp (display nil nil))))
+
+
+                 
\ No newline at end of file