[elephant-devel] Status of Elephant Unstable Branch

[kmkaplan+elephant at ded.kim-minh.com]

Ian Eslick <eslick at media.mit.edu> 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)