[elephant-cvs] CVS elephant/tests

[rread]

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

Modified Files:
	testindexing.lisp 
Log Message:
Apparently a misplaced parenthesis...


--- /project/elephant/cvsroot/elephant/tests/testindexing.lisp	2006/02/25 20:53:57	1.13
+++ /project/elephant/cvsroot/elephant/tests/testindexing.lisp	2006/02/27 16:49:49	1.14
@@ -269,8 +269,7 @@
 	(disable-class-indexing 'idx-eight :errorp nil)
 	(setf (find-class 'idx-eight nil) nil))
 
-;;      (format t "sc: ~A  ct: ~A~%" *store-controller* *current-transaction*)
-
+      ;;      (format t "sc: ~A  ct: ~A~%" *store-controller* *current-transaction*)
       (defclass idx-eight ()
 	((slot1 :accessor slot1 :initarg :slot1 :index t)
 	 (slot2 :accessor slot2 :initarg :slot2)
@@ -303,11 +302,11 @@
 	      (not (slot-exists-p o1 'slot5))
 	      (signals-error (get-instances-by-value 'idx-eight 'slot4 4)))
 	 (eq (slot6 o1) 14)
-	 (eq (length (get-instances-by-value 'idx-eight 'slot6 14)) 2))
+	 (eq (length (get-instances-by-value 'idx-eight 'slot6 14)) 2)
 	 (and ;;(slot-exists-p o1 'slot7)
-	      (not (slot-boundp o1 'slot7)))
+	  (not (slot-boundp o1 'slot7)))
 	 (and ;;(slot-exists-p o2 'slot7)
-	      (not (slot-boundp o2 'slot7))))))
+	  (not (slot-boundp o2 'slot7))))))
   t t t t t t t t)
 
 ;; create 500 objects, write each object's slots