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*)