diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/012/op.tl | 13 |
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 |