From 7474501d4fb07d59a83b6fb230659e156b9dee5a Mon Sep 17 00:00:00 2001 From: Mark McGranaghan Date: Sun, 6 Dec 2009 07:40:50 -0500 Subject: [PATCH] Avoid reflection in assert-throws macro. --- src/clj_unit/core_assertions.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/clj_unit/core_assertions.clj b/src/clj_unit/core_assertions.clj index 3d952f9..5b1bbad 100644 --- a/src/clj_unit/core_assertions.clj +++ b/src/clj_unit/core_assertions.clj @@ -91,7 +91,7 @@ ~form (failure "Expecting throw, got none") (catch ~klass e# - (let [e-message# (.getMessage e#)] + (let [e-message# (.getMessage #^Exception e#)] (assert-truth (or (not ~message-re) (re-match? ~message-re e-message#)) (format "Expected message matching \"%s\" got \"%s\"" ~message-re e-message#))))