Fix test-raise.

2016-07-26 10:50:55 -07:00 · 2016-07-26 10:50:55 -07:00 · 72f7c8e1a3
parent a5556637e8
commit 72f7c8e1a3
1 changed files with 3 additions and 2 deletions
--- 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"))))))