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

Query operator tests now pass

Browse source
This commit is contained in:
Michael Klishin 2014-05-11 13:30:12 -04:00
parent 431e4495af
commit 03e7bfa1c7
1 changed files with 91 additions and 91 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1,34 +1,34 @@
(ns monger.test.query-operators-test (ns monger.test.query-operators-test
(:import [com.mongodb WriteResult WriteConcern DBCursor DBObject MapReduceOutput MapReduceCommand MapReduceCommand$OutputType] (:require [monger.core :as mg]
org.bson.types.ObjectId [monger.collection :as mc]
java.util.Date)
(:require [monger core util]
[clojure stacktrace]
[monger.collection :as mgcol]
[monger.result :as mgres]
[monger.conversion :as mgcnv]
[monger.js :as js] [monger.js :as js]
[monger.test.helper :as helper]
[clojure.test :refer :all] [clojure.test :refer :all]
[monger.operators :refer :all] [monger.operators :refer :all]))
[monger.test.fixtures :refer :all]))
(monger.core/connect!) ;; (use-fixtures :each purge-people purge-docs purge-things purge-libraries)
(monger.core/set-db! (monger.core/get-db "monger-test"))
(use-fixtures :each purge-people purge-docs purge-things purge-libraries) (let [conn (mg/connect)
db (mg/get-db conn "monger-test")]
(defn purge-collections
[f]
(mc/remove db "people")
(mc/remove db "libraries")
(f)
(mc/remove db "people")
(mc/remove db "libraries"))
(use-fixtures :each purge-collections)
;; ;;
;; $gt, $gte, $lt, lte ;; $gt, $gte, $lt, lte
;; ;;
(deftest find-with-conditional-operators-comparison (deftest find-with-conditional-operators-comparison
(let [collection "libraries"] (let [collection "libraries"]
(mgcol/insert-batch collection [{:language "Clojure" :name "monger" :users 1} (mc/insert-batch db collection [{:language "Clojure" :name "monger" :users 1}
{:language "Clojure" :name "langohr" :users 5} {:language "Clojure" :name "langohr" :users 5}
{:language "Clojure" :name "incanter" :users 15} {:language "Clojure" :name "incanter" :users 15}
{:language "Scala" :name "akka" :users 150}]) {:language "Scala" :name "akka" :users 150}])
(are [a b] (= a (.count (mgcol/find collection b))) (are [a b] (= a (.count (mc/find db collection b)))
2 {:users {$gt 10}} 2 {:users {$gt 10}}
3 {:users {$gte 5}} 3 {:users {$gte 5}}
2 {:users {$lt 10}} 2 {:users {$lt 10}}
@ -41,11 +41,11 @@
(deftest find-with-and-or-operators (deftest find-with-and-or-operators
(let [collection "libraries"] (let [collection "libraries"]
(mgcol/insert-batch collection [{:language "Ruby" :name "mongoid" :users 1} (mc/insert-batch db collection [{:language "Ruby" :name "mongoid" :users 1}
{:language "Clojure" :name "langohr" :users 5} {:language "Clojure" :name "langohr" :users 5}
{:language "Clojure" :name "incanter" :users 15} {:language "Clojure" :name "incanter" :users 15}
{:language "Scala" :name "akka" :users 150}]) {:language "Scala" :name "akka" :users 150}])
(is (= 2 (.count (mgcol/find collection {$ne {:language "Clojure"}})))))) (is (= 2 (.count (mc/find db collection {$ne {:language "Clojure"}}))))))
;; ;;
@ -54,15 +54,15 @@
(deftest find-with-and-or-operators (deftest find-with-and-or-operators
(let [collection "libraries"] (let [collection "libraries"]
(mgcol/insert-batch collection [{:language "Ruby" :name "mongoid" :users 1} (mc/insert-batch db collection [{:language "Ruby" :name "mongoid" :users 1}
{:language "Clojure" :name "langohr" :users 5} {:language "Clojure" :name "langohr" :users 5}
{:language "Clojure" :name "incanter" :users 15} {:language "Clojure" :name "incanter" :users 15}
{:language "Scala" :name "akka" :users 150}]) {:language "Scala" :name "akka" :users 150}])
(is (= 1 (.count (mgcol/find collection {$and [{:language "Clojure"} (is (= 1 (.count (mc/find db collection {$and [{:language "Clojure"}
{:users {$gt 10}}]})))) {:users {$gt 10}}]}))))
(is (= 3 (.count (mgcol/find collection {$or [{:language "Clojure"} (is (= 3 (.count (mc/find db collection {$or [{:language "Clojure"}
{:users {$gt 10}} ]})))) {:users {$gt 10}} ]}))))
(is (= 1 (.count (mgcol/find collection {$nor [{:language "Clojure"} (is (= 1 (.count (mc/find db collection {$nor [{:language "Clojure"}
{:users {$gt 10}} ]})))))) {:users {$gt 10}} ]}))))))
;; ;;
@ -71,39 +71,39 @@
(deftest find-on-embedded-arrays (deftest find-on-embedded-arrays
(let [collection "libraries"] (let [collection "libraries"]
(mgcol/insert-batch collection [{:language "Clojure" :tags [ "functional" ]} (mc/insert-batch db collection [{:language "Clojure" :tags [ "functional" ]}
{:language "Scala" :tags [ "functional" "object-oriented" ]} {:language "Scala" :tags [ "functional" "object-oriented" ]}
{:language "Ruby" :tags [ "object-oriented" "dynamic" ]}]) {:language "Ruby" :tags [ "object-oriented" "dynamic" ]}])
(is (= "Scala" (:language (first (mgcol/find-maps collection {:tags {$all [ "functional" "object-oriented" ]}} ))))) (is (= "Scala" (:language (first (mc/find-maps db collection {:tags {$all [ "functional" "object-oriented" ]}} )))))
(is (= 3 (.count (mgcol/find-maps collection {:tags {$in [ "functional" "object-oriented" ]}} )))) (is (= 3 (.count (mc/find-maps db collection {:tags {$in [ "functional" "object-oriented" ]}} ))))
(is (= 2 (.count (mgcol/find-maps collection {:language {$in [ "Scala" "Ruby" ]}} )))) (is (= 2 (.count (mc/find-maps db collection {:language {$in [ "Scala" "Ruby" ]}} ))))
(is (= 1 (.count (mgcol/find-maps collection {:tags {$nin [ "dynamic" "object-oriented" ]}} )))) (is (= 1 (.count (mc/find-maps db collection {:tags {$nin [ "dynamic" "object-oriented" ]}} ))))
(is (= 3 (.count (mgcol/find-maps collection {:language {$nin [ "C#" ]}} )))))) (is (= 3 (.count (mc/find-maps db collection {:language {$nin [ "C#" ]}} ))))))
(deftest find-with-conditional-operators-on-embedded-documents (deftest find-with-conditional-operators-on-embedded-documents
(let [collection "people"] (let [collection "people"]
(mgcol/insert-batch collection [{:name "Bob" :comments [{:text "Nice!" :rating 1} (mc/insert-batch db collection [{:name "Bob" :comments [{:text "Nice!" :rating 1}
{:text "Love it" :rating 4} {:text "Love it" :rating 4}
{:text "What?":rating -5} ]} {:text "What?":rating -5} ]}
{:name "Alice" :comments [{:text "Yeah" :rating 2} {:name "Alice" :comments [{:text "Yeah" :rating 2}
{:text "Doh" :rating 1} {:text "Doh" :rating 1}
{:text "Agreed" :rating 3}]}]) {:text "Agreed" :rating 3}]}])
(are [a b] (= a (.count (mgcol/find collection b))) (are [a b] (= a (.count (mc/find db collection b)))
1 {:comments {$elemMatch {:text "Nice!" :rating {$gte 1}}}} 1 {:comments {$elemMatch {:text "Nice!" :rating {$gte 1}}}}
2 {"comments.rating" 1} 2 {"comments.rating" 1}
1 {"comments.rating" {$gt 3}}))) 1 {"comments.rating" {$gt 3}})))
(deftest find-with-regex-operator (deftest find-with-regex-operator
(let [collection "libraries"] (let [collection "libraries"]
(mgcol/insert-batch collection [{:language "Ruby" :name "Mongoid" :users 1} (mc/insert-batch db collection [{:language "Ruby" :name "Mongoid" :users 1}
{:language "Clojure" :name "Langohr" :users 5} {:language "Clojure" :name "Langohr" :users 5}
{:language "Clojure" :name "Incanter" :users 15} {:language "Clojure" :name "Incanter" :users 15}
{:language "Scala" :name "Akka" :users 150}]) {:language "Scala" :name "Akka" :users 150}])
(are [query results] (is (= results (.count (mgcol/find collection query)))) (are [query results] (is (= results (.count (mc/find db collection query))))
{:language {$regex "Clo.*"}} 2 {:language {$regex "Clo.*"}} 2
{:language {$regex "clo.*" $options "i"}} 2 {:language {$regex "clo.*" $options "i"}} 2
{:name {$regex "aK.*" $options "i"}} 1 {:name {$regex "aK.*" $options "i"}} 1
{:language {$regex ".*by"}} 1 {:language {$regex ".*by"}} 1
{:language {$regex ".*ala.*"}} 1))) {:language {$regex ".*ala.*"}} 1))))