pt-lisp/implementations/c/tests/cons-test.c

#include "ptlisp-test.h"
#include "../src/lisp.h"

START_TEST(cons_new_test) {
  Pointer c = cons(69, 420);
  ck_assert_uint_eq(CAR(c), 69);
  ck_assert_uint_eq(CDR(c), 420);
}
END_TEST

START_TEST(cons_car_nil_test) {
  ck_assert_uint_eq(car_fn(NIL, NIL), NIL);
}
END_TEST

START_TEST(cons_car_test) {
  ck_assert_uint_eq(CAR(cons(69, 420)), 69);
}
END_TEST

START_TEST(cons_cdr_nil_test) {
  ck_assert_uint_eq(CDR(NIL), NIL);
}
END_TEST

START_TEST(cons_cdr_test) {
  ck_assert_uint_eq(CDR(cons(69, 420)), 420);
}
END_TEST

static void setup(void) {
  memory_init(16);
  symbol_init();
}

static void teardown(void) {
  memory_free();
}

Suite* make_cons_test_suite(void) {
  Suite *s1 = suite_create("Cons");
  TCase *tc1_1 = tcase_create("Cons");
  suite_add_tcase(s1, tc1_1);
  
  tcase_add_checked_fixture(tc1_1, setup, teardown);
  tcase_add_test(tc1_1, cons_new_test);
  tcase_add_test(tc1_1, cons_car_nil_test);
  tcase_add_test(tc1_1, cons_car_test);
  tcase_add_test(tc1_1, cons_cdr_nil_test);
  tcase_add_test(tc1_1, cons_cdr_test);

  return s1;
}