Function eval_tests

dsl/tests.c:35–46

}

static void eval_tests() {
  struct hc_dsl dsl;
  hc_dsl_init(&dsl, &hc_malloc_default);
  hc_defer(hc_dsl_deinit(&dsl));
  struct hc_memory_stream out;
  hc_memory_stream_init(&out, &hc_malloc_default);
  hc_defer(hc_stream_deinit(&out.stream));
  dsl.out = &out.stream;
  hc_dsl_set_string(&dsl, "foo", "ghi");
  hc_dsl_eval(&dsl, "abc $(print (upcase foo)) def");
  assert(strcmp("abc GHI def", hc_memory_stream_string(&out)) == 0);
}

void dsl_tests() {
  read_id_tests();