diff options
Diffstat (limited to 'tests/012/aseq.tl')
| -rw-r--r-- | tests/012/aseq.tl | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/tests/012/aseq.tl b/tests/012/aseq.tl index dfb20118..e1a55fb8 100644 --- a/tests/012/aseq.tl +++ b/tests/012/aseq.tl @@ -8,7 +8,11 @@ (:method lambda (me i) (if (rangep i) (mapcar (op + me.n) [me.list i]) - (+ me.n (ref me.list i))))) + (+ me.n (ref me.list i)))) + (:method lambda-set (me i nv) + (if (rangep i) + (set [me.list i] (mapcar (lop - me.n) nv)) + (set [me.list i] (- nv me.n))))) (defvarl o (new (add 3 (range 10 100 10)))) @@ -16,3 +20,8 @@ (test (cadr o) 23) (test [o 4] 53) (test (cadr (last o)) nil) + +(test (set [o 0..3] '(1003 1103 1203)) (1003 1103 1203)) +(test o.list (1000 1100 1200 40 50 60 70 80 90 100)) +(test (del [o 1..4]) (1103 1203 43)) +(test o.list (1000 50 60 70 80 90 100)) |