diff options
Diffstat (limited to 'test.fnl')
| -rw-r--r-- | test.fnl | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1,5 +1,5 @@ (import-macros {: fn*} :macros.fn) -;; requires `eq?' from core.fnl to be available at runtime +;; requires `eq' from core.fnl to be available at runtime (fn* assert-eq ([expr1 expr2] @@ -8,7 +8,7 @@ `(let [left# ,expr1 right# ,expr2 view# (require :fennelview)] - (assert (eq? left# right#) (or ,msg (.. "equality assertion failed + (assert (eq left# right#) (or ,msg (.. "equality assertion failed Left: " (view# left#) " Right: " (view# right#) "\n")))))) @@ -19,7 +19,7 @@ `(let [left# ,expr1 right# ,expr2 view# (require :fennelview)] - (assert (not (eq? left# right#)) (or ,msg (.. "unequality assertion failed + (assert (not (eq left# right#)) (or ,msg (.. "unequality assertion failed Left: " (view# left#) " Right: " (view# right#) "\n")))))) |