Add a test for lambda w/ lambda-list

2013-05-07 19:42:23 +02:00 · 2013-05-07 19:42:23 +02:00 · 6935b7b8c1
commit 6935b7b8c1
parent 1e24dde153
1 changed files with 3 additions and 1 deletions
--- a/tests/native_tests/language.hy
+++ b/tests/native_tests/language.hy
@ -129,7 +129,9 @@
 (defn test-lambda []
  "NATIVE: test lambda operator"
  (setv square (lambda [x] (* x x)))
-  (assert (= 4 (square 2))))
+  (assert (= 4 (square 2)))
+  (setv lambda_list (lambda [test &rest args] (, test args)))
+  (assert (= (, 1 (, 2 3)) (lambda_list 1 2 3))))


 (defn test-imported-bits []