Make sure field parameters are in the correct order
This commit is contained in:
parent
555ac53d22
commit
f5d87d0aaa
1 changed files with 8 additions and 2 deletions
|
|
@ -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)
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue