chore: More tests

argumentcomputer · Sep 13, 2024 · 3741213 · 3741213
1 parent 3e7d7c4
commit 3741213
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/lurk/eval_tests.rs b/src/lurk/eval_tests.rs
@@ -236,6 +236,9 @@ test!(test_app_err, "(a)", |_| ZPtr::err(EvalErr::UnboundVar));
 test!(test_app_err2, "((lambda () a) 2)", |_| ZPtr::err(
     EvalErr::UnboundVar
 ));
+test!(test_app_err3, "(apply (lambda (x) x) 1)", |_| ZPtr::err(
+    EvalErr::ParamsNotList
+));
 
 // builtins
 test!(test_if, "(if 1 1 0)", |_| uint(1));