From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Tue, 3 Sep 2013 07:35:23 +0000 (+0200)
Subject: Add FUNCALL, APPLY tests.
X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=commitdiff_plain;h=6fad19d5f281ac1366375384875d542c222a100a

Add FUNCALL, APPLY tests.
---

diff --git a/tests/apply.lisp b/tests/apply.lisp
new file mode 100644
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)))