100 lines
3.1 KiB
C
100 lines
3.1 KiB
C
#include "memory_stream.h"
|
|
#include "read.h"
|
|
#include "unity.h"
|
|
|
|
#include <string.h>
|
|
|
|
#define CAR(expr) (expr->pair.car)
|
|
#define CDR(expr) (expr->pair.cdr)
|
|
#define CADR(expr) CAR(CDR(expr))
|
|
#define CDDR(expr) CDR(CDR(expr))
|
|
#define CADDR(expr) CAR(CDDR(expr))
|
|
#define CDDDR(expr) CDR(CDDR(expr))
|
|
#define CAADDR(expr) CAR(CADDR(expr))
|
|
#define CDADDR(expr) CDR(CADDR(expr))
|
|
#define CADADDR(expr) CAR(CDADDR(expr))
|
|
#define CDDADDR(expr) CDR(CDADDR(expr))
|
|
#define CADDADDR(expr) CAR(CDDADDR(expr))
|
|
#define CDDDADDR(expr) CDR(CDDADDR(expr))
|
|
|
|
static am_t am;
|
|
|
|
void setUp(void)
|
|
{
|
|
am_init(&am);
|
|
}
|
|
|
|
void tearDown(void)
|
|
{
|
|
}
|
|
|
|
static void test_nested_expression(void)
|
|
{
|
|
const char *input = "(+ 1 (* 2 3))";
|
|
memory_stream_t stream;
|
|
memory_stream_init(&stream, (const uint8_t *)input, strlen(input));
|
|
|
|
read(&am, (stream_t *)&stream);
|
|
|
|
TEST_ASSERT_NOT_NULL(am.regs[EXPR]);
|
|
TEST_ASSERT_FALSE(am.regs[EXPR]->is_atom);
|
|
|
|
TEST_ASSERT_NOT_NULL(CAR(am.regs[EXPR]));
|
|
TEST_ASSERT_TRUE(CAR(am.regs[EXPR])->is_atom);
|
|
TEST_ASSERT_EQUAL(ATOM_TYPE_SYMBOL, CAR(am.regs[EXPR])->atom.type);
|
|
TEST_ASSERT_EQUAL(1, CAR(am.regs[EXPR])->atom.symbol.len);
|
|
TEST_ASSERT_EQUAL_MEMORY("+", CAR(am.regs[EXPR])->atom.symbol.buf, 1);
|
|
|
|
TEST_ASSERT_NOT_NULL(CDR(am.regs[EXPR]));
|
|
TEST_ASSERT_FALSE(CDR(am.regs[EXPR])->is_atom);
|
|
|
|
TEST_ASSERT_NOT_NULL(CADR(am.regs[EXPR]));
|
|
TEST_ASSERT_TRUE(CADR(am.regs[EXPR])->is_atom);
|
|
TEST_ASSERT_EQUAL(ATOM_TYPE_INTEGER, CADR(am.regs[EXPR])->atom.type);
|
|
TEST_ASSERT_EQUAL(1, CADR(am.regs[EXPR])->atom.integer);
|
|
|
|
TEST_ASSERT_NOT_NULL(CDDR(am.regs[EXPR]));
|
|
TEST_ASSERT_FALSE(CDDR(am.regs[EXPR])->is_atom);
|
|
|
|
TEST_ASSERT_NOT_NULL(CADDR(am.regs[EXPR]));
|
|
TEST_ASSERT_FALSE(CADDR(am.regs[EXPR])->is_atom);
|
|
|
|
TEST_ASSERT_NOT_NULL(CAADDR(am.regs[EXPR]));
|
|
TEST_ASSERT_TRUE(CAADDR(am.regs[EXPR])->is_atom);
|
|
TEST_ASSERT_EQUAL(ATOM_TYPE_SYMBOL, CAADDR(am.regs[EXPR])->atom.type);
|
|
TEST_ASSERT_EQUAL(1, CAADDR(am.regs[EXPR])->atom.symbol.len);
|
|
TEST_ASSERT_EQUAL_MEMORY("*", CAADDR(am.regs[EXPR])->atom.symbol.buf, 1);
|
|
|
|
TEST_ASSERT_NOT_NULL(CDADDR(am.regs[EXPR]));
|
|
TEST_ASSERT_FALSE(CDADDR(am.regs[EXPR])->is_atom);
|
|
|
|
TEST_ASSERT_NOT_NULL(CADADDR(am.regs[EXPR]));
|
|
TEST_ASSERT_TRUE(CADADDR(am.regs[EXPR])->is_atom);
|
|
TEST_ASSERT_EQUAL(ATOM_TYPE_INTEGER, CADADDR(am.regs[EXPR])->atom.type);
|
|
TEST_ASSERT_EQUAL(2, CADADDR(am.regs[EXPR])->atom.integer);
|
|
|
|
TEST_ASSERT_NOT_NULL(CDDADDR(am.regs[EXPR]));
|
|
TEST_ASSERT_FALSE(CDDADDR(am.regs[EXPR])->is_atom);
|
|
|
|
TEST_ASSERT_NOT_NULL(CADDADDR(am.regs[EXPR]));
|
|
TEST_ASSERT_TRUE(CADDADDR(am.regs[EXPR])->is_atom);
|
|
TEST_ASSERT_EQUAL(ATOM_TYPE_INTEGER, CADDADDR(am.regs[EXPR])->atom.type);
|
|
TEST_ASSERT_EQUAL(3, CADDADDR(am.regs[EXPR])->atom.integer);
|
|
|
|
TEST_ASSERT_NOT_NULL(CDDDADDR(am.regs[EXPR]));
|
|
TEST_ASSERT_TRUE(CDDDADDR(am.regs[EXPR])->is_atom);
|
|
TEST_ASSERT_EQUAL(
|
|
ATOM_TYPE_EMPTY_LIST, CDDDADDR(am.regs[EXPR])->atom.type);
|
|
|
|
TEST_ASSERT_NOT_NULL(CDDDR(am.regs[EXPR]));
|
|
TEST_ASSERT_TRUE(CDDDR(am.regs[EXPR])->is_atom);
|
|
TEST_ASSERT_EQUAL(ATOM_TYPE_EMPTY_LIST, CDDDR(am.regs[EXPR])->atom.type);
|
|
}
|
|
|
|
int main(void)
|
|
{
|
|
UNITY_BEGIN();
|
|
RUN_TEST(test_nested_expression);
|
|
return UNITY_END();
|
|
}
|