aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex/dependency
diff options
context:
space:
mode:
authorEduardo Julian2022-06-04 19:34:42 -0400
committerEduardo Julian2022-06-04 19:34:42 -0400
commitf9e33ae96aec4741385a576719786092c9e68043 (patch)
tree140057dfc054346eab721f9905f0f0fff22ad933 /stdlib/source/test/aedifex/dependency
parent56d2835d35093e2d92c5e8a4371aa322b55e037b (diff)
De-sigil-ification: #
Diffstat (limited to 'stdlib/source/test/aedifex/dependency')
-rw-r--r--stdlib/source/test/aedifex/dependency/deployment.lux12
-rw-r--r--stdlib/source/test/aedifex/dependency/resolution.lux70
2 files changed, 41 insertions, 41 deletions
diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux
index ab15af81c..794464839 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -147,8 +147,8 @@
Test
(<| (_.covering /._)
(do [! random.monad]
- [address (# ! each (text.suffix uri.separator)
- (random.upper_case 10))]
+ [address (at ! each (text.suffix uri.separator)
+ (random.upper_case 10))]
(all _.and
(do [! random.monad]
[[dependency expected_artifact package] ..bundle
@@ -165,12 +165,12 @@
(try.else false))))))
(do [! random.monad]
[.let [hash (is (Hash [Dependency Artifact Package])
- (# hash.functor each (|>> product.right product.left product.left)
- text.hash))]
- num_bundles (# ! each (n.% 10) random.nat)
+ (at hash.functor each (|>> product.right product.left product.left)
+ text.hash))]
+ num_bundles (at ! each (n.% 10) random.nat)
bundles (|> ..bundle
(random.set hash num_bundles)
- (# ! each set.list))
+ (at ! each set.list))
.let [resolution (list#mix (function (_ [dependency expected_artifact package] resolution)
(dictionary.has dependency package resolution))
resolution.empty
diff --git a/stdlib/source/test/aedifex/dependency/resolution.lux b/stdlib/source/test/aedifex/dependency/resolution.lux
index eaec8b475..aeeb49cb2 100644
--- a/stdlib/source/test/aedifex/dependency/resolution.lux
+++ b/stdlib/source/test/aedifex/dependency/resolution.lux
@@ -77,14 +77,14 @@
(def: sha-1
(-> Binary Binary)
(|>> ///hash.sha-1
- (# ///hash.sha-1_codec encoded)
- (# utf8.codec encoded)))
+ (at ///hash.sha-1_codec encoded)
+ (at utf8.codec encoded)))
(def: md5
(-> Binary Binary)
(|>> ///hash.md5
- (# ///hash.md5_codec encoded)
- (# utf8.codec encoded)))
+ (at ///hash.md5_codec encoded)
+ (at utf8.codec encoded)))
(def: .public nope
(Mock Any)
@@ -112,8 +112,8 @@
(|> package
(the ///package.#pom)
product.left
- (# xml.codec encoded)
- (# utf8.codec encoded)))]
+ (at xml.codec encoded)
+ (at utf8.codec encoded)))]
(cond (text.ends_with? ///artifact/extension.lux_library uri)
{try.#Success [state library]}
@@ -166,23 +166,23 @@
{try.#Success [state (|> expected_package
(the ///package.#pom)
product.left
- (# xml.codec encoded)
- (# utf8.codec encoded))]}
+ (at xml.codec encoded)
+ (at utf8.codec encoded))]}
(text.ends_with? ..pom_sha-1 uri)
{try.#Success [state (|> dummy_package
(the ///package.#pom)
product.left
- (# xml.codec encoded)
- (# utf8.codec encoded)
+ (at xml.codec encoded)
+ (at utf8.codec encoded)
..sha-1)]}
(text.ends_with? ..pom_md5 uri)
{try.#Success [state (|> expected_package
(the ///package.#pom)
product.left
- (# xml.codec encoded)
- (# utf8.codec encoded)
+ (at xml.codec encoded)
+ (at utf8.codec encoded)
..md5)]}
... else
@@ -219,23 +219,23 @@
{try.#Success [state (|> expected_package
(the ///package.#pom)
product.left
- (# xml.codec encoded)
- (# utf8.codec encoded))]}
+ (at xml.codec encoded)
+ (at utf8.codec encoded))]}
(text.ends_with? ..pom_sha-1 uri)
{try.#Success [state (|> expected_package
(the ///package.#pom)
product.left
- (# xml.codec encoded)
- (# utf8.codec encoded)
+ (at xml.codec encoded)
+ (at utf8.codec encoded)
..sha-1)]}
(text.ends_with? ..pom_md5 uri)
{try.#Success [state (|> dummy_package
(the ///package.#pom)
product.left
- (# xml.codec encoded)
- (# utf8.codec encoded)
+ (at xml.codec encoded)
+ (at utf8.codec encoded)
..md5)]}
... else
@@ -251,7 +251,7 @@
[_ expected_package] $///package.random
[_ dummy_package] (random.only (|>> product.right
(has ///package.#pom (the ///package.#pom expected_package))
- (# ///package.equivalence = expected_package)
+ (at ///package.equivalence = expected_package)
not)
$///package.random)
.let [good (..single expected_artifact expected_package)
@@ -265,9 +265,9 @@
(_.coverage' [/.one]
(case actual_package
{try.#Success actual_package}
- (# ///package.equivalence =
- (has ///package.#origin {///repository/origin.#Remote ""} expected_package)
- actual_package)
+ (at ///package.equivalence =
+ (has ///package.#origin {///repository/origin.#Remote ""} expected_package)
+ actual_package)
{try.#Failure _}
false))))
@@ -296,7 +296,7 @@
[_ expected_package] $///package.random
[_ dummy_package] (random.only (|>> product.right
(has ///package.#pom (the ///package.#pom expected_package))
- (# ///package.equivalence = expected_package)
+ (at ///package.equivalence = expected_package)
not)
$///package.random)
.let [good (..single expected_artifact expected_package)
@@ -314,9 +314,9 @@
(_.coverage' [/.any]
(case actual_package
{try.#Success actual_package}
- (# ///package.equivalence =
- (has ///package.#origin {///repository/origin.#Remote ""} expected_package)
- actual_package)
+ (at ///package.equivalence =
+ (has ///package.#origin {///repository/origin.#Remote ""} expected_package)
+ actual_package)
{try.#Failure _}
false))))
@@ -341,11 +341,11 @@
(do random.monad
[dependee_artifact $///artifact.random
depender_artifact (random.only (predicate.complement
- (# ///artifact.equivalence = dependee_artifact))
+ (at ///artifact.equivalence = dependee_artifact))
$///artifact.random)
ignored_artifact (random.only (predicate.complement
- (predicate.and (# ///artifact.equivalence = dependee_artifact)
- (# ///artifact.equivalence = depender_artifact)))
+ (predicate.and (at ///artifact.equivalence = dependee_artifact)
+ (at ///artifact.equivalence = depender_artifact)))
$///artifact.random)]
(in [dependee_artifact depender_artifact ignored_artifact])))
@@ -365,33 +365,33 @@
ignored [///dependency.#artifact ignored_artifact
///dependency.#type ///artifact/type.lux_library]
- dependee_pom (|> (# ///.monoid identity)
+ dependee_pom (|> (at ///.monoid identity)
(has ///.#identity {.#Some dependee_artifact})
///pom.write
try.trusted)
- depender_pom (|> (# ///.monoid identity)
+ depender_pom (|> (at ///.monoid identity)
(has ///.#identity {.#Some depender_artifact})
(has ///.#dependencies (set.of_list ///dependency.hash (list dependee)))
///pom.write
try.trusted)
- ignored_pom (|> (# ///.monoid identity)
+ ignored_pom (|> (at ///.monoid identity)
(has ///.#identity {.#Some ignored_artifact})
///pom.write
try.trusted)
dependee_package (has ///package.#pom
[dependee_pom
- (|> dependee_pom (# xml.codec encoded) (# utf8.codec encoded))
+ (|> dependee_pom (at xml.codec encoded) (at utf8.codec encoded))
{///dependency/status.#Unverified}]
dependee_package)
depender_package (has ///package.#pom
[depender_pom
- (|> depender_pom (# xml.codec encoded) (# utf8.codec encoded))
+ (|> depender_pom (at xml.codec encoded) (at utf8.codec encoded))
{///dependency/status.#Unverified}]
depender_package)
ignored_package (has ///package.#pom
[ignored_pom
- (|> ignored_pom (# xml.codec encoded) (# utf8.codec encoded))
+ (|> ignored_pom (at xml.codec encoded) (at utf8.codec encoded))
{///dependency/status.#Unverified}]
ignored_package)]]
(in [[dependee depender ignored]