Commit | Line | Data |
---|---|---|
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 |