1 files changed, 15 insertions, 0 deletions
diff --git a/tests/010/sort.tl b/tests/010/sort.tl
new file mode 100644
index 00000000..40ba8519
--- /dev/null
+++ b/tests/010/sort.tl
@@ -0,0 +1,15 @@
+(load "../common")
+
+(test (sort ()) nil)
+
+(let* ((list (conses '(1 2 3 4 5 6 7 8)))
+       (sp (uniq [mapcar sort (perm list (len list))])))
+  (mvtest (len sp) 1
+          (car sp) list))
+
+(test (sort #()) #())
+
+(let* ((vec (conses #(1 2 3 4 5 6 7 8)))
+       (sp (uniq [mapcar sort (perm vec (len vec))])))
+  (mvtest (len sp) 1
+          (car sp) vec))