Eliminate recently introduced reflection warnings

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

View file

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

View file

@ -2,7 +2,8 @@
(:require [monger core db]
[monger.test.helper :as helper]
[monger.collection :as mgcol])
(:import (com.mongodb Mongo DB))
(:import [com.mongodb Mongo DB]
[java.util Set])
(:use [clojure.test]))
(helper/connect!)
@ -34,6 +35,6 @@
(deftest test-get-collection-names
(mgcol/insert "test-1" { :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-2"))))