summaryrefslogtreecommitdiffstats
path: root/tests/010/tree.tl
diff options
context:
space:
mode:
Diffstat (limited to 'tests/010/tree.tl')
-rw-r--r--tests/010/tree.tl15
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/010/tree.tl b/tests/010/tree.tl
index 83b3172c..fde11300 100644
--- a/tests/010/tree.tl
+++ b/tests/010/tree.tl
@@ -40,6 +40,14 @@
(add (key n))))
(range 0 19))
+(vtest (build (for* ((j (tree-begin tr))
+ (i (progn (tree-next j) (tree-next j) (tree-reset j tr)))
+ (n (tree-next i)))
+ (n)
+ ((set n (tree-next i)))
+ (add (key n))))
+ (range 0 19))
+
(defvarl trc (copy-search-tree tr))
(vtest trc tr)
@@ -71,6 +79,13 @@
(add (key n))))
(range 8 19))
+(vtest (build (for* ((i (tree-reset-at (tree-begin #T(())) tr 8))
+ (n (tree-next i)))
+ (n)
+ ((set n (tree-next i)))
+ (add (key n))))
+ (range 8 19))
+
(test (tree-next (tree-begin-at tr 20)) nil)
(test (tree-next (tree-begin-at #T(()) 0)) nil)