aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex/command
diff options
context:
space:
mode:
authorEduardo Julian2021-09-12 00:07:08 -0400
committerEduardo Julian2021-09-12 00:07:08 -0400
commitdda05bca0956af5e5b3875c4cc36e61aa04772e4 (patch)
tree0f8b27697d58ab5c8e41aba7c7c9f769d3800767 /stdlib/source/test/aedifex/command
parentd48270f43c404ba19ca04da2553455ecaaf2caba (diff)
Made the "#" character great again!
Diffstat (limited to 'stdlib/source/test/aedifex/command')
-rw-r--r--stdlib/source/test/aedifex/command/auto.lux16
-rw-r--r--stdlib/source/test/aedifex/command/build.lux78
-rw-r--r--stdlib/source/test/aedifex/command/clean.lux2
-rw-r--r--stdlib/source/test/aedifex/command/deploy.lux14
-rw-r--r--stdlib/source/test/aedifex/command/deps.lux28
-rw-r--r--stdlib/source/test/aedifex/command/install.lux12
-rw-r--r--stdlib/source/test/aedifex/command/pom.lux10
-rw-r--r--stdlib/source/test/aedifex/command/test.lux16
-rw-r--r--stdlib/source/test/aedifex/command/version.lux4
9 files changed, 90 insertions, 90 deletions
diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux
index 57aca92d2..307946212 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -55,7 +55,7 @@
(do [! async.monad]
[[_ actual_runs] (async.future (atom.update! ++ @runs))]
(if (n.= expected_runs actual_runs)
- (in {#try.Failure end_signal})
+ (in {try.#Failure end_signal})
(do (try.with !)
[_ (\ fs write (\ utf8.codec encoded (%.nat actual_runs)) dummy_file)
_ (\ fs modify
@@ -77,14 +77,14 @@
.let [empty_profile (: Profile
(\ ///.monoid identity))
with_target (: (-> Profile Profile)
- (with@ #///.target target))
+ (with@ ///.#target target))
with_program (: (-> Profile Profile)
- (with@ #///.program {#.Some program}))
+ (with@ ///.#program {.#Some program}))
profile (|> empty_profile
with_program
with_target
- (with@ #///.sources (set.of_list text.hash (list source))))]
+ (with@ ///.#sources (set.of_list text.hash (list source))))]
home (random.ascii/alpha 5)
working_directory (random.ascii/alpha 5)
@@ -103,23 +103,23 @@
_ (\ watcher poll [])]
(do [! async.monad]
[no_dangling_process! (|> profile
- (with@ #///.compiler compiler)
+ (with@ ///.#compiler compiler)
((/.do! 1 watcher command)
($version.echo "")
(program.async (program.mock environment.empty home working_directory))
fs
(shell.async ($build.good_shell []))
resolution)
- (\ ! each (|>> (case> {#try.Failure error}
+ (\ ! each (|>> (case> {try.#Failure error}
(same? end_signal error)
- {#try.Success _}
+ {try.#Success _}
false))))
correct_number_of_runs! (|> @runs
atom.read!
async.future
(\ ! each (n.= expected_runs)))]
- (in {#try.Success (and correct_number_of_runs!
+ (in {try.#Success (and correct_number_of_runs!
no_dangling_process!)})))]
(_.cover' [/.do!]
(try.else false verdict))))
diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux
index 1376d440a..ee69f1010 100644
--- a/stdlib/source/test/aedifex/command/build.lux
+++ b/stdlib/source/test/aedifex/command/build.lux
@@ -41,85 +41,85 @@
(-> Any (Shell IO))
(shell.mock
(function (_ [actual_environment actual_working_directory actual_command actual_arguments])
- {#try.Success
+ {try.#Success
(: (shell.Mock [])
(implementation
(def: (on_read state)
(exception.except shell.no_more_output []))
- (def: (on_error state)
+ (def: (on_fail state)
(exception.except shell.no_more_output []))
(def: (on_write input state)
- {#try.Failure "on_write"})
+ {try.#Failure "on_write"})
(def: (on_destroy state)
- {#try.Failure "on_destroy"})
+ {try.#Failure "on_destroy"})
(def: (on_await state)
- {#try.Success [state shell.normal]})))})))
+ {try.#Success [state shell.normal]})))})))
(def: .public bad_shell
(-> Any (Shell IO))
(shell.mock
(function (_ [actual_environment actual_working_directory actual_command actual_arguments])
- {#try.Success
+ {try.#Success
(: (shell.Mock [])
(implementation
(def: (on_read state)
(exception.except shell.no_more_output []))
- (def: (on_error state)
+ (def: (on_fail state)
(exception.except shell.no_more_output []))
(def: (on_write input state)
- {#try.Failure "on_write"})
+ {try.#Failure "on_write"})
(def: (on_destroy state)
- {#try.Failure "on_destroy"})
+ {try.#Failure "on_destroy"})
(def: (on_await state)
- {#try.Success [state shell.error]})))})))
+ {try.#Success [state shell.error]})))})))
(def: .public (reader_shell error?)
(-> Bit (-> (List Text) (Shell IO)))
(shell.mock
(function (_ [actual_environment actual_working_directory actual_command actual_arguments])
- {#try.Success
+ {try.#Success
(: (shell.Mock (List Text))
(implementation
(def: (on_read state)
(if error?
(exception.except shell.no_more_output [])
(case state
- {#.Item head tail}
- {#try.Success [tail head]}
+ {.#Item head tail}
+ {try.#Success [tail head]}
- #.End
+ {.#End}
(exception.except shell.no_more_output []))))
(def: (on_error state)
(if error?
(case state
- {#.Item head tail}
- {#try.Success [tail head]}
+ {.#Item head tail}
+ {try.#Success [tail head]}
- #.End
+ {.#End}
(exception.except shell.no_more_output []))
(exception.except shell.no_more_output [])))
(def: (on_write input state)
- {#try.Failure "on_write"})
+ {try.#Failure "on_write"})
(def: (on_destroy state)
- {#try.Failure "on_destroy"})
+ {try.#Failure "on_destroy"})
(def: (on_await state)
- {#try.Success [state shell.error]})))})))
+ {try.#Success [state shell.error]})))})))
(def: compiler
(Random Dependency)
(do random.monad
[lux_version (random.ascii/alpha 5)
- .let [js_compiler [#///dependency.artifact [#///artifact.group /.lux_group
- #///artifact.name /.js_compiler_name
- #///artifact.version lux_version]
- #///dependency.type ///artifact/type.js_library]]]
+ .let [js_compiler [///dependency.#artifact [///artifact.#group /.lux_group
+ ///artifact.#name /.js_compiler_name
+ ///artifact.#version lux_version]
+ ///dependency.#type ///artifact/type.js_library]]]
(`` ($_ random.either
(in js_compiler)
(~~ (template [<compiler>]
- [(in [#///dependency.artifact [#///artifact.group /.lux_group
- #///artifact.name <compiler>
- #///artifact.version lux_version]
- #///dependency.type ///artifact/type.lux_library])]
+ [(in [///dependency.#artifact [///artifact.#group /.lux_group
+ ///artifact.#name <compiler>
+ ///artifact.#version lux_version]
+ ///dependency.#type ///artifact/type.lux_library])]
[/.jvm_compiler_name]
[/.python_compiler_name]
@@ -151,9 +151,9 @@
.let [empty_profile (: Profile
(\ ///.monoid identity))
with_target (: (-> Profile Profile)
- (with@ #///.target target))
+ (with@ ///.#target target))
with_program (: (-> Profile Profile)
- (with@ #///.program {#.Some program}))
+ (with@ ///.#program {.#Some program}))
profile (|> empty_profile
with_program
@@ -164,19 +164,19 @@
(with_target empty_profile))]
(_.cover' [/.no_specified_program]
(case outcome
- {#try.Success _}
+ {try.#Success _}
false
- {#try.Failure error}
+ {try.#Failure error}
(exception.match? /.no_specified_program error)))))
(in (do async.monad
[outcome (/.do! (@version.echo "") (program.async (program.mock environment.empty home working_directory)) fs shell ///dependency/resolution.empty profile)]
(_.cover' [/.Compiler /.no_available_compiler]
(case outcome
- {#try.Success _}
+ {try.#Success _}
false
- {#try.Failure error}
+ {try.#Failure error}
(exception.match? /.no_available_compiler error)))))
(do !
[.let [console (@version.echo "")]
@@ -185,7 +185,7 @@
[verdict (do ///action.monad
[_ (/.do! console (program.async (program.mock environment.empty home working_directory))
fs shell resolution
- (with@ #///.compiler compiler profile))
+ (with@ ///.#compiler compiler profile))
start (\ console read_line [])
end (\ console read_line [])]
(in (and (text\= /.start start)
@@ -207,7 +207,7 @@
[verdict (do ///action.monad
[_ (/.do! console (program.async (program.mock environment.empty home working_directory))
fs (shell.async (..bad_shell [])) resolution
- (with@ #///.compiler compiler profile))
+ (with@ ///.#compiler compiler profile))
start (\ console read_line [])
end (\ console read_line [])]
(in (and (text\= /.start start)
@@ -232,12 +232,12 @@
actual/1 (\ console read_line [])
actual/2 (\ console read_line [])
end! (|> (\ console read_line [])
- (\ ! each (|>> (case> {#try.Failure error}
+ (\ ! each (|>> (case> {try.#Failure error}
true
- {#try.Success _}
+ {try.#Success _}
false)
- #try.Success)))]
+ {try.#Success})))]
(in (and (text\= expected/0 actual/0)
(text\= expected/1 actual/1)
(text\= expected/2 actual/2)
diff --git a/stdlib/source/test/aedifex/command/clean.lux b/stdlib/source/test/aedifex/command/clean.lux
index 83c3e5a80..7d3e57392 100644
--- a/stdlib/source/test/aedifex/command/clean.lux
+++ b/stdlib/source/test/aedifex/command/clean.lux
@@ -103,7 +103,7 @@
context_exists!/pre (..directory_exists? fs context)
target_exists!/pre (..assets_exist? fs target_path direct_files)
sub_exists!/pre (..assets_exist? fs sub_path sub_files)
- _ (/.do! console fs (with@ #///.target target_path dummy))
+ _ (/.do! console fs (with@ ///.#target target_path dummy))
context_exists!/post (..directory_exists? fs context)
target_exists!/post (..assets_exist? fs target_path direct_files)
sub_exists!/post (..assets_exist? fs sub_path sub_files)
diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux
index 219a2931b..0b0f8558b 100644
--- a/stdlib/source/test/aedifex/command/deploy.lux
+++ b/stdlib/source/test/aedifex/command/deploy.lux
@@ -55,7 +55,7 @@
(Async (Try Text)))
(do ///action.monad
[.let [console ($version.echo "")]
- _ ($install.make_sources! fs (value@ #///.sources profile))
+ _ ($install.make_sources! fs (value@ ///.#sources profile))
_ (/.do! console repository fs artifact profile)]
(\ console read_line [])))
@@ -66,7 +66,7 @@
[[artifact expected_pom profile]
(random.one (function (_ profile)
(do maybe.monad
- [artifact (value@ #///.identity profile)
+ [artifact (value@ ///.#identity profile)
expected_pom (try.maybe (///pom.write profile))]
(in [artifact expected_pom profile])))
$profile.random)
@@ -81,19 +81,19 @@
[verdict (do [! ///action.monad]
[logging (..execute! program repository fs artifact profile)
expected_library (|> profile
- (value@ #///.sources)
+ (value@ ///.#sources)
set.list
(export.library fs)
(\ ! 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_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 (\ 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)]
diff --git a/stdlib/source/test/aedifex/command/deps.lux b/stdlib/source/test/aedifex/command/deps.lux
index 8cf0ea05c..037a8e119 100644
--- a/stdlib/source/test/aedifex/command/deps.lux
+++ b/stdlib/source/test/aedifex/command/deps.lux
@@ -67,31 +67,31 @@
[_ dependee_package] $///package.random
[_ depender_package] $///package.random
- .let [dependee [#///dependency.artifact dependee_artifact
- #///dependency.type ///artifact/type.lux_library]
- depender [#///dependency.artifact depender_artifact
- #///dependency.type ///artifact/type.lux_library]
+ .let [dependee [///dependency.#artifact dependee_artifact
+ ///dependency.#type ///artifact/type.lux_library]
+ depender [///dependency.#artifact depender_artifact
+ ///dependency.#type ///artifact/type.lux_library]
dependee_pom (|> (\ ///.monoid identity)
- (with@ #///.identity {#.Some dependee_artifact})
+ (with@ ///.#identity {.#Some dependee_artifact})
///pom.write
try.trusted)
depender_pom (|> (\ ///.monoid identity)
- (with@ #///.identity {#.Some depender_artifact})
- (with@ #///.dependencies (set.of_list ///dependency.hash (list dependee)))
+ (with@ ///.#identity {.#Some depender_artifact})
+ (with@ ///.#dependencies (set.of_list ///dependency.hash (list dependee)))
///pom.write
try.trusted)
dependee_package (|> dependee_package
- (with@ #///package.origin {#///repository/origin.Remote ""})
- (with@ #///package.pom [dependee_pom
+ (with@ ///package.#origin {///repository/origin.#Remote ""})
+ (with@ ///package.#pom [dependee_pom
(|> dependee_pom (\ xml.codec encoded) (\ utf8.codec encoded))
- #///dependency/status.Unverified]))
+ {///dependency/status.#Unverified}]))
depender_package (|> depender_package
- (with@ #///package.origin {#///repository/origin.Remote ""})
- (with@ #///package.pom [depender_pom
+ (with@ ///package.#origin {///repository/origin.#Remote ""})
+ (with@ ///package.#pom [depender_pom
(|> depender_pom (\ xml.codec encoded) (\ utf8.codec encoded))
- #///dependency/status.Unverified]))
+ {///dependency/status.#Unverified}]))
fs (file.mock (\ file.default separator))
program (program.async (program.mock environment.empty home working_directory))]]
@@ -103,7 +103,7 @@
(dictionary.has dependee dependee_package)
(///dependency/deployment.all local))
post (|> (\ ///.monoid identity)
- (with@ #///.dependencies (set.of_list ///dependency.hash (list dependee depender)))
+ (with@ ///.#dependencies (set.of_list ///dependency.hash (list dependee depender)))
(/.do! console local
(list (///repository.mock ($///dependency/resolution.single depender_artifact depender_package)
[]))
diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index ac1a87be1..0461029fc 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -56,7 +56,7 @@
(-> (Program Async) (file.System Async) ///.Profile (Async (Try Text)))
(do ///action.monad
[.let [console ($version.echo "")]
- _ (..make_sources! fs (value@ #///.sources sample))
+ _ (..make_sources! fs (value@ ///.#sources sample))
_ (/.do! console fs (///repository/local.repository program fs) sample)]
(\ console read_line [])))
@@ -65,7 +65,7 @@
(<| (_.covering /._)
(do [! random.monad]
[identity $artifact.random
- sample (\ ! each (with@ #///.identity {#.Some identity})
+ sample (\ ! each (with@ ///.#identity {.#Some identity})
$profile.random)
home (random.ascii/alpha 5)
working_directory (random.ascii/alpha 5)
@@ -75,7 +75,7 @@
[.let [fs (file.mock /)
program (program.async (program.mock environment.empty home working_directory))
- artifact_path (///local.uri (value@ #///artifact.version identity) identity)
+ artifact_path (///local.uri (value@ ///artifact.#version identity) identity)
library_path (format artifact_path ///artifact/extension.lux_library)
pom_path (format artifact_path ///artifact/extension.pom)]
verdict (do [! ///action.monad]
@@ -84,11 +84,11 @@
library_exists! (|> library_path
(format home /)
(\ fs file?)
- (\ async.monad each (|>> #try.Success)))
+ (\ async.monad each (|>> {try.#Success})))
pom_exists! (|> pom_path
(format home /)
(\ fs file?)
- (\ async.monad each (|>> #try.Success)))]
+ (\ async.monad each (|>> {try.#Success})))]
(in (and succeeded!
library_exists!
pom_exists!)))]
@@ -97,7 +97,7 @@
(in (do [! async.monad]
[.let [fs (file.mock /)
program (program.async (program.mock environment.empty home working_directory))]
- logging (..execute! program fs (with@ #///.identity #.None sample))]
+ logging (..execute! program fs (with@ ///.#identity {.#None} sample))]
(_.cover' [/.failure]
(|> logging
(try\each (text\= /.failure))
diff --git a/stdlib/source/test/aedifex/command/pom.lux b/stdlib/source/test/aedifex/command/pom.lux
index ac080c966..76cdf8b02 100644
--- a/stdlib/source/test/aedifex/command/pom.lux
+++ b/stdlib/source/test/aedifex/command/pom.lux
@@ -40,7 +40,7 @@
[.let [console (@version.echo "")]
outcome (/.do! console fs sample)]
(case outcome
- {#try.Success _}
+ {try.#Success _}
(do !
[verdict (do ///action.monad
[expected (|> (///pom.write sample)
@@ -60,11 +60,11 @@
(_.cover' [/.do! /.success]
(try.else false verdict)))
- {#try.Failure error}
+ {try.#Failure error}
(_.cover' [/.do!]
- (case (value@ #///.identity sample)
- {#.Some _}
+ (case (value@ ///.#identity sample)
+ {.#Some _}
false
- #.None
+ {.#None}
true))))))))
diff --git a/stdlib/source/test/aedifex/command/test.lux b/stdlib/source/test/aedifex/command/test.lux
index 19ae5cd70..cee27dd27 100644
--- a/stdlib/source/test/aedifex/command/test.lux
+++ b/stdlib/source/test/aedifex/command/test.lux
@@ -50,9 +50,9 @@
.let [empty_profile (: Profile
(\ ///.monoid identity))
with_target (: (-> Profile Profile)
- (with@ #///.target target))
+ (with@ ///.#target target))
with_test (: (-> Profile Profile)
- (with@ #///.test {#.Some test}))
+ (with@ ///.#test {.#Some test}))
profile (|> empty_profile
with_test
@@ -65,7 +65,7 @@
[verdict (do ///action.monad
[_ (/.do! console (program.async (program.mock environment.empty home working_directory))
fs (shell.async (@build.good_shell [])) resolution
- (with@ #///.compiler compiler profile))
+ (with@ ///.#compiler compiler profile))
build_start (\ console read_line [])
build_end (\ console read_line [])
test_start (\ console read_line [])
@@ -83,7 +83,7 @@
[verdict (do ///action.monad
[.let [bad_shell (shell.mock
(function (_ [actual_environment actual_working_directory actual_command actual_arguments])
- {#try.Success
+ {try.#Success
(: (shell.Mock [])
(implementation
(def: (on_read state)
@@ -91,17 +91,17 @@
(def: (on_error state)
(exception.except shell.no_more_output []))
(def: (on_write input state)
- {#try.Failure "on_write"})
+ {try.#Failure "on_write"})
(def: (on_destroy state)
- {#try.Failure "on_destroy"})
+ {try.#Failure "on_destroy"})
(def: (on_await state)
- {#try.Success [state (if (list.any? (text\= "build") actual_arguments)
+ {try.#Success [state (if (list.any? (text\= "build") actual_arguments)
shell.normal
shell.error)]})))})
[])]
_ (/.do! console (program.async (program.mock environment.empty home working_directory))
fs (shell.async bad_shell) resolution
- (with@ #///.compiler compiler profile))
+ (with@ ///.#compiler compiler profile))
build_start (\ console read_line [])
build_end (\ console read_line [])
test_start (\ console read_line [])
diff --git a/stdlib/source/test/aedifex/command/version.lux b/stdlib/source/test/aedifex/command/version.lux
index 6cd59b3a5..583e21fcd 100644
--- a/stdlib/source/test/aedifex/command/version.lux
+++ b/stdlib/source/test/aedifex/command/version.lux
@@ -50,11 +50,11 @@
(exception.except ..console_is_closed! [])))
(def: (on_write input [open? state])
(if open?
- {#try.Success [open? (format state input)]}
+ {try.#Success [open? (format state input)]}
(exception.except ..console_is_closed! [])))
(def: (on_close [open? buffer])
(if open?
- {#try.Success [false buffer]}
+ {try.#Success [false buffer]}
(exception.except ..console_is_closed! []))))
(def: .public echo