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

Switch test suite to monger.testing/defcleaner

Browse source
This commit is contained in:
Michael S. Klishin 2011-12-18 23:16:54 +04:00
parent 19a9beb046
commit cd1bd23b3e
5 changed files with 12 additions and 35 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -13,12 +13,7 @@
[monger.operators] [monger.operators]
[monger.test.fixtures])) [monger.test.fixtures]))
(defn purge-scores-collection (use-fixtures :each purge-docs purge-things purge-scores)
[f]
(purge-collection "scores" f))
(use-fixtures :each purge-docs-collection purge-things-collection purge-scores-collection)
(monger.core/set-default-write-concern! WriteConcern/SAFE) (monger.core/set-default-write-concern! WriteConcern/SAFE)

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

@ -19,7 +19,7 @@
(use-fixtures :each purge-people-collection purge-docs-collection purge-things-collection purge-libraries-collection) (use-fixtures :each purge-people purge-docs purge-things purge-libraries)
(monger.core/set-default-write-concern! WriteConcern/SAFE) (monger.core/set-default-write-concern! WriteConcern/SAFE)

30
test/monger/test/fixtures.clj
View file

@ -1,28 +1,14 @@
(ns monger.test.fixtures (ns monger.test.fixtures
(:require [monger.collection :as mgcol])) (:require [monger.collection :as mgcol])
(:use [monger.testing]))
;; ;;
;; fixture functions ;; fixture functions
;; ;;
(defn purge-collection (defcleaner people "people")
[collection-name, f] (defcleaner docs "docs")
(mgcol/remove collection-name) (defcleaner things "things")
(f) (defcleaner libraries "libraries")
(mgcol/remove collection-name)) (defcleaner scores "scores")
(defcleaner locations "locations")
(defn purge-people-collection
[f]
(purge-collection "people" f))
(defn purge-docs-collection
[f]
(purge-collection "docs" f))
(defn purge-things-collection
[f]
(purge-collection "things" f))
(defn purge-libraries-collection
[f]
(purge-collection "libraries" f))

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

@ -19,7 +19,7 @@
(use-fixtures :each purge-people-collection purge-docs-collection purge-things-collection purge-libraries-collection) (use-fixtures :each purge-people purge-docs purge-things purge-libraries)
(monger.core/set-default-write-concern! WriteConcern/SAFE) (monger.core/set-default-write-concern! WriteConcern/SAFE)

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

@ -13,11 +13,7 @@
[monger conversion query operators])) [monger conversion query operators]))
(defn purge-locations-collection (use-fixtures :each purge-docs purge-things purge-locations)
[f]
(purge-collection "locations" f))
(use-fixtures :each purge-docs-collection purge-things-collection purge-locations-collection)
(monger.core/set-default-write-concern! WriteConcern/SAFE) (monger.core/set-default-write-concern! WriteConcern/SAFE)