Permalink
Browse files

forget the tests directory!

darcs-hash:20080223011912-39164-45e4425a4043470e85385c8d59b49bb0146eb407.gz
  • Loading branch information...
1 parent e8d4fa4 commit 0eb2038be5daf9985d60ec2398d9e013fbe6fa81 @drewc committed Feb 23, 2008
Showing with 24 additions and 0 deletions.
  1. +24 −0 tests/bug/0.lisp
View
@@ -0,0 +1,24 @@
+(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)))))

0 comments on commit 0eb2038

Please sign in to comment.