aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex/command/deploy.lux
diff options
context:
space:
mode:
authorEduardo Julian2021-09-12 15:39:55 -0400
committerEduardo Julian2021-09-12 15:39:55 -0400
commit2dbbaaec93a53f8dd0b96a0028b9cf125c9066cd (patch)
tree14bc8b5abe09b46ef005c3ff7cf132f1d98ddf0d /stdlib/source/test/aedifex/command/deploy.lux
parentdda05bca0956af5e5b3875c4cc36e61aa04772e4 (diff)
Re-named \ => # && \\ => ##
Diffstat (limited to 'stdlib/source/test/aedifex/command/deploy.lux')
-rw-r--r--stdlib/source/test/aedifex/command/deploy.lux40
1 files changed, 20 insertions, 20 deletions
diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux
index 0b0f8558b..68e4de22c 100644
--- a/stdlib/source/test/aedifex/command/deploy.lux
+++ b/stdlib/source/test/aedifex/command/deploy.lux
@@ -12,8 +12,8 @@
[parser
["[0]" environment]]]
[data
- ["[0]" binary ("[1]\[0]" equivalence)]
- ["[0]" text ("[1]\[0]" equivalence)
+ ["[0]" binary ("[1]#[0]" equivalence)]
+ ["[0]" text ("[1]#[0]" equivalence)
["%" format {"+" [format]}]
[encoding
["[0]" utf8]]]
@@ -57,7 +57,7 @@
[.let [console ($version.echo "")]
_ ($install.make_sources! fs (value@ ///.#sources profile))
_ (/.do! console repository fs artifact profile)]
- (\ console read_line [])))
+ (# console read_line [])))
(def: .public test
Test
@@ -75,7 +75,7 @@
working_directory (random.ascii/alpha 5)
.let [repository (///repository.mock $repository.mock
$repository.empty)
- fs (file.mock (\ file.default separator))
+ fs (file.mock (# file.default separator))
program (program.async (program.mock environment.empty home working_directory))]]
(in (do [! async.monad]
[verdict (do [! ///action.monad]
@@ -84,39 +84,39 @@
(value@ ///.#sources)
set.list
(export.library fs)
- (\ ! each (format.result tar.writer)))
+ (# ! each (format.result tar.writer)))
- actual_pom (\ repository download (///repository/remote.uri (value@ ///artifact.#version artifact) artifact ///artifact/extension.pom))
- actual_library (\ repository download (///repository/remote.uri (value@ ///artifact.#version artifact) artifact ///artifact/extension.lux_library))
- actual_sha-1 (\ repository download (///repository/remote.uri (value@ ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.sha-1)))
- actual_sha-1 (\ async.monad in
+ actual_pom (# repository download (///repository/remote.uri (value@ ///artifact.#version artifact) artifact ///artifact/extension.pom))
+ actual_library (# repository download (///repository/remote.uri (value@ ///artifact.#version artifact) artifact ///artifact/extension.lux_library))
+ actual_sha-1 (# repository download (///repository/remote.uri (value@ ///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 (\ repository download (///repository/remote.uri (value@ ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.md5)))
- actual_md5 (\ async.monad in
+ [actual_sha-1 (# utf8.codec decoded actual_sha-1)]
+ (# ///hash.sha-1_codec decoded actual_sha-1)))
+ actual_md5 (# repository download (///repository/remote.uri (value@ ///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_md5 (# utf8.codec decoded actual_md5)]
+ (# ///hash.md5_codec decoded actual_md5)))
.let [succeeded!
- (text\= /.success logging)
+ (text#= /.success logging)
deployed_library!
- (binary\= expected_library
+ (binary#= expected_library
actual_library)
deployed_pom!
- (binary\= (|> expected_pom (\ xml.codec encoded) (\ utf8.codec encoded))
+ (binary#= (|> expected_pom (# xml.codec encoded) (# utf8.codec encoded))
actual_pom)
deployed_sha-1!
- (\ ///hash.equivalence =
+ (# ///hash.equivalence =
(///hash.sha-1 expected_library)
actual_sha-1)
deployed_md5!
- (\ ///hash.equivalence =
+ (# ///hash.equivalence =
(///hash.md5 expected_library)
actual_md5)]]
(in (and succeeded!