From 04c7f49a732380a2b9f72b1b937171b341c24323 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 9 Apr 2022 03:03:46 -0400
Subject: Better names for testing macros (plus better indentation).

---
 .../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 12b175534..f9f5e6763 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -159,10 +159,10 @@
                (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))))))
+                     (_.coverage' [/.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)
@@ -182,23 +182,23 @@
                (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))
+                     (_.coverage' [/.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