diff --git a/test/monger/test/ragtime_test.clj b/test/monger/test/ragtime_test.clj index d0e5ecf..6fdbbeb 100644 --- a/test/monger/test/ragtime_test.clj +++ b/test/monger/test/ragtime_test.clj @@ -15,25 +15,26 @@ (use-fixtures :each purge-migrations) -(deftest test-add-migration-id - (let [db (mg/get-db "monger-test") - coll "meta.migrations" - key "1"] - (mc/remove db coll {}) - (is (not (mc/any? db coll {:_id key}))) - (is (not (contains? (applied-migration-ids db) key))) - (add-migration-id db key) - (is (mc/any? db coll {:_id key})) - (is (contains? (applied-migration-ids db) key)))) +(when-not (get (System/getenv) "CI") + (deftest test-add-migration-id + (let [db (mg/get-db "monger-test") + coll "meta.migrations" + key "1"] + (mc/remove db coll {}) + (is (not (mc/any? db coll {:_id key}))) + (is (not (contains? (applied-migration-ids db) key))) + (add-migration-id db key) + (is (mc/any? db coll {:_id key})) + (is (contains? (applied-migration-ids db) key)))) -(deftest test-remove-migration-id - (let [db (mg/get-db "monger-test") - coll "meta.migrations" - key "1"] - (mc/remove db coll {}) - (add-migration-id db key) - (is (mc/any? db coll {:_id key})) - (is (contains? (applied-migration-ids db) key)) - (remove-migration-id db key) - (is (not (contains? (applied-migration-ids db) key))))) + (deftest test-remove-migration-id + (let [db (mg/get-db "monger-test") + coll "meta.migrations" + key "1"] + (mc/remove db coll {}) + (add-migration-id db key) + (is (mc/any? db coll {:_id key})) + (is (contains? (applied-migration-ids db) key)) + (remove-migration-id db key) + (is (not (contains? (applied-migration-ids db) key))))))