   (side/eval-form `(tk/clear-current-time!)))
 
 (deftest old-tag-revisions-are-cleaned-up
+  (side/eval-form `(tk/set-time-override! (tk/now)))
   (let [tag1 (util/create-and-save-tag 1 13)
         tag2 (util/create-and-save-tag 2 3)
         tags [tag1 tag2]]

    (is (revisions-removed? tag1 (range 1 4)))
    (is (revisions-exist? tag1 (range 4 13)))

    (is (all-revisions-exist? tag2))))

(deftest old-tag-association-revisions-are-cleaned-up
  (let [coll1 (util/create-and-save-collection "REG_PROV" 1 1)
        tag1 (util/create-and-save-tag 1 1)
        tag2 (util/create-and-save-tag 2 1)

(use-fixtures :each (join-fixtures
                      [(util/reset-database-fixture {:provider-id "REG_PROV" :small false}
                                                    {:provider-id "SMAL_PROV1" :small true}
                                                    {:provider-id "SMAL_PROV2" :small true})]))

(defn concept-revision-exists?
  "Returns true if the revision of the concept exists"
