     (original->thumbnail ..local.. beach-map) => ..thumb..
     (background-delete-file ..local..) => true
     (create-stored-object ..thumb..) => ..object..)
-  
-  (generate-thumbnail ..system.. beach-map) => falsey
+
+  (generate-thumbnail ..system.. beach-map) => (throws ExceptionInfo)
   (provided
     (store ..system..) => ..store..
     (get-original ..store.. beach-map) => nil)

            [vignette.storage.local :refer [create-stored-object]]
            [vignette.storage.protocols :refer :all]
            [vignette.util.filesystem :refer :all]
            [vignette.util.thumbnail :refer :all]))

(def beach-map {:request-type :thumbnail
                :original "beach.jpg"


       ; generate new - fail
       (let [image-dne (assoc beach-map :original "doesnotexist.jpg")]
         (get-or-generate-thumbnail ..system.. image-dne) => (throws ExceptionInfo)
         (provided
           (store ..system..) => ..store..
           (get-thumbnail ..store.. image-dne) => false
