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

       (into (sorted-map))))


(defn- test-put-attributes
  "The put! method in a store should return a block with an updated content or
  reader, but keep the same id, extra attributes, and any non-stat metadata."
  [store]

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