summaryrefslogtreecommitdiff
path: root/test.fnl
diff options
context:
space:
mode:
authorAndrey Orst <andreyorst@gmail.com>2020-11-02 21:40:43 +0300
committerAndrey Orst <andreyorst@gmail.com>2020-11-02 21:40:43 +0300
commit9878bb3f75db689e44f0b11cef926c7a39bc6dd5 (patch)
tree7445142da5f45839e0d868f7df131589dbab76f1 /test.fnl
parentc1047d5f4fc30a9917ccd62b34e529d6a5ce4bbf (diff)
feature(core): add math and comparison functions
Diffstat (limited to 'test.fnl')
-rw-r--r--test.fnl6
1 files changed, 3 insertions, 3 deletions
diff --git a/test.fnl b/test.fnl
index 0e797bd..e41a393 100644
--- a/test.fnl
+++ b/test.fnl
@@ -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"))))))