From 35be335a71b9ce64885669642c6ce53c7bc0f3a3 Mon Sep 17 00:00:00 2001 From: "Michael S. Klishin" Date: Mon, 5 Mar 2012 17:21:07 +0400 Subject: [PATCH] One more scenario --- test/monger/test/factory_dsl.clj | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/test/monger/test/factory_dsl.clj b/test/monger/test/factory_dsl.clj index 949a430..50bb6e6 100644 --- a/test/monger/test/factory_dsl.clj +++ b/test/monger/test/factory_dsl.clj @@ -1,7 +1,8 @@ (ns monger.test.factory-dsl (:use [clojure.test] [monger.testing] - [clj-time.core :only [days ago weeks]])) + [clj-time.core :only [days ago weeks]]) + (:import [org.bson.types ObjectId])) (defaults-for "domains" :ipv6-enabled false) @@ -16,4 +17,11 @@ (is (:_id doc)) (is (= t (:created-at 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))))) \ No newline at end of file