Commit | Line | Data |
---|---|---|
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 | ||
d1a7fc5a | 12 | #+nil(is (equalp "BRILLANT!" (display-using-description |
4358148e | 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 |