X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/e8d4fa4537a1655714ad8bbbf9b7ba2d85ead959..b7657b86f85f575d5776dc6b626b1dc258d1fa47:/src/attribute-test.lisp

diff --git a/src/attribute-test.lisp b/src/attribute-test.lisp
index 0cff6eb..74caa00 100644
--- a/src/attribute-test.lisp
+++ b/src/attribute-test.lisp
@@ -50,10 +50,6 @@
 
 (deftest (test-attribute-with-different-class :compile-before-run t) ()
   (eval '(progn 
-;;;; We cannot ever redefine this class ic think... 
-;;; as attributes are also slot meta-objects.
-
-
 	  (define-layered-class
 		test-attribute-class (lol::standard-attribute)
 		((some-slot :initarg :some-slot 
@@ -70,6 +66,20 @@
 	    (find-class 'test-attribute-class)))
     (is (equalp "BRILLANT!" (some-slot a)))))
 
+(deftest (test-attribute-with-different-class-and-subclassed-description :compile-before-run t) ()
+  (test-attribute-with-different-class)
+  (eval '(progn 	  
+	  (define-description test-attribute-with-different-class-description-sub 
+	      (test-attribute-with-different-class-description)
+	    ())))
+
+  (let* ((d (find-description 'test-attribute-with-different-class-description-sub))
+
+	 (a (find-attribute d 'attribute-with-different-class)))
+    (is (eq (class-of a)
+	    (find-class 'test-attribute-class)))
+    (is (equalp "BRILLANT!" (some-slot a)))))
+