forked from DGNum/liminix
22 lines
549 B
Text
22 lines
549 B
Text
|
;; these are macros; this module should be imported
|
||
|
|
;; using import-macros
|
||
|
|
|
||
|
|
;; e.g. (import-macros { : expect= } :anoia.assert)
|
||
|
|
|
||
|
|
|
||
|
|
(fn expect [assertion]
|
||
|
|
(let [msg (.. "expectation failed: " (view assertion))]
|
||
|
|
`(when (not ,assertion)
|
||
|
|
(assert false ,msg))))
|
||
|
|
|
||
|
|
(fn expect= [actual expected]
|
||
|
|
`(let [view# (. (require :fennel) :view)
|
||
|
|
ve# (view# ,expected)
|
||
|
|
va# (view# ,actual)]
|
||
|
|
(when (not (= ve# va#))
|
||
|
|
(assert false
|
||
|
|
(.. "\nexpected " ve# "\ngot " va#)
|
||
|
|
))))
|
||
|
|
|
||
|
|
{ : expect : expect= }
|