   "Creates a new block with random content at most `max-size` bytes long."
   [max-size]
   (block/read!
-    (bytes/random-bytes (inc (rand-int max-size)))
+    (random-bytes (inc (rand-int max-size)))
     (rand-nth (keys digest/functions))))
 
 


    :delete-batch!
      (let [contained-ids (keep (set args) (keys model))]
        (is (= (set contained-ids) result)))))


(defn- update-model

  "Suite of tests to verify that a given block store implementation conforms to
  the spec."
  (:require
    [alphabase.bytes :refer [random-bytes]]
    [alphabase.hex :as hex]
    [blocks.core :as block]
    [blocks.store.util :as util]
    [byte-streams :as bytes :refer [bytes=]]
    [clojure.java.io :as io]
    [clojure.test :refer :all]
    [clojure.test.check :as check]
