X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/e7c5f95a989882cabc1f4b6ea4598565ea317952..6de8d30004efc9337b8c40d2ff2d0a76651d23eb:/src/display-test.lisp

diff --git a/src/display-test.lisp b/src/display-test.lisp
dissimilarity index 90%
index 7bef6ef..6b3f9c8 100644
--- 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 *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
+(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