diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/010/tree.tl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/010/tree.tl b/tests/010/tree.tl index c2fe5382..e3b2ce0c 100644 --- a/tests/010/tree.tl +++ b/tests/010/tree.tl @@ -94,6 +94,15 @@ (add (key n)))) (range 8 19)) +(test (let* ((t0 (tree-begin tr)) + (t1 (progn (tree-next t0) (copy-tree-iter t0)))) + (tree-next t0) + (tree-next t0) + (list (key (tree-next t1)) + (key (tree-next t1)) + (key (tree-next t1)))) + (1 2 3)) + (test (tree-next (tree-begin-at tr 20)) nil) (test (tree-next (tree-begin-at #T(()) 0)) nil) |