diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2024-06-26 02:00:28 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2024-06-26 02:00:28 -0700 |
commit | 48c84a2269b55a87b48031c8eb0f09cb827d34f7 (patch) | |
tree | 291d77342e7327f384d4073dd230bfd9fe9b40a5 /tests/015/comb.tl | |
parent | 32f6e7e1d706b22b42a0f46fbe49741491c6d9d0 (diff) | |
download | txr-48c84a2269b55a87b48031c8eb0f09cb827d34f7.tar.gz txr-48c84a2269b55a87b48031c8eb0f09cb827d34f7.tar.bz2 txr-48c84a2269b55a87b48031c8eb0f09cb827d34f7.zip |
copy-iter: test that the combi iterators copy.
* tests/015/comb.tl: New tests.
Diffstat (limited to 'tests/015/comb.tl')
-rw-r--r-- | tests/015/comb.tl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/015/comb.tl b/tests/015/comb.tl index 8b9208e9..efe0cfec 100644 --- a/tests/015/comb.tl +++ b/tests/015/comb.tl @@ -492,3 +492,15 @@ (each ((i 0..6)) (each ((o [list s v l])) (vtest (list-seq [fi o i]) [fn o i]))))) + +(each ((fi [list combi rcombi permi rpermi])) + (let* ((i0 [fi '(0 1 2 3 4) 1]) + (i1 (copy-iter i0)) + (i2 (iter-step (copy-iter i1))) + (l0 (list-seq i0)) + (l1 (list-seq i1)) + (l2 (list-seq i2))) + (mtest + (equal l0 l1) t + (equal l1 l2) nil + (equal (cdr l1) l2) t))) |