[clinton/lisp-on-lines.git] / tests / bug / 0.lisp

(in-package :lol-test)
(in-suite lisp-on-lines)

;; Bug 0:

;; Redefining a superclass causes subclasses to remain uninitialized, 
;; which would break DISPLAY-USING-DESCRIPTION

(deftest bug-0 ()
  
  (eval '(progn 
	  
	  (define-description bug-0-test-superclass ()
	    ((bug-0-attribute :label "bug" :value 0)))

	  (define-description bug-0-test-subclass (bug-0-test-superclass)
	    ((bug-0-attribute-2 :label "subclass" :value 2)))

	  (is (lol::display-using-description (find-description 'bug-0-test-subclass) nil nil))

	  (define-description bug-0-test-superclass ()
	    ((bug-0-attribute :label "bug" :value 0)))
	  ;;; Breaks because redefinition of superclass occurred
	  (is (lol::display-using-description (find-description 'bug-0-test-subclass) nil nil)))))
Commit	Line	Data
0eb2038b	1	(in-package :lol-test)
	2	(in-suite lisp-on-lines)
	3
	4	;; Bug 0:
	5
	6	;; Redefining a superclass causes subclasses to remain uninitialized,
	7	;; which would break DISPLAY-USING-DESCRIPTION
	8
	9	(deftest bug-0 ()
	10
	11	(eval '(progn
	12
	13	(define-description bug-0-test-superclass ()
	14	((bug-0-attribute :label "bug" :value 0)))
	15
	16	(define-description bug-0-test-subclass (bug-0-test-superclass)
	17	((bug-0-attribute-2 :label "subclass" :value 2)))
	18
	19	(is (lol::display-using-description (find-description 'bug-0-test-subclass) nil nil))
	20
	21	(define-description bug-0-test-superclass ()
	22	((bug-0-attribute :label "bug" :value 0)))
	23	;;; Breaks because redefinition of superclass occurred
	24	(is (lol::display-using-description (find-description 'bug-0-test-subclass) nil nil)))))