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

One more scenario

Browse source
This commit is contained in:
Michael S. Klishin 2012-03-05 17:21:07 +04:00
parent 19a55b5a5b
commit 35be335a71
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
test/monger/test/factory_dsl.clj
View file

@ -1,7 +1,8 @@
(ns monger.test.factory-dsl (ns monger.test.factory-dsl
(:use [clojure.test] (:use [clojure.test]
[monger.testing] [monger.testing]
[clj-time.core :only [days ago weeks]])) [clj-time.core :only [days ago weeks]])
(:import [org.bson.types ObjectId]))
(defaults-for "domains" (defaults-for "domains"
:ipv6-enabled false) :ipv6-enabled false)
@ -16,4 +17,11 @@
(is (:_id doc)) (is (:_id doc))
(is (= t (:created-at doc))) (is (= t (:created-at doc)))
(is (= "clojure.org" (:name doc))) (is (= "clojure.org" (:name doc)))
(is (false? (:ipv6-enabled doc)))))
(deftest test-building-documents-from-a-factory-case-2
(let [oid (ObjectId.)
doc (build "domains" "clojure.org" :_id oid)]
(is (= oid (:_id doc)))
(is (= "clojure.org" (:name doc)))
(is (false? (:ipv6-enabled doc))))) (is (false? (:ipv6-enabled doc)))))