Cosmetics

src/monger/db.clj

@@ -33,11 +33,6 @@
 (defn get-collection-names
   "Returns a set containing the names of all collections in this database."
   ([]
-     (into #{} (.getCollectionNames ^DB monger.core/*mongodb-database*)))
+     (set (.getCollectionNames ^DB monger.core/*mongodb-database*)))
   ([^DB database]
-     (into #{} (.getCollectionNames ^DB database)))
-)
-
-
-
-
+     (set (.getCollectionNames ^DB database))))

test/monger/test/db.clj

@@ -9,34 +9,26 @@
 
 
 
-(deftest add-user  
+(deftest test-add-user
   (let [username "clojurewerkz/monger!"
         pwd      (.toCharArray "monger!")]
     (monger.db/add-user username pwd)
     (is (monger.core/authenticate "monger-test" username pwd))))
 
 
-(deftest drop-database     
+(deftest test-drop-database
   (let [collection "test"
         _          (mgcol/insert collection { :name "Clojure" })
         check      (mgcol/count collection)
-        _          (monger.db/drop-db)
-  ]
+        _          (monger.db/drop-db)]
     (is (= 1 check))
     (is (not (mgcol/exists? collection)))
-    (is (= 0 (mgcol/count collection)))
-  )
-)    
+    (is (= 0 (mgcol/count collection)))))
 
 
-(deftest get-collection-names    
+(deftest test-get-collection-names
   (mgcol/insert "test-1" { :name "Clojure" })
   (mgcol/insert "test-2" { :name "Clojure" })
   (let [collections (monger.db/get-collection-names)]
     (is (.contains collections "test-1"))
-    (is (.contains collections "test-2"))
-  ))    
-
-
-
-
+    (is (.contains collections "test-2"))))