From 9878bb3f75db689e44f0b11cef926c7a39bc6dd5 Mon Sep 17 00:00:00 2001 From: Andrey Orst Date: Mon, 2 Nov 2020 21:40:43 +0300 Subject: feature(core): add math and comparison functions --- test.fnl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'test.fnl') 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")))))) -- cgit v1.2.3