From 5b655f558a0cc78b44736eec8eabeed6216f883f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 26 Apr 2019 23:41:03 -0400
Subject: Refactored the spec a bit better.

---
 new-luxc/source/test/program.lux | 60 +++-------------------------------------
 1 file changed, 4 insertions(+), 56 deletions(-)

(limited to 'new-luxc/source/test/program.lux')

diff --git a/new-luxc/source/test/program.lux b/new-luxc/source/test/program.lux
index 5600c323d..270f9005d 100644
--- a/new-luxc/source/test/program.lux
+++ b/new-luxc/source/test/program.lux
@@ -1,70 +1,18 @@
 (.module:
   [lux #*
    ["_" test (#+ Test)]
-   [abstract
-    [monad (#+ do)]]
    [control
     ["." io]
     [parser
-     [cli (#+ program:)]]]
-   [data
-    ["." error]]
-   [math
-    ["r" random]]]
+     [cli (#+ program:)]]]]
   [spec
-   ["." compositor (#+ Runner Definer)
-    [generation
-     ["." primitive]
-     ["." structure]
-     ["." reference]
-     ["." case]
-     ["." function]
-     ["." common]]]]
+   ["." compositor]]
   {1
-   ["." /]}
-  ## [test
-  ##  [luxc
-  ##   [lang
-  ##    [translation
-  ##     ## ["_.T" jvm]
-  ##     ## ["_.T" js]
-  ##     ## ["_.T" lua]
-  ##     ## ["_.T" ruby]
-  ##     ## ["_.T" python]
-  ##     ## ["_.T" r]
-  ##     ## ["_.T" scheme]
-  ##     ## ["_.T" common-lisp]
-  ##     ## ["_.T" php]
-  ##     ]]]]
-  )
-
-(def: (test runner definer)
-  (-> Runner Definer Test)
-  ($_ _.and
-      (primitive.spec runner)
-      (structure.spec runner)
-      (reference.spec runner definer)
-      (case.spec runner)
-      (function.spec runner)
-      (common.spec runner)
-      ))
+   ["." /]})
 
 (program: args
   (<| io.io
       _.run!
       ## (_.times 100)
       (_.seed 1985013625126912890)
-      (do r.monad
-        [_ (wrap [])
-         #let [?runner,definer (io.run (do io.monad
-                                         [platform /.jvm]
-                                         (compositor.executors platform
-                                                               /.bundle
-                                                               /.expander
-                                                               /.program)))]]
-        (case ?runner,definer
-          (#error.Success [runner definer])
-          (..test runner definer)
-
-          (#error.Failure error)
-          (_.fail error)))))
+      (compositor.spec /.jvm /.bundle /.expander /.program)))
-- 
cgit v1.2.3