kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-09-11 13:55:55 +03:00
Code Issues Projects Releases Wiki Activity

Add intermediate test for env/fn interaction

Browse Source 
It should pass on existing implementations because it is a
prerequisite for an existing test, but small independent tests are
easyer to debug on new implementations.
This commit is contained in:
Nicolas Boulenguez 2020-08-26 09:58:21 +02:00 committed by Joel Martin
parent 894b24d892
commit 7a45dc5851
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
impls/tests/step4_if_fn_do.mal
View File

@ -204,6 +204,8 @@ a
;; Testing recursive function in environment.
(let* (f (fn* () x) x 3) (f))
;=>3
(let* (cst (fn* (n) (if (= n 0) nil (cst (- n 1))))) (cst 1))
;=>nil
(let* (f (fn* (n) (if (= n 0) 0 (g (- n 1)))) g (fn* (n) (f n))) (f 2))