From 7fb54cf86f55ab28a3baa5ebf5d99e358977dcdf Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 2 May 2023 21:06:07 -0700
Subject: 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.
---
 tests/010/sort.tl | 45 ---------------------------------------------
 tests/012/sort.tl | 45 +++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 45 insertions(+), 45 deletions(-)
 delete mode 100644 tests/010/sort.tl
 create mode 100644 tests/012/sort.tl

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)))
diff --git a/tests/012/sort.tl b/tests/012/sort.tl
new file mode 100644
index 00000000..1fcc0c2d
--- /dev/null
+++ b/tests/012/sort.tl
@@ -0,0 +1,45 @@
+(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)))
-- 
cgit v1.2.3