From 65d0beab4cb53a9ba8574e1133d105420f0b23aa Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 13 May 2020 19:30:47 -0400
Subject: Made test-running parallel again.

---
 stdlib/source/test/lux.lux | 89 ++++++++++++++++++++++++----------------------
 1 file changed, 46 insertions(+), 43 deletions(-)

(limited to 'stdlib/source/test/lux.lux')

diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux
index c03076d26..c43c2abf4 100644
--- a/stdlib/source/test/lux.lux
+++ b/stdlib/source/test/lux.lux
@@ -13,7 +13,7 @@
       [predicate (#+ Predicate)]]
      [control
       ["." io (#+ io)]
-      ["." function
+      [function
        [mixin (#+)]]
       [parser
        [cli (#+ program:)]]]
@@ -49,28 +49,37 @@
       [php (#+)]
       [common-lisp (#+)]
       [scheme (#+)]]
-     [tool
-      [compiler
-       [phase
-        [generation
-         [jvm (#+)
-          <host-modules>]
-         [js (#+)
-          <host-modules>]
-         [python (#+)
-          <host-modules>]
-         [lua (#+)
-          <host-modules>]
-         [ruby (#+)
-          <host-modules>]
-         [php (#+)
-          <host-modules>]
-         [common-lisp (#+)
-          <host-modules>]
-         [scheme (#+)
-          <host-modules>]]]]]
+     ## [tool
+     ##  [compiler
+     ##   [language
+     ##    [lux
+     ##     [phase
+     ##      [generation
+     ##       [jvm (#+)
+     ##        <host-modules>]
+     ##       [js (#+)
+     ##        <host-modules>]
+     ##       [python (#+)
+     ##        <host-modules>]
+     ##       [lua (#+)
+     ##        <host-modules>]
+     ##       [ruby (#+)
+     ##        <host-modules>]
+     ##       ## [php (#+)
+     ##       ##  <host-modules>]
+     ##       ## [common-lisp (#+)
+     ##       ##  <host-modules>]
+     ##       ## [scheme (#+)
+     ##       ##  <host-modules>]
+     ##       ]
+     ##      [extension
+     ##       [generation
+     ##        [jvm (#+)]
+     ##        [js (#+)]
+     ##        [python (#+)]
+     ##        [lua (#+)]
+     ##        [ruby (#+)]]]]]]]]
      ## [control
-     ##  ["._" concatenative]
      ##  ["._" predicate]
      ##  [function
      ##   ["._" contract]]
@@ -131,7 +140,7 @@
      ["#." macro]
      ["#." math]
      ["#." time]
-     ["#." tool]
+     ## ["#." tool]
      ["#." type]
      ["#." world]
      ["#." host]
@@ -154,8 +163,6 @@
     ($_ _.and
         (_.test "Every value is identical to itself."
                 (is? self self))
-        (_.test "The identity function doesn't change values in any way."
-                (is? self (function.identity self)))
         (do @
           [other (random.unicode 1)]
           (_.test "Values created separately can't be identical."
@@ -357,27 +364,23 @@
                            ..templates)
                        (<| (_.context "Cross-platform support.")
                            ..cross-platform-support)))
-          (!bundle ($_ _.and
-                       /abstract.test
-                       /control.test
-                       /data.test
-                       /macro.test
-                       /math.test))
-          (!bundle ($_ _.and
-                       /time.test
-                       /tool.test
-                       /type.test
-                       /world.test))
-          (!bundle ($_ _.and
-                       /host.test
-                       /extension.test
-                       ($_ _.and
-                           /target/jvm.test)))
+          (_.in-parallel (list /abstract.test
+                               /control.test
+                               /data.test
+                               /macro.test
+                               /math.test
+                               /time.test
+                               ## /tool.test
+                               /type.test
+                               /world.test
+                               /host.test
+                               /extension.test
+                               /target/jvm.test
+                               ))
           )))
 
 (program: args
   (<| io
       _.run!
-      ## (_.times 100)
-      (_.seed 8070500311708372420)
+      (_.times 100)
       ..test))
-- 
cgit v1.2.3