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

monger.result tests now pass

Browse source
This commit is contained in:
Michael Klishin 2014-05-10 17:55:38 -04:00
parent a3954f3847
commit 353df3b841
1 changed files with 23 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

49
test/monger/test/result_test.clj
View file

@ -1,16 +1,11 @@
(ns monger.test.result-test (ns monger.test.result-test
(:import [com.mongodb BasicDBObject WriteResult WriteConcern] java.util.Date) (:import [com.mongodb BasicDBObject WriteResult WriteConcern] java.util.Date)
(:require [monger core collection conversion] (:require [monger.core :as mg]
[monger.test.helper :as helper] [monger.collection :as mc]
monger.result
monger.util
[clojure.test :refer :all])) [clojure.test :refer :all]))
(helper/connect!)
;;
;; MongoCommandResult
;;
(deftest test-ok? (deftest test-ok?
(let [result-that-is-not-ok-1 (doto (BasicDBObject.) (.put "ok" 0)) (let [result-that-is-not-ok-1 (doto (BasicDBObject.) (.put "ok" 0))
result-that-is-not-ok-2 (doto (BasicDBObject.) (.put "ok" "false")) result-that-is-not-ok-2 (doto (BasicDBObject.) (.put "ok" "false"))
@ -28,27 +23,29 @@
(let [result-that-has-no-error1 (doto (BasicDBObject.) (.put "ok" 0)) (let [result-that-has-no-error1 (doto (BasicDBObject.) (.put "ok" 0))
result-that-has-no-error2 (doto (BasicDBObject.) (.put "err" "")) result-that-has-no-error2 (doto (BasicDBObject.) (.put "err" ""))
result-that-has-error1 (doto (BasicDBObject.) (.put "err" (BasicDBObject.)))] result-that-has-error1 (doto (BasicDBObject.) (.put "err" (BasicDBObject.)))]
(is (not (monger.result/has-error? result-that-has-no-error1))) (is (not (monger.result/has-error? result-that-has-no-error1)))
(is (not (monger.result/has-error? result-that-has-no-error2))) (is (not (monger.result/has-error? result-that-has-no-error2)))
(is (monger.result/has-error? result-that-has-error1)))) (is (monger.result/has-error? result-that-has-error1))))
(deftest test-updated-existing?-with-db-object (deftest test-updated-existing?-with-db-object
(let [input1 (doto (BasicDBObject.) (.put "updatedExisting" true)) (let [input1 (doto (BasicDBObject.) (.put "updatedExisting" true))
input2 (doto (BasicDBObject.) (.put "updatedExisting" false)) input2 (doto (BasicDBObject.) (.put "updatedExisting" false))
input3 (BasicDBObject.)] input3 (BasicDBObject.)]
(is (monger.result/updated-existing? input1)) (is (monger.result/updated-existing? input1))
(is (not (monger.result/updated-existing? input2))) (is (not (monger.result/updated-existing? input2)))
(is (not (monger.result/updated-existing? input3))))) (is (not (monger.result/updated-existing? input3)))))
(deftest test-updated-existing?-with-write-result (let [conn (mg/connect)
(monger.collection/remove "libraries") db (mg/get-db conn "monger-test")]
(let [collection "libraries" (deftest test-updated-existing?-with-write-result
doc-id (monger.util/random-uuid) (mc/remove db "libraries")
date (Date.) (let [collection "libraries"
doc { :created-at date, :data-store "MongoDB", :language "Clojure", :_id doc-id } doc-id (monger.util/random-uuid)
modified-doc { :created-at date, :data-store "MongoDB", :language "Erlang", :_id doc-id }] date (Date.)
(is (not (monger.result/updated-existing? (monger.collection/update collection { :language "Clojure" } doc :upsert true)))) doc { :created-at date, :data-store "MongoDB", :language "Clojure", :_id doc-id }
(is (monger.result/updated-existing? (monger.collection/update collection { :language "Clojure" } doc :upsert true))) modified-doc { :created-at date, :data-store "MongoDB", :language "Erlang", :_id doc-id }]
(monger.result/updated-existing? (monger.collection/update collection { :language "Clojure" } modified-doc :multi false :upsert true)) (is (not (monger.result/updated-existing? (mc/update db collection { :language "Clojure" } doc {:upsert true}))))
(monger.collection/remove collection))) (is (monger.result/updated-existing? (mc/update db collection { :language "Clojure" } doc {:upsert true})))
(monger.result/updated-existing? (mc/update db collection { :language "Clojure" } modified-doc {:multi false :upsert true}))
(mc/remove db collection))))