diff options
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))) |