From ffa3821acf3642c7b0794626216e289792cad3ce Mon Sep 17 00:00:00 2001 From: Patrick Pelissier Date: Sun, 17 Apr 2022 19:01:32 +0200 Subject: [PATCH] Add tests for M_KEYWORD_TO_VA_ARGS --- tests/test-mcore.c | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/tests/test-mcore.c b/tests/test-mcore.c index 43e1f937..3583303a 100644 --- a/tests/test-mcore.c +++ b/tests/test-mcore.c @@ -411,6 +411,11 @@ static void test_test(void) assert(M_KEYWORD_P(LIST, LIST(1,23,4) )); assert(!M_KEYWORD_P(LIST, SEQ(1,23,4) )); + assert(M_KEYWORD_TO_VA_ARGS(LIST, LIST(16)) == 16); + assert(M_KEYWORD_TO_VA_ARGS(LIST, LIST(14)) == 14); + assert(M_GET_AT( ( M_KEYWORD_TO_VA_ARGS(LIST, LIST(11, 22, 33)) ), 0) == 11); + assert(M_GET_AT( ( M_KEYWORD_TO_VA_ARGS(LIST, LIST(11, 22, 33)) ), 1) == 22); + assert(M_GET_AT( ( M_KEYWORD_TO_VA_ARGS(LIST, LIST(11, 22, 33)) ), 2) == 33); } static void test_list(void)