diff options
Diffstat (limited to 'tests/012')
| -rw-r--r-- | tests/012/seq.tl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/012/seq.tl b/tests/012/seq.tl index 1706e6df..ae42a13e 100644 --- a/tests/012/seq.tl +++ b/tests/012/seq.tl @@ -13,6 +13,11 @@ (test (build (add 1) (add 2) (pend (get) (get))) (1 2 1 2 1 2)) (test (build (add 1) (add 2) (pend* (get) (get))) (1 2 1 2 1 2)) +(mtest + (build (add 1 2) (oust)) nil + (build (add 1 2) (oust '(3 4)) (add 5)) (3 4 5) + (build (add 1 2) (oust '(3 4) '(5)) (add 6)) (3 4 5 6)) + (set *print-circle* t) (stest (build (add 1) (add 2) (ncon (get))) "#1=(1 2 . #1#)") |