[clinton/lisp-on-lines.git] / 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
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