forget the tests directory!

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

diff --git a/tests/bug/0.lisp b/tests/bug/0.lisp
new file mode 100644 (file)
index 0000000..fbea137
--- /dev/null
+++ b/tests/bug/0.lisp
@@ -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)))))
\ No newline at end of file