diff options
Diffstat (limited to 'stdlib/source/test/aedifex/command/build.lux')
| -rw-r--r-- | stdlib/source/test/aedifex/command/build.lux | 32 |
1 files changed, 8 insertions, 24 deletions
diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux index 6a911e928..74508ef3d 100644 --- a/stdlib/source/test/aedifex/command/build.lux +++ b/stdlib/source/test/aedifex/command/build.lux @@ -20,7 +20,8 @@ ["." random]] [world ["." file] - ["." shell (#+ Shell)]]] + ["." shell (#+ Shell)] + ["." program]]] ["." // #_ ["@." version] ["$/#" // #_ @@ -110,27 +111,10 @@ profile (|> empty-profile with-program - with-target) - - no-working-directory environment.empty - - environment (dictionary.put "user.dir" working-directory environment.empty)]] + with-target)]] ($_ _.and - (_.cover [/.working-directory] - (and (case (/.working-directory no-working-directory) - (#try.Success _) - false - - (#try.Failure error) - true) - (case (/.working-directory environment) - (#try.Success _) - true - - (#try.Failure error) - false))) (wrap (do promise.monad - [outcome (/.do! (@version.echo "") environment fs shell ///dependency/resolution.empty + [outcome (/.do! (@version.echo "") (program.async (program.mock environment.empty working-directory)) fs shell ///dependency/resolution.empty (with-target empty-profile))] (_.cover' [/.no-specified-program] (case outcome @@ -140,7 +124,7 @@ (#try.Failure error) (exception.match? /.no-specified-program error))))) (wrap (do promise.monad - [outcome (/.do! (@version.echo "") environment fs shell ///dependency/resolution.empty + [outcome (/.do! (@version.echo "") (program.async (program.mock environment.empty working-directory)) fs shell ///dependency/resolution.empty (with-program empty-profile))] (_.cover' [/.no-specified-target] (case outcome @@ -150,7 +134,7 @@ (#try.Failure error) (exception.match? /.no-specified-target error))))) (wrap (do promise.monad - [outcome (/.do! (@version.echo "") environment fs shell ///dependency/resolution.empty profile)] + [outcome (/.do! (@version.echo "") (program.async (program.mock environment.empty working-directory)) fs shell ///dependency/resolution.empty profile)] (_.cover' [/.Compiler /.no-available-compiler] (case outcome (#try.Success _) @@ -163,7 +147,7 @@ resolution ..resolution] (wrap (do promise.monad [verdict (do ///action.monad - [_ (/.do! console environment fs shell resolution profile) + [_ (/.do! console (program.async (program.mock environment.empty working-directory)) fs shell resolution profile) start (!.use (\ console read-line) []) end (!.use (\ console read-line) [])] (wrap (and (text\= /.start start) @@ -177,7 +161,7 @@ resolution ..resolution] (wrap (do promise.monad [verdict (do ///action.monad - [_ (/.do! console environment fs (..bad-shell []) resolution profile) + [_ (/.do! console (program.async (program.mock environment.empty working-directory)) fs (..bad-shell []) resolution profile) start (!.use (\ console read-line) []) end (!.use (\ console read-line) [])] (wrap (and (text\= /.start start) |