From 8eeaeb95154d868b9fd201ff9cbf88b1031921cc Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 1 Oct 2024 13:38:15 -0700
Subject: copy: now handles range objects.

Ranges are iterable, denoting abstract sequences. The copy
function now copies a range by constructing the array.
This is useful when copy is used for the purpose of obtaining
a mutable copy. For example, (shuffle 0..100) will now work,
returning a shuffled vector of the integers from 0 to 99.

* lib.c (copy): Handle RNG case via vec_seq.

* tests/012/seq.tl,
* tests/012/sort.tl: New test cases.

* txr.1: Documented. Documentation for the copy function
improved.
---
 tests/012/seq.tl  | 3 +++
 tests/012/sort.tl | 3 +++
 2 files changed, 6 insertions(+)

(limited to 'tests')

diff --git a/tests/012/seq.tl b/tests/012/seq.tl
index 5d63fbf5..c831e6c5 100644
--- a/tests/012/seq.tl
+++ b/tests/012/seq.tl
@@ -1621,3 +1621,6 @@
 (mtest
   [keep-if (lop find "aiueo") "vertebrate" : chr-toupper] "EEAE"
   [remove-if (lop find "aiueo") "vertebrate" : chr-toupper] "VRTBRT")
+
+(test
+  (copy 1..10) #(1 2 3 4 5 6 7 8 9))
diff --git a/tests/012/sort.tl b/tests/012/sort.tl
index bca4a3d8..d08bce3a 100644
--- a/tests/012/sort.tl
+++ b/tests/012/sort.tl
@@ -96,3 +96,6 @@
 
 (test
   [hist-sort-by upcase-str '("a" "b" "c" "a" "b" "a" "b" "a")] (("A" . 4) ("B" . 3) ("C" . 1)))
+
+(let ((*random-state* (make-random-state 0)))
+  (test (shuffle 1..10) #(4 1 7 6 2 8 3 5 9)))
-- 
cgit v1.2.3