           "block only contains id and size"))))
 
 
-(defn- test-restore-block
+(defn test-restore-block
   "Tests re-storing an existing block."
   [store id content]
   (let [status     (block/stat store id)

    (is (true? (block/delete! store (:id stored))))))


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

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