From ab3377a587c96c8df185d8000570fda08fa209a4 Mon Sep 17 00:00:00 2001 From: Andrey Orst Date: Thu, 22 Oct 2020 22:32:06 +0300 Subject: add more tests --- test.fnl | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 test.fnl (limited to 'test.fnl') diff --git a/test.fnl b/test.fnl new file mode 100644 index 0000000..cb26858 --- /dev/null +++ b/test.fnl @@ -0,0 +1,24 @@ +;; requires `eq?' from core.fnl to be available at runtime + +(fn assert-eq [expr1 expr2 msg] + `(let [left# ,expr1 + right# ,expr2 + view# (require :fennelview)] + (assert (eq? left# right#) (or ,msg (.. "equality assertion failed + Left: " (view# ,expr1) " + Right: " (view# ,expr2) "\n"))))) + +(fn assert-ne [expr1 expr2 msg] + `(let [left# ,expr1 + right# ,expr2 + view# (require :fennelview)] + (assert (not (eq? left# right#)) (or ,msg (.. "unequality assertion failed + Left: " (view# ,expr1) " + Right: " (view# ,expr2) "\n"))))) + +(fn assert* [expr msg] + `(assert ,expr (.. "assertion failed for " ,(or msg (tostring expr))))) + +{: assert-eq + : assert-ne + : assert*} -- cgit v1.2.3