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 ++++++++++++------------
 1 file changed, 20 insertions(+), 20 deletions(-)

(limited to 'stdlib/source/test/aedifex/metadata/artifact.lux')

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))))))
              ))))
-- 
cgit v1.2.3