Commit: e937d028999d556ee612c3a77ac2d551eff0321f - sapphire_lisp (git)

Baremetal Lisp interpreter and compiler for low-resource devices

Commit MetaInfo

• Revision: e937d028999d556ee612c3a77ac2d551eff0321f (tree)
• Time: 2020-09-08 08:49:43
• Author: AlaskanEmily <emily@alas...>
• Commiter: AlaskanEmily

Log Message

Complete type comparison tests in the unit tests

Change Summary

• modified: test_sl_s.c

Incremental Difference

--- a/test_sl_s.c
+++ b/test_sl_s.c
@@ -147,6 +147,18 @@ static int TestCompareNilList(void){
 
 /*****************************************************************************/
 
+static int TestCompareAtomList(void){
+    int SUCCESS_INDICATOR = 1;
+    static const struct SL_S_Atom a = SL_S_STATIC_ATOM("a");
+    struct SL_S_List list;
+    list.head = SL_S_NIL;
+    list.tail = SL_S_NIL;
+    TEST_SL_COMPARE(SL_S_MK_ATOM(&a), SL_S_MK_LIST(&list));
+    return SUCCESS_INDICATOR;
+}
+
+/*****************************************************************************/
+
 static int TestCompareListSame(void){
     int SUCCESS_INDICATOR = 1;
     struct SL_S_List list;
@@ -216,6 +228,7 @@ static const struct YYY_Test sl_s_parse_tests[] = {
     YYY_TEST(TestCompareNil),
     YYY_TEST(TestCompareNilAtom),
     YYY_TEST(TestCompareNilList),
+    YYY_TEST(TestCompareAtomList),
     YYY_TEST(TestCompareListSame),
     YYY_TEST(TestCompareLists1)
 };