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

Add test for apply function

Browse source
This commit is contained in:
madmaurice 2021-04-10 01:02:33 +02:00
parent f576081d22
commit 70ce321517
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
t/function.t
View file

@ -1,4 +1,4 @@
(plan 5) (plan 6)
(defun inc (a) (+ a 1)) (defun inc (a) (+ a 1))
@ -18,3 +18,6 @@
(equal a 'top)) (equal a 'top))
(expect "parameters shadow outer bindings" (expect "parameters shadow outer bindings"
(equal (test 'param) 'param))) (equal (test 'param) 'param)))
(expect "inc"
(equal (apply + '(7 5)) 12))