cdo/imp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Create car, cdr and assign AM operations

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2025-08-10 21:15:36 +01:00
parent eaef6f3cd3
commit 426d270318
4 changed files with 68 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
tests/am_tests.c
View File

@@ -81,6 +81,41 @@ static void test_append_unev_2_to_expr_list_1(void)
TEST_ASSERT_EQUAL(2, CADR(am.regs[EXPR])->atom.integer);
}
static void test_car_of_expr_pair_1_2(void)
{
am.regs[EXPR]
= expr_pair(&am, expr_integer(&am, 1), expr_integer(&am, 2));
am_car(&am, EXPR, EXPR);
TEST_ASSERT_NOT_NULL(am.regs[EXPR]);
TEST_ASSERT_TRUE(am.regs[EXPR]->is_atom);
TEST_ASSERT_EQUAL(ATOM_TYPE_INTEGER, am.regs[EXPR]->atom.type);
TEST_ASSERT_EQUAL(1, am.regs[EXPR]->atom.integer);
}
static void test_cdr_of_expr_pair_1_2(void)
{
am.regs[EXPR]
= expr_pair(&am, expr_integer(&am, 1), expr_integer(&am, 2));
am_cdr(&am, EXPR, EXPR);
TEST_ASSERT_NOT_NULL(am.regs[EXPR]);
TEST_ASSERT_TRUE(am.regs[EXPR]->is_atom);
TEST_ASSERT_EQUAL(ATOM_TYPE_INTEGER, am.regs[EXPR]->atom.type);
TEST_ASSERT_EQUAL(2, am.regs[EXPR]->atom.integer);
}
static void test_assign_expr_to_val(void)
{
am.regs[EXPR] = expr_integer(&am, 42);
am_assign(&am, VAL, EXPR);
TEST_ASSERT_NOT_NULL(am.regs[EXPR]);
TEST_ASSERT_TRUE(am.regs[EXPR]->is_atom);
TEST_ASSERT_EQUAL(ATOM_TYPE_INTEGER, am.regs[EXPR]->atom.type);
TEST_ASSERT_EQUAL(42, am.regs[EXPR]->atom.integer);
}
int main(void)
{
UNITY_BEGIN();
@@ -88,5 +123,8 @@ int main(void)
RUN_TEST(test_argl_value_restored_after_push_modify_pop);
RUN_TEST(test_append_val_42_to_empty_argl);
RUN_TEST(test_append_unev_2_to_expr_list_1);
RUN_TEST(test_car_of_expr_pair_1_2);
RUN_TEST(test_cdr_of_expr_pair_1_2);
RUN_TEST(test_assign_expr_to_val);
return UNITY_END();
}