Added regression test for catching checked exceptions.

Paul M Bauer · richhickey · commit 7654bba06c9f · 2012-02-29T15:20:53.000-05:00
Signed-off-by: Rich Hickey &lt;richhickey@gmail.com&gt;
diff --git a/src/script/run_tests.clj b/src/script/run_tests.clj
@@ -50,6 +50,7 @@ clojure.test-clojure.string
 clojure.test-clojure.test
 clojure.test-clojure.test-fixtures
 clojure.test-clojure.transients
+clojure.test-clojure.try-catch
 clojure.test-clojure.vars
 clojure.test-clojure.vectors
 ])
diff --git a/test/clojure/test_clojure/try_catch.clj b/test/clojure/test_clojure/try_catch.clj
@@ -0,0 +1,24 @@
+;   Copyright (c) Rich Hickey. All rights reserved.
+;   The use and distribution terms for this software are covered by the
+;   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+;   which can be found in the file epl-v10.html at the root of this distribution.
+;   By using this software in any fashion, you are agreeing to be bound by
+;   the terms of this license.
+;   You must not remove this notice, or any other, from this software.
+
+; Author: Paul M Bauer 
+
+(ns clojure.test-clojure.try-catch
+  (:use clojure.test))
+
+(defn- get-exception [expression]
+  (try (eval expression)
+    nil
+    (catch java.lang.Throwable t
+      t)))
+
+(deftest catch-receives-checked-exception
+  (are [expression expected-exception] (= expected-exception
+                                          (type (get-exception expression)))
+    "Eh, I'm pretty safe" nil
+    '(java.io.FileReader. "CAFEBABEx0/idonotexist") java.io.FileNotFoundException))
