28 lines
642 B
Fennel
28 lines
642 B
Fennel
(fn trace [x]
|
|
`(do
|
|
(print :trace ,(view x) (view ,x))
|
|
,x))
|
|
|
|
(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#)
|
|
))))
|
|
|
|
(fn describe [thing & body]
|
|
(when _G.RUNNING_TESTS
|
|
`(do (print "# " ,(view thing))
|
|
,(unpack body))))
|
|
|
|
{ : trace : expect : expect= : describe }
|
|
|
|
;; NO-TESTING
|