From 0d909187d5b9effcd08f533d50af7d29c0d6bfd8 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 8 Apr 2022 05:42:36 -0400
Subject: De-sigil-ification: $

---
 .../source/test/aedifex/dependency/deployment.lux  | 102 ++++++++++-----------
 1 file changed, 51 insertions(+), 51 deletions(-)

(limited to 'stdlib/source/test/aedifex/dependency/deployment.lux')

diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux
index ed834c759..c52ff5f21 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -149,56 +149,56 @@
       (do [! random.monad]
         [address (# ! each (text.suffix uri.separator)
                     (random.ascii/upper 10))]
-        ($_ _.and
-            (do [! random.monad]
-              [[dependency expected_artifact package] ..bundle
-               .let [cache (is Cache
-                               (atom.atom (dictionary.empty text.hash)))
-                     http (..http cache)
-                     repository (repository.async (remote.repository http {.#None} address))]]
-              (in (do async.monad
-                    [?outcome (/.one repository dependency package)
-                     cache (async.future (atom.read! cache))]
-                    (_.cover' [/.one]
-                              (|> ?outcome
-                                  (try#each (verify_one 1 address package cache expected_artifact))
-                                  (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)
-               bundles (|> ..bundle
-                           (random.set hash num_bundles)
-                           (# ! each set.list))
-               .let [resolution (list#mix (function (_ [dependency expected_artifact package] resolution)
-                                            (dictionary.has dependency package resolution))
-                                          resolution.empty
-                                          bundles)
-                     cache (is Cache
-                               (atom.atom (dictionary.empty text.hash)))
-                     http (..http cache)
-                     repository (repository.async (remote.repository http {.#None} address))]]
-              (in (do async.monad
-                    [?outcome (/.all repository resolution)
-                     cache (async.future (atom.read! cache))]
-                    (_.cover' [/.all]
-                              (|> ?outcome
-                                  (try#each (function (_ actual_artifacts)
-                                              (let [expected_deployments!
-                                                    (n.= num_bundles (set.size actual_artifacts))
+        (all _.and
+             (do [! random.monad]
+               [[dependency expected_artifact package] ..bundle
+                .let [cache (is Cache
+                                (atom.atom (dictionary.empty text.hash)))
+                      http (..http cache)
+                      repository (repository.async (remote.repository http {.#None} address))]]
+               (in (do async.monad
+                     [?outcome (/.one repository dependency package)
+                      cache (async.future (atom.read! cache))]
+                     (_.cover' [/.one]
+                               (|> ?outcome
+                                   (try#each (verify_one 1 address package cache expected_artifact))
+                                   (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)
+                bundles (|> ..bundle
+                            (random.set hash num_bundles)
+                            (# ! each set.list))
+                .let [resolution (list#mix (function (_ [dependency expected_artifact package] resolution)
+                                             (dictionary.has dependency package resolution))
+                                           resolution.empty
+                                           bundles)
+                      cache (is Cache
+                                (atom.atom (dictionary.empty text.hash)))
+                      http (..http cache)
+                      repository (repository.async (remote.repository http {.#None} address))]]
+               (in (do async.monad
+                     [?outcome (/.all repository resolution)
+                      cache (async.future (atom.read! cache))]
+                     (_.cover' [/.all]
+                               (|> ?outcome
+                                   (try#each (function (_ actual_artifacts)
+                                               (let [expected_deployments!
+                                                     (n.= num_bundles (set.size actual_artifacts))
 
-                                                    every_deployment_was_correct!
-                                                    (list.every? (function (_ [dependency expected_artifact package])
-                                                                   (let [deployed!
-                                                                         (set.member? actual_artifacts expected_artifact)
+                                                     every_deployment_was_correct!
+                                                     (list.every? (function (_ [dependency expected_artifact package])
+                                                                    (let [deployed!
+                                                                          (set.member? actual_artifacts expected_artifact)
 
-                                                                         deployed_correctly!
-                                                                         (verify_one num_bundles address package cache expected_artifact expected_artifact)]
-                                                                     (and deployed!
-                                                                          deployed_correctly!)))
-                                                                 bundles)]
-                                                (and expected_deployments!
-                                                     every_deployment_was_correct!))))
-                                  (try.else false))))))
-            ))))
+                                                                          deployed_correctly!
+                                                                          (verify_one num_bundles address package cache expected_artifact expected_artifact)]
+                                                                      (and deployed!
+                                                                           deployed_correctly!)))
+                                                                  bundles)]
+                                                 (and expected_deployments!
+                                                      every_deployment_was_correct!))))
+                                   (try.else false))))))
+             ))))
-- 
cgit v1.2.3