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

Test that every query operator is defined

Browse source
This commit is contained in:
Juha Jokimaki 2016-10-30 16:34:38 +02:00
parent d0fc0ed528
commit a2bc59dcfa
1 changed files with 19 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
test/monger/test/query_operators_test.clj
View file

@ -3,10 +3,28 @@
[monger.collection :as mc] [monger.collection :as mc]
[monger.js :as js] [monger.js :as js]
[clojure.test :refer :all] [clojure.test :refer :all]
[monger.operators :refer :all])) [clojure.set :refer [difference]]
[monger.operators :refer :all])
(:import [com.mongodb QueryOperators]))
;; (use-fixtures :each purge-people purge-docs purge-things purge-libraries) ;; (use-fixtures :each purge-people purge-docs purge-things purge-libraries)
(deftest every-query-operator-is-defined
(let [driver-query-operators (->> (.getDeclaredFields QueryOperators) (map #(.get % nil)) set)
monger-query-operators (->> (ns-publics 'monger.operators) (map (comp name first)) set)
; $within is deprecated and replaced by $geoWithin since v2.4.
; $uniqueDocs is deprecated since v2.6.
deprecated-query-operators #{"$within" "$uniqueDocs"}
; Query modifier operators that are deprecated in the mongo shell since v3.2
deprecated-meta-operators #{"$comment" "$explain" "$hint" "$maxScan"
"$maxTimeMS" "$max" "$min" "$orderby"
"$returnKey" "$showDiskLoc" "$snapshot" "$query"}
undefined-non-deprecated-operators (difference driver-query-operators
deprecated-query-operators
deprecated-meta-operators
monger-query-operators)]
(is (= #{} undefined-non-deprecated-operators))))
(let [conn (mg/connect) (let [conn (mg/connect)
db (mg/get-db conn "monger-test")] db (mg/get-db conn "monger-test")]
(defn purge-collections (defn purge-collections