Add tests for errors.

tadd · Jul 21, 2024 · cafce30 · cafce30
1 parent cb54fa2
commit cafce30
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/test_lisp.c b/test_lisp.c
@@ -219,4 +219,7 @@ Test(lisp, set) {
     v = eval_string("(define x 1) (set! x 42) x");
     cr_assert(value_is_int(v));
     cr_assert_eq(42, value_to_int(v));
+
+    v = eval_string("(set! x 42) x");
+    assert_runtime_error(v, "unbound variable x");
 }