From 4660bd2f3f1c37a0933e5e1456f2f1e68b7c426b Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 26 Jun 2024 02:07:15 -0700 Subject: copy-iter: test for common types. * tests/012/iter.tl: Test copy-iter for lists, vectors, integers, characters, strings, string ranges, numeric ranges. --- tests/012/iter.tl | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/tests/012/iter.tl b/tests/012/iter.tl index 96bcabbd..67e9875e 100644 --- a/tests/012/iter.tl +++ b/tests/012/iter.tl @@ -99,3 +99,21 @@ "abcdefghijklmnopqrstuvwxyz" (iter-cat) nil (list-seq (iter-cat nil)) nil) + +(mtest + (copy-iter nil) nil + (copy-iter '(1 2 3)) (1 2 3) + (copy-iter 42) 42 + (copy-iter #\a) #\a) + +(each ((obj '("abcde" #(0 1 2 3 4) "a".."z" 0..9 1.0..10.0))) + (let* ((i0 (iter-begin obj)) + (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