            "ABC" [coll2 coll5 coll21]
            "place" [coll6]
            "Laser" [coll5 coll7 coll9 coll14]
-           "ABC place Hurricane" [coll2 coll5 coll6 coll9 coll21]
+           "ABC space" [coll5]
            "BLAH" []
            "abc!" [coll21]
 

               (println "Expected:" (map :entry-title items))
               (println "Actual:" (map :name (:refs refs))))
             matches?)
           "Laser spoonA" "-entry-title" [coll9 coll7 coll5 coll14 coll11]
           "La?er spoonA" "score" [coll14 coll11 coll9 coll5 coll7]
           "Laser spo*A" "+score" [coll5 coll7 coll9 coll11 coll14]
           "L?s* s?o*A" "-score" [coll14 coll11 coll9 coll5 coll7]))))


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