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

Extract test DB connection into a helper, use it for every namespace that hits the database

Browse source
This commit is contained in:
Michael S. Klishin 2011-12-18 23:24:23 +04:00
parent cd1bd23b3e
commit 3b3bb2287a
8 changed files with 33 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
test/monger/test/atomic_modifiers.clj
View file

@ -8,15 +8,14 @@
)
(:require [monger core util]
[monger.collection :as mgcol]
[monger.result :as mgres])
[monger.result :as mgres]
[monger.test.helper :as helper])
(:use [clojure.test]
[monger.operators]
[monger.test.fixtures]))
(use-fixtures :each purge-docs purge-things purge-scores)
(monger.core/set-default-write-concern! WriteConcern/SAFE)
;;
;; $inc

9
test/monger/test/collection.clj
View file

@ -9,19 +9,16 @@
[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])
(:use [clojure.test]
[monger.operators]
[monger.test.fixtures]))
(monger.core/connect!)
(monger.core/set-db! (monger.core/get-db "monger-test"))
(helper/connect!)
(use-fixtures :each purge-people purge-docs purge-things purge-libraries)
(monger.core/set-default-write-concern! WriteConcern/SAFE)
;;
;; insert

16
test/monger/test/helper.clj Normal file
View file

@ -0,0 +1,16 @@
(ns monger.test.helper
(:require [monger core util])
(:import [com.mongodb WriteConcern]))
(def connected (atom false))
(defn connected?
[]
@connected)
(defn connect!
[]
(when-not (connected?)
(do
(monger.core/connect!)
(monger.core/set-db! (monger.core/get-db "monger-test"))
(monger.core/set-default-write-concern! WriteConcern/SAFE))))

3
test/monger/test/js.clj
View file

@ -1,8 +1,9 @@
(ns monger.test.js
(:require [monger js]
[clojure.java.io :only [reader]])
[monger.test.helper :as helper])
(:use [clojure.test]))
(helper/connect!)
(deftest load-js-resource-using-path-on-the-classpath
(are [c path] (= c (count (monger.js/load-resource path)))

7
test/monger/test/query_operators.clj
View file

@ -9,7 +9,8 @@
[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])
(:use [clojure.test]
[monger.operators]
[monger.test.fixtures]))
@ -17,12 +18,8 @@
(monger.core/connect!)
(monger.core/set-db! (monger.core/get-db "monger-test"))
(use-fixtures :each purge-people purge-docs purge-things purge-libraries)
(monger.core/set-default-write-concern! WriteConcern/SAFE)
;;
;; $gt, $gte, $lt, lte
;;

6
test/monger/test/querying.clj
View file

@ -7,16 +7,16 @@
[java.util Date])
(:require [monger core util]
[monger.collection :as mgcol]
[monger.result :as mgres])
[monger.result :as mgres]
[monger.test.helper :as helper])
(:use [clojure.test]
[monger.test.fixtures]
[monger conversion query operators]))
(helper/connect!)
(use-fixtures :each purge-docs purge-things purge-locations)
(monger.core/set-default-write-concern! WriteConcern/SAFE)
;;
;; monger.collection/* finders ("low-level API")

9
test/monger/test/result.clj
View file

@ -1,13 +1,10 @@
(ns monger.test.result
(:import (com.mongodb BasicDBObject WriteResult WriteConcern) (java.util Date))
(:require [monger core collection conversion])
(:require [monger core collection conversion]
[monger.test.helper :as helper])
(:use [clojure.test]))
(monger.core/connect!)
(monger.core/set-db! (monger.core/get-db "monger-test"))
(helper/connect!)
;;
;; MongoCommandResult

3
test/monger/test/stress.clj
View file

@ -1,7 +1,8 @@
(ns monger.test.stress
(:import [com.mongodb Mongo DB DBCollection WriteResult DBObject WriteConcern DBCursor]
[java.util Date])
(:require [monger core])
(:require [monger core]
[monger.test.helper :as helper])
(:use [clojure.test]))