From 36303d6cb2ce3ab9e36d045b9516c997bd461862 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 24 Aug 2021 05:23:45 -0400
Subject: Outsourced the syntax for labelled type definitions to macros.

---
 .../source/test/aedifex/dependency/deployment.lux  | 42 +++++++++++-----------
 1 file changed, 21 insertions(+), 21 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 97fd9f1f4..cd92cec74 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -106,7 +106,7 @@
         correct_library_upload!
         (and (|> cache
                  (dictionary.value library_url)
-                 (maybe\map (binary\= expected_library))
+                 (maybe\each (binary\= expected_library))
                  (maybe.else false))
              (dictionary.key? cache (format library_url artifact/extension.sha-1))
              (dictionary.key? cache (format library_url artifact/extension.md5)))
@@ -114,7 +114,7 @@
         correct_pom_upload!
         (and (|> cache
                  (dictionary.value pom_url)
-                 (maybe\map (binary\= expected_pom))
+                 (maybe\each (binary\= expected_pom))
                  (maybe.else false))
              (dictionary.key? cache (format pom_url artifact/extension.sha-1))
              (dictionary.key? cache (format pom_url artifact/extension.md5)))
@@ -147,7 +147,7 @@
   Test
   (<| (_.covering /._)
       (do {! random.monad}
-        [address (\ ! map (text.suffix uri.separator)
+        [address (\ ! each (text.suffix uri.separator)
                     (random.ascii/upper 10))]
         ($_ _.and
             (do {! random.monad}
@@ -161,16 +161,16 @@
                      cache (async.future (atom.read! cache))]
                     (_.cover' [/.one]
                               (|> ?outcome
-                                  (try\map (verify_one 1 address package cache expected_artifact))
+                                  (try\each (verify_one 1 address package cache expected_artifact))
                                   (try.else false))))))
             (do {! random.monad}
               [.let [hash (: (Hash [Dependency Artifact Package])
-                             (\ hash.functor map (|>> product.right product.left product.left)
+                             (\ hash.functor each (|>> product.right product.left product.left)
                                 text.hash))]
-               num_bundles (\ ! map (n.% 10) random.nat)
+               num_bundles (\ ! each (n.% 10) random.nat)
                bundles (|> ..bundle
                            (random.set hash num_bundles)
-                           (\ ! map set.list))
+                           (\ ! each set.list))
                .let [resolution (list\mix (function (_ [dependency expected_artifact package] resolution)
                                             (dictionary.has dependency package resolution))
                                           resolution.empty
@@ -184,21 +184,21 @@
                      cache (async.future (atom.read! cache))]
                     (_.cover' [/.all]
                               (|> ?outcome
-                                  (try\map (function (_ actual_artifacts)
-                                             (let [expected_deployments!
-                                                   (n.= num_bundles (set.size actual_artifacts))
+                                  (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!))))
+                                                                         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