diff options
Diffstat (limited to 'tests/012/seq.tl')
| -rw-r--r-- | tests/012/seq.tl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/012/seq.tl b/tests/012/seq.tl index 66361cfb..9c3821d1 100644 --- a/tests/012/seq.tl +++ b/tests/012/seq.tl @@ -7,3 +7,13 @@ (test (append '(1) 2) (1 . 2)) (test (append '(1 . 2) 2) :error) (test (append '(1 . #(3 4 5)) "d") (1 . #(3 4 5 #\d))) + +(test (build (add 1) (add 2) (pend (get))) (1 2 1 2)) +(test (build (add 1) (add 2) (pend* (get))) (1 2 1 2)) +(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)) + +(set *print-circle* t) + +(stest (build (add 1) (add 2) (ncon (get))) "#1=(1 2 . #1#)") +(stest (build (add 1) (add 2) (ncon* (get))) "#1=(1 2 . #1#)") |