Ian Eslick <[EMAIL PROTECTED]> writes:
> There are definitely holes in the test suite that need to be plugged and
> I'm sure that this will uncover bugs
Please add the following to the test suite.
--- elephant-dist/tests/mop-tests.lisp 2008-03-25 10:56:30.620265336 +0100
+++ elephant/tests/mop-tests.lisp 2008-03-25 10:49:16.113278024 +0100
@@ -253,5 +253,19 @@
(slot2 foo))))
0 2)
+(deftest slot-unbound
+ (progn
+ (defclass class-one ()
+ (slot1 slot2)
+ (:metaclass persistent-metaclass))
+ (defmethod slot-unbound (class (instance class-one)
+ (slot-name (eql 'slot2)))
+ t)
+ (let ((inst (make-instance 'class-one)))
+ (values
+ (signals-specific-condition (unbound-slot)
+ (slot-value inst 'slot1))
+ (is-not-null (eq t (slot-value inst 'slot2))))))
+ t t)
_______________________________________________
elephant-devel site list
elephant-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel
