diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2023-05-01 22:26:22 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2023-05-01 22:26:22 -0700 |
| commit | 541b0e0c5f485b7b9cd724a303891a3d85fd95c9 (patch) | |
| tree | 5db307bfff22c731063e04e485f795ad7f40e35f /tests | |
| parent | 558363cceda60c12b8fd22cda399e2e39dc11bac (diff) | |
| download | txr-541b0e0c5f485b7b9cd724a303891a3d85fd95c9.tar.gz txr-541b0e0c5f485b7b9cd724a303891a3d85fd95c9.tar.bz2 txr-541b0e0c5f485b7b9cd724a303891a3d85fd95c9.zip | |
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.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/010/sort.tl | 8 |
1 files changed, 8 insertions, 0 deletions
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))) |