diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-04-29 07:35:31 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-04-29 19:14:37 -0700 |
commit | 3c6a8eb20849ee1028b225883beb3f0363ef255b (patch) | |
tree | 3c07d4e70d846ddc9854b138f91f4f22e92e5b79 /tests | |
parent | 3d56e318473e8d6ae433608e12b9cd644818d50b (diff) | |
download | txr-3c6a8eb20849ee1028b225883beb3f0363ef255b.tar.gz txr-3c6a8eb20849ee1028b225883beb3f0363ef255b.tar.bz2 txr-3c6a8eb20849ee1028b225883beb3f0363ef255b.zip |
tree: more tests.
* tests/010/tree.tl: New tests, broadening coverage.
* share/txr/stdlib/doc-syms.tl: Regenerated.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/010/tree.tl | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/tests/010/tree.tl b/tests/010/tree.tl index b4990d04..df454e75 100644 --- a/tests/010/tree.tl +++ b/tests/010/tree.tl @@ -5,6 +5,9 @@ (test tr #T(())) +(test (treep tr) t) +(test (treep 42) nil) + (each ((n keys)) (tree-insert tr n)) @@ -29,3 +32,40 @@ (tree-lookup tr 17) 17 (tree-lookup tr 18) 18 (tree-lookup tr 19) 19) + +(vtest (build (for* ((i (tree-begin 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) + +(tree-clear trc) + +(test trc #T(())) + +(mtest + (tree-delete tr 0) 0 + (tree-delete tr 1) 1 + (tree-delete tr 2) 2 + (tree-delete tr 3) 3 + (tree-delete tr 4) 4 + (tree-delete tr 5) 5 + (tree-delete tr 6) 6 + (tree-delete tr 7) 7 + (tree-delete tr 8) 8 + (tree-delete tr 9) 9 + (tree-delete tr 10) 10 + (tree-delete tr 11) 11 + (tree-delete tr 12) 12 + (tree-delete tr 13) 13 + (tree-delete tr 14) 14 + (tree-delete tr 15) 15 + (tree-delete tr 16) 16 + (tree-delete tr 17) 17 + (tree-delete tr 18) 18 + (tree-delete tr 19) 19) |