025num.test.cc

void test_add_works() {
  run("(+ 1 2)");
  CHECK_TRACE_TOP("eval", "compiled fn=> 3");
}

void test_add_works_for_floats() {
  TEMP(result, eval("(+ 1.0 2.0)"));
  CHECK_TRACE_TOP("eval", "compiled fn=> 3");
  CHECK_EQ(result->type, FLOAT);
}

void test_division_always_returns_floats() {
  TEMP(result, eval("(/ 4 2)"));
  CHECK_TRACE_TOP("eval", "compiled fn=> 2");
  CHECK_EQ(result->type, FLOAT);
}

void test_integer_drops_decimals() {
  TEMP(result, eval("(int -2.7)"));
  CHECK_TRACE_TOP("eval", "compiled fn=> -2");
  CHECK_EQ(result->type, INTEGER);
}

void test_lesser_always_passes_false() {
  run("(< 3 false)");
  CHECK_TRACE_TOP("eval", "compiled fn=> false");
}

void test_lesser_chains() {
  run("(0 < 1 < 2)");
  CHECK_TRACE_DOESNT_CONTAIN("eval/1", "=> false");
}

void test_lesser_chains2() {
  run("(3 < 1 < 2)");
  CHECK_TRACE_TOP("eval", "=> false");
}