projects
/
jscl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
de73639
)
Add FUNCALL, APPLY tests.
author
Olof-Joachim Frahm
<olof@macrolet.net>
Tue, 3 Sep 2013 07:35:23 +0000
(09:35 +0200)
committer
Olof-Joachim Frahm
<olof@macrolet.net>
Tue, 3 Sep 2013 07:42:37 +0000
(09:42 +0200)
tests/apply.lisp
[new file with mode: 0644]
patch
|
blob
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)))