aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex/command
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/test/aedifex/command')
-rw-r--r--stdlib/source/test/aedifex/command/auto.lux6
-rw-r--r--stdlib/source/test/aedifex/command/build.lux4
-rw-r--r--stdlib/source/test/aedifex/command/clean.lux10
-rw-r--r--stdlib/source/test/aedifex/command/deploy.lux6
-rw-r--r--stdlib/source/test/aedifex/command/install.lux8
-rw-r--r--stdlib/source/test/aedifex/command/pom.lux2
-rw-r--r--stdlib/source/test/aedifex/command/test.lux2
7 files changed, 19 insertions, 19 deletions
diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux
index 894e647be..71608e83d 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -52,7 +52,7 @@
(atom.atom 0))]
[@runs
(function (_ console program fs shell resolution profile)
- (do {! async.monad}
+ (do [! async.monad]
[[_ actual_runs] (async.future (atom.update! ++ @runs))]
(if (n.= expected_runs actual_runs)
(in (#try.Failure end_signal))
@@ -66,7 +66,7 @@
(def: .public test
Test
(<| (_.covering /._)
- (do {! random.monad}
+ (do [! random.monad]
[end_signal (random.ascii/alpha 5)
.let [/ (\ file.default separator)
[fs watcher] (watch.mock /)]
@@ -101,7 +101,7 @@
_ (\ fs write (binary.empty 0) dummy_path)
.let [[@runs command] (..command expected_runs end_signal fs dummy_path)]
_ (\ watcher poll [])]
- (do {! async.monad}
+ (do [! async.monad]
[no_dangling_process! (|> profile
(with@ #///.compiler compiler)
((/.do! 1 watcher command)
diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux
index 3009e5011..cbdfdc929 100644
--- a/stdlib/source/test/aedifex/command/build.lux
+++ b/stdlib/source/test/aedifex/command/build.lux
@@ -139,7 +139,7 @@
(def: .public test
Test
(<| (_.covering /._)
- (do {! random.monad}
+ (do [! random.monad]
[last_read (random.ascii/alpha 5)
last_error (random.ascii/alpha 5)
.let [fs (file.mock (\ file.default separator))
@@ -224,7 +224,7 @@
shell (|> (list expected/0 expected/1 expected/2)
(..reader_shell <error?>)
shell.async)]
- (in (do {! async.monad}
+ (in (do [! async.monad]
[verdict (do ///action.monad
[process (shell [environment.empty working_directory "" (list "")])
_ (<log!> console process)
diff --git a/stdlib/source/test/aedifex/command/clean.lux b/stdlib/source/test/aedifex/command/clean.lux
index 7d7e613fe..c59b75719 100644
--- a/stdlib/source/test/aedifex/command/clean.lux
+++ b/stdlib/source/test/aedifex/command/clean.lux
@@ -42,7 +42,7 @@
(def: (files prefix)
(-> Path (Random (List [Path Binary])))
- (do {! random.monad}
+ (do [! random.monad]
[count (\ ! each (n.% 10) random.nat)
names (random.set text.hash count ..node_name)
contents (random.list count ($binary.random 100))]
@@ -55,7 +55,7 @@
(def: (create_directory! fs path files)
(-> (file.System Async) Path (List [Path Binary]) (Async (Try Any)))
- (do {! (try.with async.monad)}
+ (do [! (try.with async.monad)]
[_ (: (Async (Try Any))
(file.make_directories async.monad fs path))
_ (monad.each ! (..create_file! fs) files)]
@@ -71,7 +71,7 @@
(def: (assets_exist? fs directory_path files)
(-> (file.System Async) Path (List [Path Binary]) (Async (Try Bit)))
- (do {! (try.with async.monad)}
+ (do [! (try.with async.monad)]
[directory_exists? (..directory_exists? fs directory_path)
files_exist? (: (Action (List Bit))
(|> files
@@ -83,7 +83,7 @@
(def: .public test
Test
(<| (_.covering /._)
- (do {! random.monad}
+ (do [! random.monad]
[context ..node_name
target ..node_name
sub ..node_name
@@ -97,7 +97,7 @@
dummy @profile.random]
(in (do async.monad
[.let [console (@version.echo "")]
- verdict (do {! (try.with async.monad)}
+ verdict (do [! (try.with async.monad)]
[_ (..create_directory! fs target_path direct_files)
_ (..create_directory! fs sub_path sub_files)
context_exists!/pre (..directory_exists? fs context)
diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux
index 77af48126..93bf3de79 100644
--- a/stdlib/source/test/aedifex/command/deploy.lux
+++ b/stdlib/source/test/aedifex/command/deploy.lux
@@ -62,7 +62,7 @@
(def: .public test
Test
(<| (_.covering /._)
- (do {! random.monad}
+ (do [! random.monad]
[[artifact expected_pom profile]
(random.one (function (_ profile)
(do maybe.monad
@@ -77,8 +77,8 @@
$repository.empty)
fs (file.mock (\ file.default separator))
program (program.async (program.mock environment.empty home working_directory))]]
- (in (do {! async.monad}
- [verdict (do {! ///action.monad}
+ (in (do [! async.monad]
+ [verdict (do [! ///action.monad]
[logging (..execute! program repository fs artifact profile)
expected_library (|> profile
(value@ #///.sources)
diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index 76f8cf768..3fe787e35 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -63,7 +63,7 @@
(def: .public test
Test
(<| (_.covering /._)
- (do {! random.monad}
+ (do [! random.monad]
[identity $artifact.random
sample (\ ! each (with@ #///.identity (#.Some identity))
$profile.random)
@@ -71,14 +71,14 @@
working_directory (random.ascii/alpha 5)
.let [/ (\ file.default separator)]]
($_ _.and
- (in (do {! async.monad}
+ (in (do [! async.monad]
[.let [fs (file.mock /)
program (program.async (program.mock environment.empty home working_directory))
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}
+ verdict (do [! ///action.monad]
[succeeded! (\ ! each (text\= /.success)
(..execute! program fs sample))
library_exists! (|> library_path
@@ -94,7 +94,7 @@
pom_exists!)))]
(_.cover' [/.do! /.success]
(try.else false verdict))))
- (in (do {! async.monad}
+ (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))]
diff --git a/stdlib/source/test/aedifex/command/pom.lux b/stdlib/source/test/aedifex/command/pom.lux
index 1bac5cf69..be5c60598 100644
--- a/stdlib/source/test/aedifex/command/pom.lux
+++ b/stdlib/source/test/aedifex/command/pom.lux
@@ -36,7 +36,7 @@
(do random.monad
[sample @profile.random
.let [fs (file.mock (\ file.default separator))]]
- (in (do {! async.monad}
+ (in (do [! async.monad]
[.let [console (@version.echo "")]
outcome (/.do! console fs sample)]
(case outcome
diff --git a/stdlib/source/test/aedifex/command/test.lux b/stdlib/source/test/aedifex/command/test.lux
index 0496428a6..6f04ef653 100644
--- a/stdlib/source/test/aedifex/command/test.lux
+++ b/stdlib/source/test/aedifex/command/test.lux
@@ -42,7 +42,7 @@
(def: .public test
Test
(<| (_.covering /._)
- (do {! random.monad}
+ (do [! random.monad]
[test (random.ascii/alpha 5)
target (random.ascii/alpha 5)
home (random.ascii/alpha 5)