Function read_id_tests

dsl/tests.c:20–33

}

static void read_id_tests() {
  struct hc_sloc sloc = hc_sloc("read_id_tests", 0, 0);
  
  struct hc_list out;
  hc_list_init(&out);
  hc_defer(hc_forms_free(&out));

  const char *s = "foo";
  const char *in = s;
  assert(hc_read_expr(&in, &out, &sloc));
  
  struct hc_form *f = hc_baseof(out.next, struct hc_form, owner);
  assert(f->type == &HC_ID_FORM);
}

static void eval_tests() {
  struct hc_dsl dsl;