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

Eliminate recently introduced reflection warnings

Browse source
This commit is contained in:
Michael S. Klishin 2012-02-19 05:32:50 +04:00
parent 4a0fb343ec
commit 96d5b4a66f
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/monger/collection.clj
View file

@ -26,7 +26,7 @@
(zipmap fields (repeat 1))) (zipmap fields (repeat 1)))
(definline check-not-nil! (definline check-not-nil!
[ref message] [ref ^String message]
`(when (nil? ~ref) `(when (nil? ~ref)
(throw (IllegalArgumentException. ~message)))) (throw (IllegalArgumentException. ~message))))

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

@ -2,7 +2,8 @@
(:require [monger core db] (:require [monger core db]
[monger.test.helper :as helper] [monger.test.helper :as helper]
[monger.collection :as mgcol]) [monger.collection :as mgcol])
(:import (com.mongodb Mongo DB)) (:import [com.mongodb Mongo DB]
[java.util Set])
(:use [clojure.test])) (:use [clojure.test]))
(helper/connect!) (helper/connect!)
@ -34,6 +35,6 @@
(deftest test-get-collection-names (deftest test-get-collection-names
(mgcol/insert "test-1" { :name "Clojure" }) (mgcol/insert "test-1" { :name "Clojure" })
(mgcol/insert "test-2" { :name "Clojure" }) (mgcol/insert "test-2" { :name "Clojure" })
(let [collections (monger.db/get-collection-names)] (let [^Set collections (monger.db/get-collection-names)]
(is (.contains collections "test-1")) (is (.contains collections "test-1"))
(is (.contains collections "test-2")))) (is (.contains collections "test-2"))))