diff options
| author | Andrey Orst <andreyorst@gmail.com> | 2020-11-02 21:40:43 +0300 |
|---|---|---|
| committer | Andrey Orst <andreyorst@gmail.com> | 2020-11-02 21:40:43 +0300 |
| commit | 9878bb3f75db689e44f0b11cef926c7a39bc6dd5 (patch) | |
| tree | 7445142da5f45839e0d868f7df131589dbab76f1 /test.fnl | |
| parent | c1047d5f4fc30a9917ccd62b34e529d6a5ce4bbf (diff) | |
feature(core): add math and comparison functions
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")))))) |