diff options
| author | Eduardo Julian | 2022-06-29 03:15:23 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-06-29 03:15:23 -0400 |
| commit | 664e02d1b5e5aa479869c4e17ec4128f5cfd04e2 (patch) | |
| tree | 7111d48d8a728ea30abfb6adb104425f61d65585 /stdlib/source/specification | |
| parent | 5232f0701cd95f260005a65d220a361dd71b6b96 (diff) | |
New "parser" hierarchy. [Part 6]
Diffstat (limited to 'stdlib/source/specification')
| -rw-r--r-- | stdlib/source/specification/lux/world/environment.lux (renamed from stdlib/source/specification/lux/world/program.lux) | 4 | ||||
| -rw-r--r-- | stdlib/source/specification/lux/world/shell.lux | 8 |
2 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/specification/lux/world/program.lux b/stdlib/source/specification/lux/world/environment.lux index b941158b4..2163fc2e1 100644 --- a/stdlib/source/specification/lux/world/program.lux +++ b/stdlib/source/specification/lux/world/environment.lux @@ -19,12 +19,12 @@ ["[0]" /]]) (def .public (spec subject) - (-> (/.Program Async) Test) + (-> (/.Environment Async) Test) (do random.monad [exit random.int] (in (do [! async.monad] [environment (/.environment ! subject)] - (_.coverage' [/.Program] + (_.coverage' [/.Environment] (and (not (dictionary.empty? environment)) (list.every? (|>> text.empty? not) (dictionary.keys environment)) diff --git a/stdlib/source/specification/lux/world/shell.lux b/stdlib/source/specification/lux/world/shell.lux index 2ac53794c..ddf544c55 100644 --- a/stdlib/source/specification/lux/world/shell.lux +++ b/stdlib/source/specification/lux/world/shell.lux @@ -7,9 +7,7 @@ [control ["[0]" try (.use "[1]#[0]" functor)] [concurrency - ["[0]" async (.only Async) (.use "[1]#[0]" monad)]] - [parser - ["[0]" environment (.only Environment)]]] + ["[0]" async (.only Async) (.use "[1]#[0]" monad)]]] [data ["[0]" product] ["[0]" text (.use "[1]#[0]" equivalence) @@ -22,7 +20,9 @@ [\\library ["[0]" / (.only) [// - [file (.only Path)]]]]) + [file (.only Path)] + ["[0]" environment + ["[1]" \\parser (.only Environment)]]]]]) (with_template [<name> <command> <type> <prep>] [(def <name> |