     [alphabase.bytes :refer [random-bytes]]
     [alphabase.hex :as hex]
     [blocks.core :as block]
+    [blocks.store :as store]
     [byte-streams :as bytes :refer [bytes=]]
     [clojure.test :refer :all]
     [clojure.test.check :as check]

        [model ids]
        (apply dissoc model ids))}

     :open-block
     {:args choose-id
      :apply block/get

              (throw (IllegalStateException.
                       (str "Cannot run integration test on " (pr-str store)
                            " as it already contains blocks!"))))
            (is (zero? (:count (block/scan store))))
            (let [result (valid-op-seq? store ops)]
              (if eraser
                (eraser store)
