summaryrefslogtreecommitdiffstats
path: root/tests/012/lambda.tl
diff options
context:
space:
mode:
Diffstat (limited to 'tests/012/lambda.tl')
-rw-r--r--tests/012/lambda.tl14
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/012/lambda.tl b/tests/012/lambda.tl
index 5267e4ef..65a3738c 100644
--- a/tests/012/lambda.tl
+++ b/tests/012/lambda.tl
@@ -87,6 +87,20 @@
[(lambda (x y : (a 3) (b 4)) (list x y a b)) . vl] (a b c d)
[(lambda (x y : (a 3) (b 4)) (list x y a b)) 1 . vl] :error)
+(mtest
+ [(lambda (x : y) (list x y)) 1 :] (1 nil)
+ [(lambda (x : y z) (list x y z)) 1 :] (1 nil nil)
+ [(lambda (x : y z) (list x y z)) 1 2 :] (1 2 nil)
+ [(lambda (x : y z) (list x y z)) 1 nil :] (1 nil nil)
+ [(lambda (x : y z) (list x y z)) 1 nil nil] (1 nil nil))
+
+(mtest
+ [(lambda (x : (y nil)) (list x y)) 1 :] (1 nil)
+ [(lambda (x : (y nil) (z)) (list x y z)) 1 :] (1 nil nil)
+ [(lambda (x : (y nil) (z)) (list x y z)) 1 2 :] (1 2 nil)
+ [(lambda (x : (y nil) (z)) (list x y z)) 1 nil :] (1 nil nil)
+ [(lambda (x : (y nil) (z)) (list x y z)) 1 nil nil] (1 nil nil))
+
(defvarl vc '(: : : :))
(mtest