 
 
 (defn- gen-block-range
+  "Generator for a tuple containing a block id and a start and end offset, where
+  the offsets are guaranteed to follow `0 <= start <= end <= size`."
   [blocks]
   (gen/bind
     (gen/elements (vals blocks))

;; ## Store Tests

(defn check-store
  [constructor & {:keys [blocks max-size iterations eraser]
                  :or {blocks 20, max-size 1024, iterations 100}}]
  {:pre [(some? constructor)]}

    blocks.data.PersistentBytes))


;; ## Block Utilities

(defn random-block
  "Creates a new block with random content at most `max-size` bytes long."
  [max-size]
