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/package.lux | 108 ++++++++++++++++-----------------
 1 file changed, 54 insertions(+), 54 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/package.lux b/stdlib/source/test/aedifex/package.lux
index 28d763e4c..4b95cd250 100644
--- a/stdlib/source/test/aedifex/package.lux
+++ b/stdlib/source/test/aedifex/package.lux
@@ -63,60 +63,60 @@
              (_.for [/.equivalence]
                     ($equivalence.spec /.equivalence (# ! each product.right ..random)))
              
-             (_.cover [/.local?]
-                      (/.local? (has /.#origin {//origin.#Local "~/yolo"} package)))
-             (_.cover [/.remote?]
-                      (/.remote? (has /.#origin {//origin.#Remote "https://example.com"} package)))
-             (_.cover [/.local]
-                      (let [expected_pom (|> package (the /.#pom) product.left)
-                            expected_library (|> package (the /.#library) product.left)
+             (_.coverage [/.local?]
+               (/.local? (has /.#origin {//origin.#Local "~/yolo"} package)))
+             (_.coverage [/.remote?]
+               (/.remote? (has /.#origin {//origin.#Remote "https://example.com"} package)))
+             (_.coverage [/.local]
+               (let [expected_pom (|> package (the /.#pom) product.left)
+                     expected_library (|> package (the /.#library) product.left)
 
-                            local (/.local expected_pom expected_library)
+                     local (/.local expected_pom expected_library)
 
-                            [actual_pom binary_pom pom_status] (the /.#pom local)
-                            [actual_library library_status] (the /.#library local)]
-                        (and (case (the /.#origin local)
-                               {//origin.#Local ""} true
-                               _ false)
-                             (let [expected_sha1 (//hash.sha-1 expected_library)
-                                   expected_md5 (//hash.md5 expected_library)]
-                               (and (same? expected_library actual_library)
-                                    (case library_status
-                                      {//status.#Verified actual_sha1 expected_md5}
-                                      (and (//hash#= expected_sha1 actual_sha1)
-                                           (//hash#= expected_md5 expected_md5))
-                                      
-                                      _
-                                      false)))
-                             (let [expected_sha1 (//hash.sha-1 binary_pom)
-                                   expected_md5 (//hash.md5 binary_pom)]
-                               (and (same? expected_pom actual_pom)
-                                    (|> (do try.monad
-                                          [xml_pom (# utf8.codec decoded binary_pom)
-                                           decoded_pom (# xml.codec decoded xml_pom)]
-                                          (in (# xml.equivalence = actual_pom decoded_pom)))
-                                        (try.else false))
-                                    (case pom_status
-                                      {//status.#Verified actual_sha1 expected_md5}
-                                      (and (//hash#= expected_sha1 actual_sha1)
-                                           (//hash#= expected_md5 expected_md5))
-                                      
-                                      _
-                                      false))))))
-             (_.cover [/.dependencies]
-                      (let [expected (the //.#dependencies profile)]
-                        (case (/.dependencies package)
-                          {try.#Success actual}
-                          (# set.equivalence = expected actual)
-                          
-                          {try.#Failure error}
-                          false)))
-             (_.cover [/.repositories]
-                      (let [expected (the //.#repositories profile)]
-                        (case (/.repositories package)
-                          {try.#Success actual}
-                          (# set.equivalence = expected actual)
-                          
-                          {try.#Failure error}
-                          false)))
+                     [actual_pom binary_pom pom_status] (the /.#pom local)
+                     [actual_library library_status] (the /.#library local)]
+                 (and (case (the /.#origin local)
+                        {//origin.#Local ""} true
+                        _ false)
+                      (let [expected_sha1 (//hash.sha-1 expected_library)
+                            expected_md5 (//hash.md5 expected_library)]
+                        (and (same? expected_library actual_library)
+                             (case library_status
+                               {//status.#Verified actual_sha1 expected_md5}
+                               (and (//hash#= expected_sha1 actual_sha1)
+                                    (//hash#= expected_md5 expected_md5))
+                               
+                               _
+                               false)))
+                      (let [expected_sha1 (//hash.sha-1 binary_pom)
+                            expected_md5 (//hash.md5 binary_pom)]
+                        (and (same? expected_pom actual_pom)
+                             (|> (do try.monad
+                                   [xml_pom (# utf8.codec decoded binary_pom)
+                                    decoded_pom (# xml.codec decoded xml_pom)]
+                                   (in (# xml.equivalence = actual_pom decoded_pom)))
+                                 (try.else false))
+                             (case pom_status
+                               {//status.#Verified actual_sha1 expected_md5}
+                               (and (//hash#= expected_sha1 actual_sha1)
+                                    (//hash#= expected_md5 expected_md5))
+                               
+                               _
+                               false))))))
+             (_.coverage [/.dependencies]
+               (let [expected (the //.#dependencies profile)]
+                 (case (/.dependencies package)
+                   {try.#Success actual}
+                   (# set.equivalence = expected actual)
+                   
+                   {try.#Failure error}
+                   false)))
+             (_.coverage [/.repositories]
+               (let [expected (the //.#repositories profile)]
+                 (case (/.repositories package)
+                   {try.#Success actual}
+                   (# set.equivalence = expected actual)
+                   
+                   {try.#Failure error}
+                   false)))
              ))))
-- 
cgit v1.2.3