diff options
Diffstat (limited to 'stdlib/source/test/aedifex/command/test.lux')
| -rw-r--r-- | stdlib/source/test/aedifex/command/test.lux | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/stdlib/source/test/aedifex/command/test.lux b/stdlib/source/test/aedifex/command/test.lux index 43c70d8ba..f87e70e85 100644 --- a/stdlib/source/test/aedifex/command/test.lux +++ b/stdlib/source/test/aedifex/command/test.lux @@ -19,7 +19,8 @@ ["." random]] [world ["." file] - ["." shell]]] + ["." shell] + ["." program]]] ["." // #_ ["@." version] ["@." build] @@ -53,18 +54,14 @@ profile (|> empty-profile with-program - with-target) - - no-working-directory environment.empty - - environment (dictionary.put "user.dir" working-directory environment.empty)] + with-target)] resolution @build.resolution] ($_ _.and (let [fs (file.mock (\ file.default separator)) console (@version.echo "")] (wrap (do promise.monad [verdict (do ///action.monad - [_ (/.do! console environment fs (@build.good-shell []) resolution profile) + [_ (/.do! console (program.async (program.mock environment.empty working-directory)) fs (@build.good-shell []) resolution profile) build-start (!.use (\ console read-line) []) build-end (!.use (\ console read-line) []) test-start (!.use (\ console read-line) []) @@ -98,7 +95,7 @@ shell.normal shell.error)])))))) [])] - _ (/.do! console environment fs bad-shell resolution profile) + _ (/.do! console (program.async (program.mock environment.empty working-directory)) fs bad-shell resolution profile) build-start (!.use (\ console read-line) []) build-end (!.use (\ console read-line) []) test-start (!.use (\ console read-line) []) |