1 files changed, 38 insertions, 0 deletions
diff --git a/tests/011/keyparams.tl b/tests/011/keyparams.tl
new file mode 100644
index 00000000..e2f8baf2
--- /dev/null
+++ b/tests/011/keyparams.tl
@@ -0,0 +1,38 @@
+(load "../common")
+
+(defvarl v :v)
+(defsymacro u (identity :u))
+
+(mtest
+  [(lambda (:key))] nil
+  [(lambda (:key a))] :error
+  [(lambda (:key a) a) 1] 1)
+
+(mtest
+  [(lambda (:key -- (a v)) a)] :v
+  [(lambda (:key -- (a 'v)) a)] v
+  [(lambda (:key -- (a v a-p)) (list a a-p))] (:v nil)
+  [(lambda (:key -- (a 'v a-p)) (list a a-p))] (v nil))
+
+(mtest
+  [(lambda (:key -- (a v)) a) :a 1] 1
+  [(lambda (:key -- (a 'v)) a) :a 1] 1
+  [(lambda (:key -- (a v a-p)) (list a a-p)) :a 1] (1 t)
+  [(lambda (:key -- (a 'v a-p)) (list a a-p)) :a 1] (1 t))
+
+(mtest
+  [(lambda (:key -- (a v) (b u)) (list a b)) :a 1] (1 :u)
+  [(lambda (:key -- (a 'v) (b 'u)) (list a b)) :b 1] (v 1)
+  [(lambda (:key -- (a v a-p) (b u b-p)) (list a a-p b b-p)) :a 1] (1 t :u nil)
+  [(lambda (:key -- (a v a-p) (b u b-p)) (list a a-p b b-p)) :b 1] (:v nil 1 t))
+
+(test
+  [(lambda (:key -- (a v) . r) (list a r)) :a 1] (1 (:a 1)))
+
+(defun key-place (:key -- x y (s nil s-p)) ^(,x ,y ,s ,s-p))
+
+(defset key-place (:key -- x y) s
+  ^(key-place :x ,x :y ,y :s ,s))
+
+(test
+  (set (key-place :x 3 :y 4) 42) (3 4 42 t))