        (into (sorted-map))))
 
 
-(defn test-block
+(defn- test-block
   "Determines whether the store contains the content for the given identifier."
   [store id content]
   (testing "block stats"

          (is (= (keys stored-content) (map :id stats))
              "enumerates all ids in sorted order")
          (is (every? #(= (:size %) (count (get stored-content (:id %)))) stats)
              "returns correct size for all blocks")))
      (doseq [[id content] stored-content]
        (test-block store id content))
      (let [[id content] (first (seq stored-content))]

           (:stored-at new-status)))))


(defn- test-list-stats
  "Tests the functionality of list's marker option."
  [store ids n]
  (let [prefix (-> (block/list store :limit 1) first :id multihash/hex (subs 0 4))]
    (dotimes [i n]
      (let [after (str prefix (random-hex 10))
            limit (inc (rand-int 100))
            stats (block/list store :after after :limit limit)
            expected (->> ids
                          (filter #(pos? (compare (multihash/hex %) after)))
                          (sort)
                          (take limit))]
        (is (= expected (map :id stats))
            "list should return the expected ids in sorted order")))))


(defn test-block-store
  "Tests a block store implementation."
  [label store & {:keys [blocks max-size], :or {blocks 10, max-size 1024}}]
