diff options
Diffstat (limited to 'stdlib/source/test/aedifex/command/build.lux')
| -rw-r--r-- | stdlib/source/test/aedifex/command/build.lux | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux index 1bb77d307..25302fa71 100644 --- a/stdlib/source/test/aedifex/command/build.lux +++ b/stdlib/source/test/aedifex/command/build.lux @@ -142,14 +142,14 @@ (do [! random.monad] [last_read (random.alphabetic 5) last_error (random.alphabetic 5) - .let [fs (file.mock (# file.default separator)) + .let [fs (file.mock (at file.default separator)) shell (shell.async (..good_shell []))] program (random.alphabetic 5) target (random.alphabetic 5) home (random.alphabetic 5) working_directory (random.alphabetic 5) .let [empty_profile (is Profile - (# ///.monoid identity)) + (at ///.monoid identity)) with_target (is (-> Profile Profile) (has ///.#target target)) with_program (is (-> Profile Profile) @@ -186,8 +186,8 @@ [_ (/.do! console (program.async (program.mock environment.empty home working_directory)) fs shell resolution (has ///.#lux compiler profile)) - start (# console read_line []) - end (# console read_line [])] + start (at console read_line []) + end (at console read_line [])] (in (and (text#= /.start start) (text#= /.success end))))] (_.coverage' [/.do! @@ -208,8 +208,8 @@ [_ (/.do! console (program.async (program.mock environment.empty home working_directory)) fs (shell.async (..bad_shell [])) resolution (has ///.#lux compiler profile)) - start (# console read_line []) - end (# console read_line [])] + start (at console read_line []) + end (at console read_line [])] (in (and (text#= /.start start) (text#= /.failure end))))] (_.coverage' [/.failure] @@ -228,17 +228,17 @@ [verdict (do ///action.monad [process (shell [environment.empty working_directory "" (list "")]) _ (<log!> console process) - actual/0 (# console read_line []) - actual/1 (# console read_line []) - actual/2 (# console read_line []) - end! (|> (# console read_line []) - (# ! each (|>> (pipe.case - {try.#Failure error} - true - - {try.#Success _} - false) - {try.#Success})))] + actual/0 (at console read_line []) + actual/1 (at console read_line []) + actual/2 (at console read_line []) + end! (|> (at console read_line []) + (at ! each (|>> (pipe.case + {try.#Failure error} + true + + {try.#Success _} + false) + {try.#Success})))] (in (and (text#= expected/0 actual/0) (text#= expected/1 actual/1) (text#= expected/2 actual/2) |