sort: move tests into tests/012.

* tests/010/sort.tl: File moved to tests/012.
The reason is that the tests 010 run with the
--gc-debug torture tests. That test case runs
way too long under that test because of the
testing of many permutations and whatnot.

1 files changed, 0 insertions, 45 deletions

diff --git a/tests/010/sort.tl b/tests/010/sort.tl
deleted file mode 100644
index 1fcc0c2d..00000000
--- a/tests/010/sort.tl
+++ /dev/null
@@ -1,45 +0,0 @@
-(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))
-
-(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)))
-
-(test (ssort ()) nil)
-
-(let* ((list (conses '(1 2 3 4 5 6 7 8)))
-       (sp (uniq [mapcar ssort (perm list (len list))])))
-  (mvtest (len sp) 1
-          (car sp) list))
-
-(test (ssort #()) #())
-
-(let* ((vec (conses #(1 2 3 4 5 6 7 8)))
-       (sp (uniq [mapcar ssort (perm vec (len vec))])))
-  (mvtest (len sp) 1
-          (car sp) vec))
-
-(let* ((list (range* 0 1000))
-       (slist (shuffle list)))
-  (mvtest
-    (ssort list) list
-    (ssort slist) list
-    (ssort list (fun greater)) (reverse list)
-    (ssort slist (fun greater)) (reverse list)))