diff options
| author | Eduardo Julian | 2021-08-07 02:20:09 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-08-07 02:20:09 -0400 |
| commit | 17e7566be51df5e428a6b10e6469201a8a9468da (patch) | |
| tree | 0d4ed80c9c9d846784b5bf460f6e6f5fc5b96663 /stdlib/source/test/aedifex/dependency | |
| parent | eff4c59794868b89d60fdc411f9b544a270b817e (diff) | |
Made the be/de macros for (co)monadic expression extensible.
Diffstat (limited to 'stdlib/source/test/aedifex/dependency')
| -rw-r--r-- | stdlib/source/test/aedifex/dependency/deployment.lux | 10 | ||||
| -rw-r--r-- | stdlib/source/test/aedifex/dependency/resolution.lux | 12 |
2 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux index 9c575ff53..8c1e2e61a 100644 --- a/stdlib/source/test/aedifex/dependency/deployment.lux +++ b/stdlib/source/test/aedifex/dependency/deployment.lux @@ -135,7 +135,7 @@ (Random [Dependency Artifact Package]) (do random.monad [[profile package] $///package.random - #let [artifact (|> profile + .let [artifact (|> profile (get@ #profile.identity) maybe.assume) dependency (: Dependency @@ -152,7 +152,7 @@ ($_ _.and (do {! random.monad} [[dependency expected_artifact package] ..bundle - #let [cache (: Cache + .let [cache (: Cache (atom.atom (dictionary.empty text.hash))) http (..http cache) repository (repository.async (remote.repository http #.None address))]] @@ -164,14 +164,14 @@ (try\map (verify_one 1 address package cache expected_artifact)) (try.else false)))))) (do {! random.monad} - [#let [hash (: (Hash [Dependency Artifact Package]) + [.let [hash (: (Hash [Dependency Artifact Package]) (\ hash.functor map (|>> product.right product.left product.left) text.hash))] num_bundles (\ ! map (n.% 10) random.nat) bundles (|> ..bundle (random.set hash num_bundles) - (\ ! map set.to_list)) - #let [resolution (list\fold (function (_ [dependency expected_artifact package] resolution) + (\ ! map set.list)) + .let [resolution (list\fold (function (_ [dependency expected_artifact package] resolution) (dictionary.put dependency package resolution)) resolution.empty bundles) diff --git a/stdlib/source/test/aedifex/dependency/resolution.lux b/stdlib/source/test/aedifex/dependency/resolution.lux index fa0391761..89e16691d 100644 --- a/stdlib/source/test/aedifex/dependency/resolution.lux +++ b/stdlib/source/test/aedifex/dependency/resolution.lux @@ -254,7 +254,7 @@ (\ ///package.equivalence = expected_package) not) $///package.random) - #let [good (..single expected_artifact expected_package) + .let [good (..single expected_artifact expected_package) bad_sha-1 (..bad_sha-1 expected_artifact expected_package dummy_package) bad_md5 (..bad_md5 expected_artifact expected_package dummy_package)]] (`` ($_ _.and @@ -299,12 +299,12 @@ (\ ///package.equivalence = expected_package) not) $///package.random) - #let [good (..single expected_artifact expected_package) + .let [good (..single expected_artifact expected_package) bad_sha-1 (..bad_sha-1 expected_artifact expected_package dummy_package) bad_md5 (..bad_md5 expected_artifact expected_package dummy_package)]] ($_ _.and (in (do async.monad - [#let [console ($///version.echo "")] + [.let [console ($///version.echo "")] actual_package (/.any console (list (///repository.mock bad_sha-1 []) (///repository.mock bad_md5 []) @@ -321,7 +321,7 @@ (#try.Failure _) false)))) (in (do async.monad - [#let [console ($///version.echo "")] + [.let [console ($///version.echo "")] actual_package (/.any console (list (///repository.mock bad_sha-1 []) (///repository.mock bad_md5 [])) @@ -358,7 +358,7 @@ [_ depender_package] $///package.random [_ ignored_package] $///package.random - #let [dependee {#///dependency.artifact dependee_artifact + .let [dependee {#///dependency.artifact dependee_artifact #///dependency.type ///artifact/type.lux_library} depender {#///dependency.artifact depender_artifact #///dependency.type ///artifact/type.lux_library} @@ -407,7 +407,7 @@ (..packages [dependee_artifact depender_artifact ignored_artifact])] ($_ _.and (in (do async.monad - [#let [console ($///version.echo "")] + [.let [console ($///version.echo "")] [successes failures resolution] (/.all console (list (///repository.mock (..single dependee_artifact dependee_package) []) (///repository.mock (..single depender_artifact depender_package) []) |