Make sure field parameters are in the correct order

This commit is contained in:
Michael Klishin 2014-03-02 21:34:54 +04:00
parent 555ac53d22
commit f5d87d0aaa

View file

@ -6,13 +6,19 @@
[monger.test.helper :as helper] [monger.test.helper :as helper]
[clojure.test :refer [deftest is use-fixtures]] [clojure.test :refer [deftest is use-fixtures]]
[monger.test.fixtures :refer :all] [monger.test.fixtures :refer :all]
[monger.result :refer [ok?]])) [monger.result :refer [ok?]])
(:import com.mongodb.BasicDBObjectBuilder))
(helper/connect!) (helper/connect!)
(defn enable-search (defn enable-search
[f] [f]
(is (ok? (cmd/admin-command (array-map :textSearchEnabled true :setParameter "*")))) ;; {:textSearchEnabled true :setParameter 1}
(let [bldr (doto (BasicDBObjectBuilder.)
(.append "setParameter" 1)
(.append "textSearchEnabled" true))
cmd (.get bldr)]
(is (ok? (cmd/raw-admin-command cmd))))
(f)) (f))
(use-fixtures :each purge-docs) (use-fixtures :each purge-docs)