Properties are special now!
[clinton/lisp-on-lines.git] / 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