From: drewc <drewc@tech.coop>
Date: Sat, 23 Feb 2008 01:19:12 +0000 (-0800)
Subject: forget the tests directory!
X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/commitdiff_plain/0eb2038be5daf9985d60ec2398d9e013fbe6fa81

forget the tests directory!

darcs-hash:20080223011912-39164-45e4425a4043470e85385c8d59b49bb0146eb407.gz
---

diff --git a/tests/bug/0.lisp b/tests/bug/0.lisp
new file mode 100644
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