diff options
Diffstat (limited to 'stdlib/source/test/aedifex/command/deploy.lux')
| -rw-r--r-- | stdlib/source/test/aedifex/command/deploy.lux | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux index 88da67576..d970427d2 100644 --- a/stdlib/source/test/aedifex/command/deploy.lux +++ b/stdlib/source/test/aedifex/command/deploy.lux @@ -62,7 +62,7 @@ (implementation (def (execute [environment working_directory command arguments]) (do [! ///action.monad] - [files (at fs directory_files working_directory) + [files (of fs directory_files working_directory) _ (monad.each ! (function (_ file) (do ! @@ -94,8 +94,8 @@ [.let [console ($version.echo "")] _ ($install.make_sources! fs (the ///.#sources profile)) _ (/.do! program (..shell fs) console local remote fs artifact profile) - locally_installed! (at console read_line []) - deployed! (at console read_line [])] + locally_installed! (of console read_line []) + deployed! (of console read_line [])] (in [locally_installed! deployed!]))) (def .public test @@ -112,7 +112,7 @@ home (random.alphabetic 5) working_directory (random.alphabetic 5) - .let [fs (file.mock (at file.default separator)) + .let [fs (file.mock (of file.default separator)) program (program.async (program.mock environment.empty home working_directory)) local (///repository/local.repository program fs) remote (///repository.mock $repository.mock @@ -124,20 +124,20 @@ (the ///.#sources) set.list (export.library fs) - (at ! each (\\format.result tar.format))) + (of ! each (\\format.result tar.format))) - actual_pom (at remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact ///artifact/extension.pom)) - actual_library (at remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact ///artifact/extension.lux_library)) - actual_sha1 (at remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.sha1))) - actual_sha1 (at async.monad in + actual_pom (of remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact ///artifact/extension.pom)) + actual_library (of remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact ///artifact/extension.lux_library)) + actual_sha1 (of remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.sha1))) + actual_sha1 (of async.monad in (do try.monad - [actual_sha1 (at utf8.codec decoded actual_sha1)] - (at ///hash.sha1_codec decoded actual_sha1))) - actual_md5 (at remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.md5))) - actual_md5 (at async.monad in + [actual_sha1 (of utf8.codec decoded actual_sha1)] + (of ///hash.sha1_codec decoded actual_sha1))) + actual_md5 (of remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.md5))) + actual_md5 (of async.monad in (do try.monad - [actual_md5 (at utf8.codec decoded actual_md5)] - (at ///hash.md5_codec decoded actual_md5))) + [actual_md5 (of utf8.codec decoded actual_md5)] + (of ///hash.md5_codec decoded actual_md5))) .let [succeeded! (and (text#= //install.success locally_installed!) @@ -148,16 +148,16 @@ actual_library) deployed_pom! - (binary#= (|> expected_pom (at xml.codec encoded) (at utf8.codec encoded)) + (binary#= (|> expected_pom (of xml.codec encoded) (of utf8.codec encoded)) actual_pom) deployed_sha1! - (at ///hash.equivalence = + (of ///hash.equivalence = (///hash.sha1 expected_library) actual_sha1) deployed_md5! - (at ///hash.equivalence = + (of ///hash.equivalence = (///hash.md5 expected_library) actual_md5)]] (in (and succeeded! |