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).

---
 stdlib/source/test/aedifex/metadata/artifact.lux | 40 ++++++++++++------------
 stdlib/source/test/aedifex/metadata/snapshot.lux | 40 ++++++++++++------------
 2 files changed, 40 insertions(+), 40 deletions(-)

(limited to 'stdlib/source/test/aedifex/metadata')

diff --git a/stdlib/source/test/aedifex/metadata/artifact.lux b/stdlib/source/test/aedifex/metadata/artifact.lux
index 4a0294d61..02f1a6611 100644
--- a/stdlib/source/test/aedifex/metadata/artifact.lux
+++ b/stdlib/source/test/aedifex/metadata/artifact.lux
@@ -84,16 +84,16 @@
              
              (do random.monad
                [expected ..random]
-               (_.cover [/.format /.parser]
-                        (|> expected
-                            /.format
-                            list
-                            (<xml>.result /.parser)
-                            (try#each (# /.equivalence = expected))
-                            (try.else false))))
-             (_.cover [/.uri]
-                      (text#= (//.remote_project_uri artifact)
-                              (/.uri artifact)))
+               (_.coverage [/.format /.parser]
+                 (|> expected
+                     /.format
+                     list
+                     (<xml>.result /.parser)
+                     (try#each (# /.equivalence = expected))
+                     (try.else false))))
+             (_.coverage [/.uri]
+               (text#= (//.remote_project_uri artifact)
+                       (/.uri artifact)))
              (do random.monad
                [home (random.lower_case 5)
                 working_directory (random.lower_case 5)
@@ -103,14 +103,14 @@
                (in (do async.monad
                      [wrote? (/.write repository artifact expected)
                       actual (/.read repository artifact)]
-                     (_.cover' [/.write /.read]
-                               (and (case wrote?
-                                      {try.#Success _} true
-                                      {try.#Failure _} false)
-                                    (case actual
-                                      {try.#Success actual}
-                                      (# /.equivalence = expected actual)
-                                      
-                                      {try.#Failure _}
-                                      false))))))
+                     (_.coverage' [/.write /.read]
+                       (and (case wrote?
+                              {try.#Success _} true
+                              {try.#Failure _} false)
+                            (case actual
+                              {try.#Success actual}
+                              (# /.equivalence = expected actual)
+                              
+                              {try.#Failure _}
+                              false))))))
              ))))
diff --git a/stdlib/source/test/aedifex/metadata/snapshot.lux b/stdlib/source/test/aedifex/metadata/snapshot.lux
index 00cdb05b6..27cffb1f0 100644
--- a/stdlib/source/test/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/test/aedifex/metadata/snapshot.lux
@@ -96,16 +96,16 @@
              (_.for [/.equivalence]
                     ($equivalence.spec /.equivalence ..random))
              
-             (_.cover [/.format /.parser]
-                      (|> expected
-                          /.format
-                          list
-                          (<xml>.result /.parser)
-                          (try#each (# /.equivalence = expected))
-                          (try.else false)))
-             (_.cover [/.uri]
-                      (text#= (//.remote_artifact_uri artifact)
-                              (/.uri artifact)))
+             (_.coverage [/.format /.parser]
+               (|> expected
+                   /.format
+                   list
+                   (<xml>.result /.parser)
+                   (try#each (# /.equivalence = expected))
+                   (try.else false)))
+             (_.coverage [/.uri]
+               (text#= (//.remote_artifact_uri artifact)
+                       (/.uri artifact)))
              (do random.monad
                [home (random.lower_case 5)
                 working_directory (random.lower_case 5)
@@ -115,14 +115,14 @@
                (in (do async.monad
                      [wrote? (/.write repository artifact expected)
                       actual (/.read repository artifact)]
-                     (_.cover' [/.write /.read]
-                               (and (case wrote?
-                                      {try.#Success _} true
-                                      {try.#Failure _} false)
-                                    (case actual
-                                      {try.#Success actual}
-                                      (# /.equivalence = expected actual)
-                                      
-                                      {try.#Failure _}
-                                      false))))))
+                     (_.coverage' [/.write /.read]
+                       (and (case wrote?
+                              {try.#Success _} true
+                              {try.#Failure _} false)
+                            (case actual
+                              {try.#Success actual}
+                              (# /.equivalence = expected actual)
+                              
+                              {try.#Failure _}
+                              false))))))
              ))))
-- 
cgit v1.2.3