Add FUNCALL, APPLY tests.

diff --git a/tests/apply.lisp b/tests/apply.lisp
new file mode 100644 (file)
index 0000000..eacd1ee
--- /dev/null
+++ b/tests/apply.lisp
@@ -0,0 +1,10 @@
+; Tests for funcall/apply
+
+(test (equal (funcall #'list 1 2 3) '(1 2 3)))
+(test (equal (apply #'list 1 2 3 '(4 5 6)) '(1 2 3 4 5 6)))
+
+(test (equal (funcall #'funcall #'list 1 2 3) '(1 2 3)))
+(test (equal (funcall #'apply #'list 1 2 3 '(4 5 6)) '(1 2 3 4 5 6)))
+
+(test (equal (apply #'funcall #'list 1 2 3 '(4 5 6)) '(1 2 3 4 5 6)))
+(test (equal (apply #'apply #'list 1 2 3 '(4 5 (6))) '(1 2 3 4 5 6)))