greg/mentat
1
0
Fork 0
Code Issues 294 Pull requests Projects Releases 9 Packages Wiki Activity

Fix test-raise.

Browse source
This commit is contained in:
Richard Newman 2016-07-26 10:50:55 -07:00
parent a5556637e8
commit 72f7c8e1a3
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
test/datomish/test/util.cljc
View file

@ -14,7 +14,8 @@
(let [caught (let [caught
(try (try
(do (do
(util/raise "succeed" {}) (util/raise "succeed" {:foo 1})
"fail") "fail")
(catch :default e e))] (catch :default e e))]
(is (= "succeed" (aget caught "data")))))) (is (= "succeed" (aget caught "message")))
(is (= {:foo 1} (aget caught "data"))))))