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/pom.lux | 46 +++++++++++++++++++-------------------
 1 file changed, 23 insertions(+), 23 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/pom.lux b/stdlib/source/test/aedifex/pom.lux
index bf29cfeb5..ac8869c54 100644
--- a/stdlib/source/test/aedifex/pom.lux
+++ b/stdlib/source/test/aedifex/pom.lux
@@ -26,32 +26,32 @@
   Test
   (<| (_.covering /._)
       (all _.and
-           (_.cover [/.file]
-                    (|> /.file
-                        (text#= "")
-                        not))
+           (_.coverage [/.file]
+             (|> /.file
+                 (text#= "")
+                 not))
            (do random.monad
              [expected @profile.random]
-             (_.cover [/.write /.parser]
-                      (case [(/.write expected)
-                             (the //.#identity expected)]
-                        [{try.#Success pom}
-                         {.#Some _}]
-                        (case (<xml>.result /.parser (list pom))
-                          {try.#Success actual}
-                          (# //.equivalence =
-                             (|> (# //.monoid identity)
-                                 (has //.#dependencies (the //.#dependencies expected))
-                                 (has //.#repositories (the //.#repositories expected)))
-                             actual)
+             (_.coverage [/.write /.parser]
+               (case [(/.write expected)
+                      (the //.#identity expected)]
+                 [{try.#Success pom}
+                  {.#Some _}]
+                 (case (<xml>.result /.parser (list pom))
+                   {try.#Success actual}
+                   (# //.equivalence =
+                      (|> (# //.monoid identity)
+                          (has //.#dependencies (the //.#dependencies expected))
+                          (has //.#repositories (the //.#repositories expected)))
+                      actual)
 
-                          {try.#Failure error}
-                          false)
+                   {try.#Failure error}
+                   false)
 
-                        [{try.#Failure error}
-                         {.#None}]
-                        (exception.match? //.no_identity error)
+                 [{try.#Failure error}
+                  {.#None}]
+                 (exception.match? //.no_identity error)
 
-                        _
-                        false)))
+                 _
+                 false)))
            )))
-- 
cgit v1.2.3