Quick test for Exception causes in wrap-stacktrace

full_stack_test.clj

(use 'ring.middleware.stacktrace)

(defn buggy [_]
  (throw (Exception. "splork")))

(defn roachy [req]
  (try
    (buggy req)
    (catch Exception e
      (throw (Exception. "splunch" e)))))

(defn lousy [req]
  (try
    (roachy req)
    (catch Exception e
      (throw (Exception. "kasplow" e)))))

(let [app (wrap-stacktrace lousy)
      resp (app {})]
  (spit "stacktrace.html" (:body resp)))