monger.command tests now pass

test/monger/test/command_test.clj

@@ -1,36 +1,34 @@
 (ns monger.test.command-test
   (:require [monger.core        :as mg]
             [monger.command     :as mcom]
-            [monger.test.helper :as helper]
             [monger.collection  :as mc]
             [clojure.test :refer :all]
             [monger.result :refer [ok?]]
             [monger.conversion :refer [from-db-object]]))
 
-(helper/connect!)
-
-
+(let [conn (mg/connect)
+      db   (mg/get-db conn "monger-test")]
   (deftest ^{:command true} test-reindex-collection
-  (let [_      (mc/insert "test" {:name "Clojure"})
-        result (mcom/reindex-collection "test")]
+    (let [_      (mc/insert db "test" {:name "Clojure"})
+          result (mcom/reindex-collection db "test")]
       (is (ok? result))
       (is (get result "indexes"))))
 
   (deftest ^{:command true} test-server-status
-  (let [status (mcom/server-status)]
+    (let [status (mcom/server-status db)]
       (is (ok? status))
       (is (not-empty status))
       (is (get status "serverUsed"))))
 
   (deftest ^{:command true} test-top
-  (let [result (mcom/top)]
+    (let [result (mcom/top conn)]
       (is (ok? result))
       (is (not-empty result))
       (is (get result "serverUsed"))))
 
   (deftest ^{:command true} test-running-is-master-as-an-arbitrary-command
-  (let [raw    (mg/command {:isMaster 1})
+    (let [raw    (mg/command db {:isMaster 1})
           result (from-db-object raw true)]
       (is (ok? result))
       (is (ok? raw))
-    (is (:ismaster result))))
+      (is (:ismaster result)))))