diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/lambda.lisp | 6 | ||||
| -rw-r--r-- | tests/tailcall.lisp | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/tests/lambda.lisp b/tests/lambda.lisp index 0a1ad1c..759a217 100644 --- a/tests/lambda.lisp +++ b/tests/lambda.lisp @@ -31,3 +31,9 @@ (lambda (x) (setq x 2))) (funcall fn x) (assert (= x 1))) + +(assert-error + (let + ((f + (lambda (x) (funcall f 1) x))) + (funcall f 1))) diff --git a/tests/tailcall.lisp b/tests/tailcall.lisp index 1b39fb0..4a3e480 100644 --- a/tests/tailcall.lisp +++ b/tests/tailcall.lisp @@ -6,7 +6,7 @@ (defun is-odd (x) (is-even (- x 1))) -(assert (is-even 100)) +(assert (is-even 1024)) (assert (is-even 10)) (assert (is-even 0)) (assert (is-odd 1)) |