src/display-test.lisp

(in-package :lol-test)

(in-suite lisp-on-lines)

(deftest (test-define-display :compile-before-run t) ()

  (define-description test-display ())

  (define-display ((description test-display))
   t "BRILLANT!")

  (is (equalp "BRILLANT!" (display-using-description
			   (find-description 'test-display)
			   nil :foo))))

(deftest test-symbol-display ()
  (is (stringp (display nil nil))))
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