[elephant-cvs] CVS elephant/tests

[ieslick]

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

Modified Files:
	testcollections.lisp 
Log Message:
Allow map-instances over string indices as well as numeric

--- /project/elephant/cvsroot/elephant/tests/testcollections.lisp	2007/02/20 19:12:59	1.17
+++ /project/elephant/cvsroot/elephant/tests/testcollections.lisp	2007/02/20 20:03:45	1.18
@@ -317,11 +317,13 @@
       (flet ((collector (key value pkey)
 	       (incf sum (slot1 value))))
 	(map-index #'collector index1 :start nil :end 10)
-	(map-index #'collector index1 :start 690 :end nil)
+	(map-index #'collector index1 :start 990 :end nil)
 	(map-index #'collector index1 :start 400 :end 410))
       sum)
-  267299)
-
+  (+ 55 ;; sum 1-10 inclusive
+     4455 ;; sum 690-700 inclusive
+     10945 ;; sum 990 to 1000 inclusive
+     ))
 
 (deftest rem-kv
     (with-transaction (:store-controller *store-controller*)