Add test for apply function
This commit is contained in:
parent
f576081d22
commit
70ce321517
1 changed files with 4 additions and 1 deletions
|
@ -1,4 +1,4 @@
|
|||
(plan 5)
|
||||
(plan 6)
|
||||
|
||||
(defun inc (a) (+ a 1))
|
||||
|
||||
|
@ -18,3 +18,6 @@
|
|||
(equal a 'top))
|
||||
(expect "parameters shadow outer bindings"
|
||||
(equal (test 'param) 'param)))
|
||||
|
||||
(expect "inc"
|
||||
(equal (apply + '(7 5)) 12))
|
||||
|
|
Loading…
Reference in a new issue