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