diff options
author | Eduardo Julian | 2020-12-10 07:28:48 -0400 |
---|---|---|
committer | Eduardo Julian | 2020-12-10 07:28:48 -0400 |
commit | d747aada2d6df6538d0a88d70169f3757aef50af (patch) | |
tree | c26b4350cfa8a256814bb9805525325842bd5ab3 /stdlib/source/test/aedifex/command/auto.lux | |
parent | 14287585025b2d8fff1991691def9e643b039ac8 (diff) |
Updated Lux license to v0.1.1.
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/aedifex/command/auto.lux | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux index e8f6d17f1..48b2a7eb3 100644 --- a/stdlib/source/test/aedifex/command/auto.lux +++ b/stdlib/source/test/aedifex/command/auto.lux @@ -26,6 +26,7 @@ [world [console (#+ Console)] ["." shell (#+ Shell)] + ["." program (#+ Program)] ["." file (#+ Path) ["." watch]]]] ["." // #_ @@ -49,11 +50,11 @@ (def: (command end-signal dummy-files) (-> Text (List Path) [(Atom [Nat (List Path)]) - (-> (Console Promise) Environment (file.System Promise) (Shell Promise) Resolution (Command Any))]) + (-> (Console Promise) (Program Promise) (file.System Promise) (Shell Promise) Resolution (Command Any))]) (let [@runs (: (Atom [Nat (List Path)]) (atom.atom [0 dummy-files]))] [@runs - (function (_ console environment fs shell resolution profile) + (function (_ console program fs shell resolution profile) (do {! promise.monad} [[runs remaining-files] (promise.future (atom.update (function (_ [runs remaining-files]) @@ -95,9 +96,7 @@ profile (|> empty-profile with-program with-target - (set@ #///.sources (set.from-list text.hash (list source)))) - - environment (dictionary.put "user.dir" working-directory environment.empty)] + (set@ #///.sources (set.from-list text.hash (list source))))] resolution @build.resolution] ($_ _.and (wrap (do promise.monad @@ -106,7 +105,13 @@ _ (!.use (\ fs create-directory) [source]) _ (\ watcher poll [])] (do promise.monad - [outcome ((/.do! watcher command) (@version.echo "") environment fs (@build.good-shell []) resolution profile) + [outcome ((/.do! watcher command) + (@version.echo "") + (program.async (program.mock environment.empty working-directory)) + fs + (@build.good-shell []) + resolution + profile) [actual-runs _] (promise.future (atom.read @runs))] (wrap (#try.Success (and (n.= expected-runs actual-runs) (case outcome |