From 402c0a86e0cb0fc229ecec7ecb291454a90c543d Mon Sep 17 00:00:00 2001
From: Patrick Pelissier <patrick.pelissier@gmail.com>
Date: Wed, 13 Sep 2017 23:50:38 +0200
Subject: [PATCH] Add test for REDUCE2 & SEQ

---
 tests/test-mcore.c | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/tests/test-mcore.c b/tests/test-mcore.c
index dec341e1..4ab9d82e 100644
--- a/tests/test-mcore.c
+++ b/tests/test-mcore.c
@@ -260,6 +260,14 @@ static void test_cast(void)
   assert (*p2 == 1);
 }
 
+static void test_reduce(void)
+{
+#define id(x,a) a
+#define add(a,b) a + b
+  assert ( M_REDUCE2(id, add, d, M_SEQ(1, 5, M_ID)) == 5 * 6 /2);
+  assert ( M_REDUCE2(id, add, d, M_SEQ(1, 10, M_ID)) == 10 * 11 /2);
+}
+
 int main(void)
 {
   test_cat();
@@ -276,5 +284,6 @@ int main(void)
   test_test();
   test_oplist();
   test_cast();
+  test_reduce();
   exit(0);
 }