From 48c84a2269b55a87b48031c8eb0f09cb827d34f7 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 26 Jun 2024 02:00:28 -0700 Subject: copy-iter: test that the combi iterators copy. * tests/015/comb.tl: New tests. --- tests/015/comb.tl | 12 ++++++++++++ 1 file changed, 12 insertions(+) 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))) -- cgit v1.2.3