diff options
Diffstat (limited to 'stdlib/source/test/aedifex/command/install.lux')
| -rw-r--r-- | stdlib/source/test/aedifex/command/install.lux | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux index d942a9d17..5127ca1fc 100644 --- a/stdlib/source/test/aedifex/command/install.lux +++ b/stdlib/source/test/aedifex/command/install.lux @@ -42,7 +42,7 @@ (def .public (make_sources! fs sources) (-> (file.System Async) (Set file.Path) (Action (List Any))) - (let [/ (at fs separator) + (let [/ (of fs separator) ! ///action.monad] (|> sources set.list @@ -59,18 +59,18 @@ [.let [console ($version.echo "")] _ (..make_sources! fs (the ///.#sources sample)) _ (/.do! console fs (///repository/local.repository program fs) sample)] - (at console read_line []))) + (of console read_line []))) (def .public test Test (<| (_.covering /._) (do [! random.monad] [identity $artifact.random - sample (at ! each (has ///.#identity {.#Some identity}) + sample (of ! each (has ///.#identity {.#Some identity}) $profile.random) home (random.alphabetic 5) working_directory (random.alphabetic 5) - .let [/ (at file.default separator)]] + .let [/ (of file.default separator)]] (all _.and (in (do [! async.monad] [.let [fs (file.mock /) @@ -80,16 +80,16 @@ library_path (format artifact_path ///artifact/extension.lux_library) pom_path (format artifact_path ///artifact/extension.pom)] verdict (do [! ///action.monad] - [succeeded! (at ! each (text#= /.success) + [succeeded! (of ! each (text#= /.success) (..execute! program fs sample)) library_exists! (|> library_path (format home /) - (at fs file?) - (at async.monad each (|>> {try.#Success}))) + (of fs file?) + (of async.monad each (|>> {try.#Success}))) pom_exists! (|> pom_path (format home /) - (at fs file?) - (at async.monad each (|>> {try.#Success})))] + (of fs file?) + (of async.monad each (|>> {try.#Success})))] (in (and succeeded! library_exists! pom_exists!)))] |