From 6fad19d5f281ac1366375384875d542c222a100a Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Tue, 3 Sep 2013 09:35:23 +0200 Subject: [PATCH] Add FUNCALL, APPLY tests. --- tests/apply.lisp | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 tests/apply.lisp 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))) -- 1.7.10.4