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



(defn check-store!
  "Interprets test results from `check-store!` for a `clojure.test` result."
  [& args]
  (let [info (apply check-store args)]
    (cond

    blocks.data.PersistentBytes))


;; ## Block Utilities

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