Add test for apply function

2021-04-10 01:02:33 +02:00 · 2021-04-10 01:02:33 +02:00 · 70ce321517
parent f576081d22
commit 70ce321517
1 changed files with 4 additions and 1 deletions
--- a/t/function.t
+++ b/t/function.t
@ -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))