Fixed starts-with and index scanning.

src/cupboard/db/bdb_je.clj

@@ -773,8 +773,7 @@
                         <= :back
                         starts-with :forward
                         :forward))
-        ;; only two exact-matching comparison functions: = and starts-with
-        exact (or (= comparison-fn =) (= comparison-fn starts-with))
+        exact (= comparison-fn =)
         ;; Use this function to extract the value from the database entry which
         ;; the cursor points to which matters for this scan.
         res-compval-fn (if (db-cursor-primary? db-cursor)

src/test/cupboard/db/bdb_je.clj

@@ -292,7 +292,7 @@
                 (is (empty? (db-join-cursor-next j)))))))))))
 
 
-(deftest cursor-scans
+(deftest cursor-scans-1
   (with-db-sec [idx1 *db-env* *db* "idx1"
                 :allow-create true
                 :key-creator-fn :a
@@ -339,6 +339,20 @@
              [ [12 {:a 12}] ])))))
 
 
+(deftest cursor-scans-2
+  (with-db-sec [idx1 *db-env* *db* "idx1"
+                :allow-create true
+                :key-creator-fn :a
+                :sorted-duplicates true]
+    (db-put *db* 1 {:a "abc123"})
+    (db-put *db* 2 {:a "def456"})
+    (db-put *db* 3 {:a "def789"})
+    (db-put *db* 4 {:a "ghi789"})
+    (with-db-cursor [cur1 idx1]
+      (is (= (db-cursor-scan cur1 "def" :comparison-fn starts-with)
+             [ [2 {:a "def456"}] [3 {:a "def789"}] ])))))
+
+
 (deftest transactions
   (let [path (make-temp-dir)]
     (with-db-env [e path :allow-create true :transactional true]