Skip to content

Instantly share code, notes, and snippets.

@youngnh

youngnh/full_stack_test.clj

Created April 7, 2011 14:28
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save youngnh/907860 to your computer and use it in GitHub Desktop.
Save youngnh/907860 to your computer and use it in GitHub Desktop.
Download ZIP
Quick test for Exception causes in wrap-stacktrace
Raw
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)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment