Add FUNCALL, APPLY tests.
authorOlof-Joachim Frahm <olof@macrolet.net>
Tue, 3 Sep 2013 07:35:23 +0000 (09:35 +0200)
committerOlof-Joachim Frahm <olof@macrolet.net>
Tue, 3 Sep 2013 07:42:37 +0000 (09:42 +0200)
tests/apply.lisp [new file with mode: 0644]

diff --git a/tests/apply.lisp b/tests/apply.lisp
new file mode 100644 (file)
index 0000000..eacd1ee
--- /dev/null
@@ -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)))