[elephant-cvs] CVS elephant/tests

[ieslick]

Update of /project/elephant/cvsroot/elephant/tests
In directory clnet:/tmp/cvs-serv24359/tests

Modified Files:
	testindexing.lisp 
Log Message:
Fix bug in testindexing; more TODO tweaks

--- /project/elephant/cvsroot/elephant/tests/testindexing.lisp	2007/02/21 06:29:32	1.28
+++ /project/elephant/cvsroot/elephant/tests/testindexing.lisp	2007/02/25 09:37:01	1.29
@@ -201,7 +201,7 @@
 
       (let ((orig-len (length (get-instances-by-class 'idx-unbound-del)))
 	    (orig-obj (get-instance-by-value 'idx-unbound-del 'slot1 10)))
-	(slot-makunbound orig-obj 'name)
+	(slot-makunbound orig-obj 'slot1)
 	(let ((new-len (length (get-instances-by-class 'idx-unbound-del))) 
 	      (index-obj (get-instance-by-value 'idx-unbound-del 'slot1 10)))
 	  (values orig-len new-len index-obj))))