diff options
Diffstat (limited to 'stdlib/source/test/aedifex/command/deploy.lux')
| -rw-r--r-- | stdlib/source/test/aedifex/command/deploy.lux | 44 |
1 files changed, 22 insertions, 22 deletions
diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux index 0a4e08166..d62e027dd 100644 --- a/stdlib/source/test/aedifex/command/deploy.lux +++ b/stdlib/source/test/aedifex/command/deploy.lux @@ -62,7 +62,7 @@ shell (shell.async ($build.bad_shell []))] _ ($install.make_sources! fs (the ///.#sources profile)) _ (/.do! program shell console local remote fs artifact profile)] - (# console read_line []))) + (at console read_line []))) (def: .public test Test @@ -78,7 +78,7 @@ home (random.alphabetic 5) working_directory (random.alphabetic 5) - .let [fs (file.mock (# file.default separator)) + .let [fs (file.mock (at file.default separator)) program (program.async (program.mock environment.empty home working_directory)) local (///repository/local.repository program fs) remote (///repository.mock $repository.mock @@ -90,20 +90,20 @@ (the ///.#sources) set.list (export.library fs) - (# ! each (format.result tar.writer))) + (at ! each (format.result tar.writer))) - actual_pom (# remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact ///artifact/extension.pom)) - actual_library (# remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact ///artifact/extension.lux_library)) - actual_sha-1 (# remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.sha-1))) - actual_sha-1 (# async.monad in - (do try.monad - [actual_sha-1 (# utf8.codec decoded actual_sha-1)] - (# ///hash.sha-1_codec decoded actual_sha-1))) - actual_md5 (# remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.md5))) - actual_md5 (# async.monad in - (do try.monad - [actual_md5 (# utf8.codec decoded actual_md5)] - (# ///hash.md5_codec decoded actual_md5))) + 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_sha-1 (at remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.sha-1))) + actual_sha-1 (at async.monad in + (do try.monad + [actual_sha-1 (at utf8.codec decoded actual_sha-1)] + (at ///hash.sha-1_codec decoded actual_sha-1))) + 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 + (do try.monad + [actual_md5 (at utf8.codec decoded actual_md5)] + (at ///hash.md5_codec decoded actual_md5))) .let [succeeded! (text#= /.success logging) @@ -113,18 +113,18 @@ actual_library) deployed_pom! - (binary#= (|> expected_pom (# xml.codec encoded) (# utf8.codec encoded)) + (binary#= (|> expected_pom (at xml.codec encoded) (at utf8.codec encoded)) actual_pom) deployed_sha-1! - (# ///hash.equivalence = - (///hash.sha-1 expected_library) - actual_sha-1) + (at ///hash.equivalence = + (///hash.sha-1 expected_library) + actual_sha-1) deployed_md5! - (# ///hash.equivalence = - (///hash.md5 expected_library) - actual_md5)]] + (at ///hash.equivalence = + (///hash.md5 expected_library) + actual_md5)]] (in (and succeeded! deployed_library! deployed_pom! |