From 706ce9e4916b65c4df5101bd3cc1b4da3b2057af Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 9 Jan 2021 12:58:50 -0400
Subject: Turned I64 and variant creation functions into constructors for JS.

---
 stdlib/source/test/lux.lux | 117 ++++++++++++++++++++++++---------------------
 1 file changed, 62 insertions(+), 55 deletions(-)

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

diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux
index 2fb01ad72..f1200381a 100644
--- a/stdlib/source/test/lux.lux
+++ b/stdlib/source/test/lux.lux
@@ -1,42 +1,46 @@
-(.module:
-  ["/" lux #*
-   [program (#+ program:)]
-   ["_" test (#+ Test)]
-   ["@" target]
-   [abstract
-    [monad (#+ do)]
-    [predicate (#+ Predicate)]]
-   [control
-    ["." io (#+ io)]]
-   [data
-    ["." name]
-    [text
-     ["%" format (#+ format)]]]
-   ["." math
-    ["." random (#+ Random) ("#\." functor)]
-    [number
-     ["n" nat]
-     ["i" int]
-     ["r" rev]
-     ["f" frac]
-     ["." i64]]]]
-  ## TODO: Must have 100% coverage on tests.
-  ["." / #_
-   ["#." abstract]
-   ["#." control]
-   ["#." data]
-   ["#." locale]
-   ["#." macro]
-   ["#." math]
-   ["#." meta]
-   ["#." time]
-   ## ["#." tool]
-   ["#." type]
-   ["#." world]
-   ["#." host]
-   ["#." extension]
-   ["#." target #_
-    ["#/." jvm]]])
+(.with_expansions [<target>' (.for {"{old}" (.as_is ["#/." jvm])
+                                    "JVM" (.as_is ["#/." jvm])}
+                                   (.as_is))
+                   <target> <target>']
+  (.module:
+    ["/" lux #*
+     [program (#+ program:)]
+     ["_" test (#+ Test)]
+     ["@" target]
+     [abstract
+      [monad (#+ do)]
+      [predicate (#+ Predicate)]]
+     [control
+      ["." io (#+ io)]]
+     [data
+      ["." name]
+      [text
+       ["%" format (#+ format)]]]
+     ["." math
+      ["." random (#+ Random) ("#\." functor)]
+      [number
+       ["n" nat]
+       ["i" int]
+       ["r" rev]
+       ["f" frac]
+       ["." i64]]]]
+    ## TODO: Must have 100% coverage on tests.
+    ["." / #_
+     ["#." abstract]
+     ["#." control]
+     ["#." data]
+     ["#." locale]
+     ["#." macro]
+     ["#." math]
+     ["#." meta]
+     ["#." time]
+     ## ["#." tool]
+     ["#." type]
+     ["#." world]
+     ["#." host]
+     ["#." extension]
+     ["#." target #_
+      <target>]]))
 
 ## TODO: Get rid of this ASAP
 (template: (!bundle body)
@@ -211,22 +215,25 @@
 
 (def: sub_tests
   Test
-  (_.in_parallel (list& /abstract.test
-                        /control.test
-                        /data.test
-                        /locale.test
-                        /macro.test
-                        /math.test
-                        /meta.test
-                        /time.test
-                        ## /tool.test
-                        /type.test
-                        /world.test
-                        /host.test
-                        /target/jvm.test
-                        (for {@.old (list)}
-                             (list /extension.test))
-                        )))
+  (let [tail (: (List Test)
+                (for {@.old (list)}
+                     (list /extension.test)))]
+    (_.in_parallel (list& /abstract.test
+                          /control.test
+                          /data.test
+                          /locale.test
+                          /macro.test
+                          /math.test
+                          /meta.test
+                          /time.test
+                          ## /tool.test
+                          /type.test
+                          /world.test
+                          /host.test
+                          (for {@.jvm (#.Cons /target/jvm.test tail)
+                                @.old (#.Cons /target/jvm.test tail)}
+                               tail)
+                          ))))
 
 (def: test
   (<| (_.context (name.module (name_of /._)))
-- 
cgit v1.2.3