Moved description details out of display.
[clinton/lisp-on-lines.git] / src / display-test.lisp
CommitLineData
e7c5f95a 1(in-package :lol-test)
2
3(in-suite lisp-on-lines)
4
4358148e 5(deftest (test-define-display :compile-before-run t) ()
6
7 (define-description test-display ())
e7c5f95a 8
4358148e 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))))
e7c5f95a 18
e7c5f95a 19
e7c5f95a 20