52 lines
1014 B
C
52 lines
1014 B
C
#include "am.h"
|
|
#include "unity.h"
|
|
|
|
#define CAR(expr) (expr->pair.car)
|
|
#define CDR(expr) (expr->pair.cdr)
|
|
|
|
static am_t am;
|
|
|
|
void setUp(void)
|
|
{
|
|
am_init(&am);
|
|
}
|
|
|
|
void tearDown(void)
|
|
{
|
|
}
|
|
|
|
static void test_expr_value_restored_after_push_modify_pop(void)
|
|
{
|
|
expr_t a, b;
|
|
am.expr = &a;
|
|
am_push(&am);
|
|
am.expr = &b;
|
|
am_pop(&am);
|
|
TEST_ASSERT_EQUAL(&a, am.expr);
|
|
}
|
|
|
|
static void test_append_arg_42_with_empty_argl(void)
|
|
{
|
|
am.argl = expr_empty_list(&am);
|
|
am.val = expr_integer(&am, 42);
|
|
am_append_arg(&am);
|
|
|
|
TEST_ASSERT_FALSE(am.argl->is_atom);
|
|
TEST_ASSERT_NOT_NULL(CAR(am.argl));
|
|
|
|
TEST_ASSERT_TRUE(CAR(am.argl)->is_atom);
|
|
TEST_ASSERT_EQUAL(ATOM_TYPE_INTEGER, CAR(am.argl)->atom.type);
|
|
TEST_ASSERT_EQUAL(42, CAR(am.argl)->atom.integer);
|
|
|
|
TEST_ASSERT_TRUE(CDR(am.argl)->is_atom);
|
|
TEST_ASSERT_EQUAL(ATOM_TYPE_EMPTY_LIST, CDR(am.argl)->atom.type);
|
|
}
|
|
|
|
int main(void)
|
|
{
|
|
UNITY_BEGIN();
|
|
RUN_TEST(test_expr_value_restored_after_push_modify_pop);
|
|
RUN_TEST(test_append_arg_42_with_empty_argl);
|
|
return UNITY_END();
|
|
}
|