aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex
diff options
context:
space:
mode:
authorEduardo Julian2021-08-09 23:02:01 -0400
committerEduardo Julian2021-08-09 23:02:01 -0400
commit464b6e8f5e6c62f58fa8c7ff61ab2ad215e98bd1 (patch)
tree1ae9d95956cee4251cd29a3e24c246c4360d567d /stdlib/source/test/aedifex
parentf621a133e6e0a516c0586270fea8eaffb4829d82 (diff)
Improved single-line comment syntax (from "##" to "...").
Diffstat (limited to '')
-rw-r--r--stdlib/source/test/aedifex/cli.lux16
-rw-r--r--stdlib/source/test/aedifex/command/auto.lux4
-rw-r--r--stdlib/source/test/aedifex/command/install.lux4
-rw-r--r--stdlib/source/test/aedifex/dependency/deployment.lux6
-rw-r--r--stdlib/source/test/aedifex/dependency/resolution.lux6
-rw-r--r--stdlib/source/test/aedifex/repository.lux4
6 files changed, 20 insertions, 20 deletions
diff --git a/stdlib/source/test/aedifex/cli.lux b/stdlib/source/test/aedifex/cli.lux
index f59cf6619..4b5e79ac5 100644
--- a/stdlib/source/test/aedifex/cli.lux
+++ b/stdlib/source/test/aedifex/cli.lux
@@ -28,24 +28,24 @@
(def: command
(Random /.Command)
($_ random.or
- ## #Version
+ ... #Version
(random\in [])
- ## #Clean
+ ... #Clean
(random\in [])
- ## #POM
+ ... #POM
(random\in [])
- ## #Dependencies
+ ... #Dependencies
(random\in [])
- ## #Install
+ ... #Install
(random\in [])
- ## #Deploy
+ ... #Deploy
($_ random.and
(random.ascii/alpha 1)
(random.ascii/alpha 1)
(random.ascii/alpha 1))
- ## #Compilation
+ ... #Compilation
..compilation
- ## #Auto
+ ... #Auto
..compilation))
(def: (compilation_format value)
diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux
index 6a7ef98ab..074eeab5e 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -53,7 +53,7 @@
[@runs
(function (_ console program fs shell resolution profile)
(do {! async.monad}
- [[_ actual_runs] (async.future (atom.update inc @runs))]
+ [[_ actual_runs] (async.future (atom.update! inc @runs))]
(if (n.= expected_runs actual_runs)
(in (#try.Failure end_signal))
(do (try.with !)
@@ -116,7 +116,7 @@
(#try.Success _)
false))))
correct_number_of_runs! (|> @runs
- atom.read
+ atom.read!
async.future
(\ ! map (n.= expected_runs)))]
(in (#try.Success (and correct_number_of_runs!
diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index 0ca484196..a3cd99edd 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -84,11 +84,11 @@
library_exists! (|> library_path
(format home /)
(\ fs file?)
- (\ async.monad map exception.return))
+ (\ async.monad map (|>> #try.Success)))
pom_exists! (|> pom_path
(format home /)
(\ fs file?)
- (\ async.monad map exception.return))]
+ (\ async.monad map (|>> #try.Success)))]
(in (and succeeded!
library_exists!
pom_exists!)))]
diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux
index ec2ecad3d..0add3a487 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -69,7 +69,7 @@
[_ (: (IO Any)
(case [method input]
[#@http.Put (#.Some input)]
- (atom.update (dictionary.put url input) cache)
+ (atom.update! (dictionary.put url input) cache)
_
(in [])))]
@@ -158,7 +158,7 @@
repository (repository.async (remote.repository http #.None address))]]
(in (do async.monad
[?outcome (/.one repository dependency package)
- cache (async.future (atom.read cache))]
+ cache (async.future (atom.read! cache))]
(_.cover' [/.one]
(|> ?outcome
(try\map (verify_one 1 address package cache expected_artifact))
@@ -181,7 +181,7 @@
repository (repository.async (remote.repository http #.None address))]]
(in (do async.monad
[?outcome (/.all repository resolution)
- cache (async.future (atom.read cache))]
+ cache (async.future (atom.read! cache))]
(_.cover' [/.all]
(|> ?outcome
(try\map (function (_ actual_artifacts)
diff --git a/stdlib/source/test/aedifex/dependency/resolution.lux b/stdlib/source/test/aedifex/dependency/resolution.lux
index 01b57eb62..4bef34eff 100644
--- a/stdlib/source/test/aedifex/dependency/resolution.lux
+++ b/stdlib/source/test/aedifex/dependency/resolution.lux
@@ -132,7 +132,7 @@
(text.ends_with? ..pom_md5 uri)
(#try.Success [state (..md5 pom)])
- ## else
+ ... else
(#try.Failure "NOPE")))
(#try.Failure "NOPE")))
(def: (on_upload uri binary state)
@@ -185,7 +185,7 @@
(\ utf8.codec encode)
..md5)])
- ## else
+ ... else
(#try.Failure "NOPE"))
(#try.Failure "NOPE")))
(def: (on_upload uri binary state)
@@ -238,7 +238,7 @@
(\ utf8.codec encode)
..md5)])
- ## else
+ ... else
(#try.Failure "NOPE"))
(#try.Failure "NOPE")))
(def: (on_upload uri binary state)
diff --git a/stdlib/source/test/aedifex/repository.lux b/stdlib/source/test/aedifex/repository.lux
index eead05e89..478f02d7e 100644
--- a/stdlib/source/test/aedifex/repository.lux
+++ b/stdlib/source/test/aedifex/repository.lux
@@ -75,14 +75,14 @@
(#.Some content)
(case (binary.size content)
0 (exception.except ..not_found [uri])
- _ (exception.return [state content]))
+ _ (#try.Success [state content]))
#.None
(exception.except ..not_found [uri])))
(def: (on_upload uri content state)
(if (dictionary.key? state uri)
(exception.except ..cannot_upload [uri])
- (exception.return (dictionary.put uri content state)))))
+ (#try.Success (dictionary.put uri content state)))))
(def: .public test
Test