aboutsummaryrefslogtreecommitdiff
path: root/new-luxc
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--new-luxc/source/test/program.lux60
1 files changed, 4 insertions, 56 deletions
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)))