                (println "Expected:" (map :entry-title items))
                (println "Actual:" (map :name (:refs refs))))
              matches?)
-           "Laser spoonA" [coll14 coll11 coll9 coll5 coll7]
-           "La?er spoonA" [coll14 coll11 coll9 coll5 coll7]
-           "L*er spo*A" [coll14 coll11 coll9 coll5 coll7]
-           "L?s* s?o*A" [coll14 coll11 coll9 coll5 coll7]))
+           "Laser spoonA" [coll14 coll9]
+           "La?er spoonA" [coll14 coll9]
+           "L*er spo*A" [coll14 coll9]
+           "L?s* s?o*A" [coll14 coll9]))
     (testing "sorted search by keywords with sort keys."
       (are [keyword-str sort-key items]
            (let [refs (search/find-refs :collection {:keyword keyword-str :sort-key sort-key})

           "A*C" [coll2 coll5 coll21]
           "XY*" [coll2 coll13]
           "*aser" [coll5 coll7 coll9 coll14]
           "ABC p*ce Hurricane" [coll2 coll5 coll6 coll9 coll21]))
    (testing "search by keywords using wildcard ?."
      (are [keyword-str items]
           (let [refs (search/find-refs :collection {:keyword keyword-str})

               (println "Expected:" (map :entry-title items))
               (println "Actual:" (map :name (:refs refs))))
             matches?)
           "Laser" "-entry-title" [coll9 coll7 coll5 coll14]
           "Laser" "score" [coll14 coll5 coll7 coll9]
           "Laser" "+score" [coll5 coll7 coll9 coll14]
           "Laser" "-score" [coll14 coll5 coll7 coll9]))))

