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.test.fixtures]))
(defn purge-scores-collection
[f]
(purge-collection "scores" f))
(use-fixtures :each purge-docs-collection purge-things-collection purge-scores-collection)
(use-fixtures :each purge-docs purge-things purge-scores)
(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)

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

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

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)

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

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