diff options
Diffstat (limited to 'tests/012')
| -rw-r--r-- | tests/012/seq.tl | 3 | ||||
| -rw-r--r-- | tests/012/sort.tl | 3 |
2 files changed, 6 insertions, 0 deletions
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))) |