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

25
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"))
@ -41,14 +36,16 @@
(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)))))
(let [conn (mg/connect)
db (mg/get-db conn "monger-test")]
(deftest test-updated-existing?-with-write-result (deftest test-updated-existing?-with-write-result
(monger.collection/remove "libraries") (mc/remove db "libraries")
(let [collection "libraries" (let [collection "libraries"
doc-id (monger.util/random-uuid) doc-id (monger.util/random-uuid)
date (Date.) date (Date.)
doc { :created-at date, :data-store "MongoDB", :language "Clojure", :_id doc-id } doc { :created-at date, :data-store "MongoDB", :language "Clojure", :_id doc-id }
modified-doc { :created-at date, :data-store "MongoDB", :language "Erlang", :_id doc-id }] modified-doc { :created-at date, :data-store "MongoDB", :language "Erlang", :_id doc-id }]
(is (not (monger.result/updated-existing? (monger.collection/update collection { :language "Clojure" } doc :upsert true)))) (is (not (monger.result/updated-existing? (mc/update db collection { :language "Clojure" } doc {:upsert true}))))
(is (monger.result/updated-existing? (monger.collection/update collection { :language "Clojure" } doc :upsert true))) (is (monger.result/updated-existing? (mc/update db collection { :language "Clojure" } doc {:upsert true})))
(monger.result/updated-existing? (monger.collection/update collection { :language "Clojure" } modified-doc :multi false :upsert true)) (monger.result/updated-existing? (mc/update db collection { :language "Clojure" } modified-doc {:multi false :upsert true}))
(monger.collection/remove collection))) (mc/remove db collection))))