summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/012/op.tl13
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/012/op.tl b/tests/012/op.tl
index 34f7ef39..6bda45a0 100644
--- a/tests/012/op.tl
+++ b/tests/012/op.tl
@@ -52,6 +52,19 @@
(fi (lop list @42 @rest)) (42 t)
(fi (lop list @1 @3 @rest @2)) (3 t))
+'(mtest
+ (fi (lop1)) :error
+ (fi (lop1 list)) (0 t)
+ (fi (lop1 list @1)) (1 t)
+ (fi (lop1 list @2)) (2 t)
+ (fi (lop1 list @42)) (42 t)
+ (fi (lop1 list @rest)) (0 t)
+ (fi (lop1 list @1 @rest)) (1 t)
+ (fi (lop1 list @2 @rest)) (2 t)
+ (fi (lop1 list @42 @rest)) (42 t)
+ (fi (lop1 list @1 @3 @rest @2)) (3 t))
+
+
(mtest
[(do quote x) 3] :error
[(do quote @1) 3] :error