From 72f7c8e1a399f96e286c84b614843b1d32b4dc8d Mon Sep 17 00:00:00 2001 From: Richard Newman Date: Tue, 26 Jul 2016 10:50:55 -0700 Subject: [PATCH] Fix test-raise. --- test/datomish/test/util.cljc | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/test/datomish/test/util.cljc b/test/datomish/test/util.cljc index de49476d..4bf83d15 100644 --- a/test/datomish/test/util.cljc +++ b/test/datomish/test/util.cljc @@ -14,7 +14,8 @@ (let [caught (try (do - (util/raise "succeed" {}) + (util/raise "succeed" {:foo 1}) "fail") (catch :default e e))] - (is (= "succeed" (aget caught "data")))))) + (is (= "succeed" (aget caught "message"))) + (is (= {:foo 1} (aget caught "data"))))))