diff options
| author | Eduardo Julian | 2019-04-26 23:41:03 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-04-26 23:41:03 -0400 |
| commit | 5b655f558a0cc78b44736eec8eabeed6216f883f (patch) | |
| tree | 3281b361b8d363bf9cdb0e0fbc6853d547a0dc4b /new-luxc/source/test/program.lux | |
| parent | ff384c379036d790e32f419da39b1d524a1d89fe (diff) | |
Refactored the spec a bit better.
Diffstat (limited to '')
| -rw-r--r-- | new-luxc/source/test/program.lux | 60 |
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))) |