From c65c90b0458f3cc9ae027ff0f256e5a587de030f Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 1 May 2023 22:26:22 -0700
Subject: sort: larger test.

* tests/010/sort.tl: Add some test cases of larger list.
The exhaustive permutation tests are good but only go
up to a relatively short size, where the median-of-three
doesn't even kick in. We also cover choosing an alternative
less function.
---
 tests/010/sort.tl | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/tests/010/sort.tl b/tests/010/sort.tl
index 40ba8519..1fd48531 100644
--- a/tests/010/sort.tl
+++ b/tests/010/sort.tl
@@ -13,3 +13,11 @@
        (sp (uniq [mapcar sort (perm vec (len vec))])))
   (mvtest (len sp) 1
           (car sp) vec))
+
+(let* ((list (range* 0 1000))
+       (slist (shuffle list)))
+  (mvtest
+    (sort list) list
+    (sort slist) list
+    (sort list (fun greater)) (reverse list)
+    (sort slist (fun greater)) (reverse list)))
-- 
cgit v1.2.3