Added regression test for catching checked exceptions.

Signed-off-by: Rich Hickey <richhickey@gmail.com>

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

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