From 379fb73795428e498e3f40ecafdb2b2fb335a3b1 Mon Sep 17 00:00:00 2001 From: "Michael S. Klishin" Date: Mon, 16 Apr 2012 00:44:08 +0400 Subject: [PATCH] Guard one more test that relies on authentication/ordering --- test/monger/test/core_test.clj | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/test/monger/test/core_test.clj b/test/monger/test/core_test.clj index d574740..2701568 100644 --- a/test/monger/test/core_test.clj +++ b/test/monger/test/core_test.clj @@ -23,17 +23,18 @@ (let [connection (monger.core/connect { :host "127.0.0.1" })] (is (instance? com.mongodb.Mongo connection)))) -(deftest connect-to-mongo-via-uri-without-credentials - (let [connection (monger.core/connect-via-uri! "mongodb://127.0.0.1/monger-test4")] - (is (= (-> connection .getAddress ^InetAddress (.sameHost "127.0.0.1"))))) - ;; reconnect using regular host - (helper/connect!)) +(when-not (System/getenv "CI") + (deftest connect-to-mongo-via-uri-without-credentials + (let [connection (monger.core/connect-via-uri! "mongodb://127.0.0.1/monger-test4")] + (is (= (-> connection .getAddress ^InetAddress (.sameHost "127.0.0.1"))))) + ;; reconnect using regular host + (helper/connect!)) -(deftest connect-to-mongo-via-uri-with-valid-credentials - (let [connection (monger.core/connect-via-uri! "mongodb://clojurewerkz/monger!:monger!@127.0.0.1/monger-test4")] - (is (= (-> connection .getAddress ^InetAddress (.sameHost "127.0.0.1"))))) - ;; reconnect using regular host - (helper/connect!)) + (deftest connect-to-mongo-via-uri-with-valid-credentials + (let [connection (monger.core/connect-via-uri! "mongodb://clojurewerkz/monger!:monger!@127.0.0.1/monger-test4")] + (is (= (-> connection .getAddress ^InetAddress (.sameHost "127.0.0.1"))))) + ;; reconnect using regular host + (helper/connect!))) (if-let [uri (System/getenv "MONGOHQ_URL")] (deftest ^{:external true} connect-to-mongo-via-uri-with-valid-credentials