From 1fa105f11aec8d2170e11a84dab7afe98eae381f Mon Sep 17 00:00:00 2001 From: Patrick Pelissier Date: Mon, 18 Sep 2017 23:03:05 +0200 Subject: [PATCH] Improve the test suite. --- tests/test-mcore.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/tests/test-mcore.c b/tests/test-mcore.c index 4ab9d82e..8e9184f4 100644 --- a/tests/test-mcore.c +++ b/tests/test-mcore.c @@ -212,6 +212,10 @@ static void test_oplist(void) assert (M_TEST_METHOD_P(INIT, (INIT(empty),CLEAR(empty)))); assert (M_TEST_METHOD_P(INIT, (INIT_SET(empty), INIT(empty),CLEAR(empty)))); assert (M_TEST_METHOD_P(INIT, (INIT_SET(empty), INIT(empty)))); + assert (M_TEST_METHOD_P(OPLIST, (INIT_SET(empty), INIT(empty), OPLIST(a(INIT(empty), CLEAR(empty))), CLEAR(empty)))); + // True oplist are not supported for TEST_METHOD_P + OPLIST... + assert (M_TEST_METHOD_P(OPLIST, (INIT_SET(empty), OPLIST(a(INIT(empty), CLEAR(empty)))))); + assert (M_TEST_METHOD_P(OPLIST, (INIT_SET(empty), M_IF_METHOD(CLEAR, (INIT(empty), CLEAR(empty)))(OPLIST(empty),)))); assert (!M_TEST_METHOD_P(INIT2, (INIT(empty)))); assert (!M_TEST_METHOD_P(INIT2, (INIT(empty),CLEAR(empty))));