luciano/monger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update this test

Browse source
This commit is contained in:
Michael Klishin 2014-03-02 21:02:59 +04:00
parent 4b417ec15a
commit 413d4484b8
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
test/monger/test/full_text_search_test.clj
View file

@ -12,20 +12,18 @@
(defn enable-search (defn enable-search
[f] [f]
(is (ok? (cmd/admin-command {:setParameter "*" :textSearchEnabled true}))) (is (ok? (cmd/admin-command (array-map :textSearchEnabled true :setParameter "*"))))
(f)) (f))
(use-fixtures :each purge-docs) (use-fixtures :each purge-docs)
(use-fixtures :once enable-search) (use-fixtures :once enable-search)
(deftest ^{:edge-features true :search true} test-basic-full-text-search-query (deftest ^{:search true} test-basic-full-text-search-query
(let [coll "docs"] (let [coll "docs"]
(mc/ensure-index coll (array-map :subject "text" :content "text")) (mc/ensure-index coll (array-map :subject "text" :content "text"))
(mc/insert coll {:subject "hello there" :content "this should be searchable"}) (mc/insert coll {:subject "hello there" :content "this should be searchable"})
(mc/insert coll {:subject "untitled" :content "this is just noize"}) (mc/insert coll {:subject "untitled" :content "this is just noize"})
(let [res (ms/search coll "hello") (let [res (ms/search coll "hello")
xs (ms/results-from res)] xs (ms/results-from res)]
(is (ok? res))
(println res)
(is (= "hello there" (-> xs first :obj :subject))) (is (= "hello there" (-> xs first :obj :subject)))
(is (= 1.0 (-> xs first :score)))))) (is (= 1.0 (-> xs first :score))))))