madmaurice/Minilisp.pm
1
1
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add tests for two more edge cases

Browse source
This commit is contained in:
madmaurice 2021-04-06 23:54:22 +02:00
parent 7d6a988e88
commit fe23edcb90
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
t/function.t
View file

@ -9,3 +9,10 @@
(cons start (range (+ start 1) end)))) (cons start (range (+ start 1) end))))
(expect "range" (equal (range 1 10) '(1 2 3 4 5 6 7 8 9))) (expect "range" (equal (range 1 10) '(1 2 3 4 5 6 7 8 9)))
(let ((a 'top))
(defun test (a) a)
(expect "function parameters do not alter context through declaration"
(equal a 'top))
(expect "parameters shadow outer bindings"
(equal (test 'param) 'param)))