Add error types and simple state

2022-10-28 16:08:40 -04:00
parent fd91e66b8a
commit ed173bd17a
14 changed files with 302 additions and 89 deletions
--- a/test/testing_helpers.h
+++ b/test/testing_helpers.h
@@ -0,0 +1,38 @@
+#ifndef _TESTING_HELPERS_H_
+#define _TESTING_HELPERS_H_
+
+#include <unity.h>
+
+#include "nihilispm.h"
+
+#define TEST_ASSERT_OBJ_ERROR(obj)              \
+    TEST_ASSERT_EQUAL(obj->type, NL_TYPE_ERROR)
+
+#define TEST_ASSERT_OBJ_SYMBOL(obj)                 \
+    TEST_ASSERT_EQUAL(obj->type, NL_TYPE_SYMBOL)
+
+#define TEST_ASSERT_OBJ_STRING(obj)                 \
+    TEST_ASSERT_EQUAL(obj->type, NL_TYPE_STRING)
+
+#define TEST_ASSERT_OBJ_INT(obj)                \
+    TEST_ASSERT_EQUAL(obj->type, NL_TYPE_INT)
+
+#define TEST_ASSERT_OBJ_LIST(obj)               \
+    TEST_ASSERT_EQUAL(obj->type, NL_TYPE_CELL)
+
+#define TEST_ASSERT_LIST_LEN(list, len)                         \
+    do {                                                        \
+        TEST_ASSERT_OBJ_LIST(list);                             \
+        TEST_ASSERT_EQUAL(nl_list_length(list)->integer, len);  \
+    } while(0)
+
+#define TEST_ASSERT_NIL(obj)                    \
+    TEST_ASSERT_LIST_LEN(obj, 0)
+
+#define TEST_ASSERT_T(obj)                          \
+    do {                                            \
+        TEST_ASSERT_OBJ_SYMBOL(obj);                \
+        TEST_ASSERT_EQUAL_STRING(obj->symbol, "t"); \
+    } while(0)
+
+#endif