-(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!")
+
+ #+nil(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