From 0876652199950db0f2486c4e0c34f128252f3f96 Mon Sep 17 00:00:00 2001
From: Nat Quayle Nelson <natquaylenelson@gmail.com>
Date: Sun, 19 Feb 2023 07:11:42 -0700
Subject: [PATCH] move assertEquals to language core

---
 src/kiss/Macros.hx                | 6 ++++++
 src/test/cases/BasicTestCase.kiss | 3 ++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/kiss/Macros.hx b/src/kiss/Macros.hx
index 5a1d6c3..fb18389 100644
--- a/src/kiss/Macros.hx
+++ b/src/kiss/Macros.hx
@@ -386,6 +386,12 @@ class Macros {
             }
         };
 
+        k.doc("assertEquals", 2, null, "(assertEquals <expected> <actual> <?more actual...>)");
+        macros["assertEquals"] = (wholeExp:ReaderExp, exps:Array<ReaderExp>, k:KissState) -> {
+            var b = wholeExp.expBuilder();
+            b.callSymbol("assert", [b.callSymbol("=", exps)]);
+        }
+
         function stringsThatMatch(exp:ReaderExp, formName:String) {
             return switch (exp.def) {
                 case StrExp(s):
diff --git a/src/test/cases/BasicTestCase.kiss b/src/test/cases/BasicTestCase.kiss
index 08c1aa1..2cc24b4 100644
--- a/src/test/cases/BasicTestCase.kiss
+++ b/src/test/cases/BasicTestCase.kiss
@@ -341,7 +341,8 @@
 From:[(assert false (+ \"false \" \"should \" \"have \" \"been \" \"true\"))]" message)))
     
     (assert true)
-    (assert ![]))
+    (assert ![])
+    (assertEquals 6 6 6))
 
 (function _testApply []
     (Assert.equals 6 (apply + [1 2 3])))