mongo fix

src/metabase/driver/mongo/util.clj

@@ -46,11 +46,14 @@
                                         (:dbname (:details database)) (:details database) ; entire Database obj
                                         (:dbname database)            database            ; connection details map only
                                         :else                         (throw (Exception. (str "with-mongo-connection failed: bad connection details:" (:details database)))))
-         server-address   (mg/server-address host port)
-         credentials      (when user
-                            (mcred/create user dbname pass))
-         conn             (mg/connect server-address mongo-connection-options credentials)
-         mongo-connection (mg/get-db conn dbname)]
+        server-address   (mg/server-address host port)
+        credentials      (when user
+                           (mcred/create user dbname pass))
+        connect          (partial mg/connect server-address mongo-connection-options)
+        conn             (if credentials
+                           (connect credentials)
+                           (connect))
+        mongo-connection (mg/get-db conn dbname)]
     (log/debug (color/cyan "<< OPENED NEW MONGODB CONNECTION >>"))
     (try
       (binding [*mongo-connection* mongo-connection]

test/metabase/test_setup.clj

@@ -79,10 +79,10 @@
   {:expectations-options :before-run}
   []
   ;; We can shave about a second from unit test launch time by doing the various setup stages in on different threads
-  (let [setup-db           (future (time (do (log/info "Setting up test DB and running migrations...")
-                                             (db/setup-db :auto-migrate true)
-                                             (load-test-datasets)
-                                             (metabase.models.setting/set :site-name "Metabase Test"))))]
+  (let [setup-db (future (time (do (log/info "Setting up test DB and running migrations...")
+                                   (db/setup-db :auto-migrate true)
+                                   (load-test-datasets)
+                                   (metabase.models.setting/set :site-name "Metabase Test"))))]
     (core/start-jetty)
     @setup-db))