src/display-test.lisp

   1 (in-package :lol-test)
   2
   3 (in-suite lisp-on-lines)
   4
   5 (deftest (test-define-display :compile-before-run t) ()
   6
   7   (define-description test-display ())
   8
   9   (define-display ((description test-display))
  10    t "BRILLANT!")
  11
  12   (is (equalp "BRILLANT!" (display-using-description
  13                            (find-description 'test-display)
  14                            nil :foo))))
  15
  16 (deftest test-symbol-display ()
  17   (is (stringp (display nil nil))))
  18
  19
  20