     (is (revisions-exist? serv3 (range 3 13)))
 
     (is (revisions-exist? serv4 (range 1 5)))
-    (is (revisions-exist? serv5 (range 1 4)))))
+    (is (revisions-exist? serv5 (range 1 4))))
+ (side/eval-form `(tk/clear-current-time!)))
 
 (deftest old-tombstones-are-cleaned-up
   (side/eval-form `(tk/set-time-override! (tk/now)))

    (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)


    (is (every? #(revisions-removed? % (range 1 3)) granules))
    (is (every? #(concept-revision-exists? % 3) [gran1 gran2 gran3 gran4]))
    (is (concept-revision-exists? gran5 12)))
 (side/eval-form `(tk/clear-current-time!)))

(deftest old-service-revisions-are-cleaned-up
  (side/eval-form `(tk/set-time-override! (tk/now)))
  (let [serv1 (util/create-and-save-service "REG_PROV" 1 13)
        serv2 (util/create-and-save-service "REG_PROV" 2 3)
        serv3 (util/create-and-save-service "SMAL_PROV1" 1 12 {:native-id "foo"})
