From 9080f5d52f8ddfb5cadb2db0e4e20ffdae1be111 Mon Sep 17 00:00:00 2001
From: Patrick Pelissier <patrick.pelissier@gmail.com>
Date: Fri, 12 Jun 2020 20:00:04 +0200
Subject: [PATCH] Add basic tests for M_KEEP_ARGS / M_SKIP_ARGS / M_MID_ARGS

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

diff --git a/tests/test-mcore.c b/tests/test-mcore.c
index 3ace09bc..0275f558 100644
--- a/tests/test-mcore.c
+++ b/tests/test-mcore.c
@@ -231,6 +231,12 @@ static void test_test(void)
   assert(!M_PARENTHESIS_P(()x));
 }
 
+static void test_list(void)
+{
+  assert(M_KEEP_ARGS(1, 1, 0, 0, 0, 0));
+  assert(M_SKIP_ARGS(4, 0, 0, 0, 0, 1));
+  assert(M_MID_ARGS(2, 1, 0, 0, 1, 0));
+}
 
 static void test_oplist(void)
 {
@@ -468,6 +474,7 @@ int main(void)
   test_invert();
   test_min();
   test_empty();
+  test_list();
   test_map();
   test_let();
   test_va();