From 70ce321517fc18dd51812e6d676a6c8abde10dc7 Mon Sep 17 00:00:00 2001 From: MadMaurice Date: Sat, 10 Apr 2021 01:02:33 +0200 Subject: [PATCH] Add test for apply function --- t/function.t | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/t/function.t b/t/function.t index 6676659..8fcb1bf 100644 --- 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))