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/repository/local.lux  | 14 ++---
 stdlib/source/test/aedifex/repository/remote.lux | 70 ++++++++++++------------
 2 files changed, 42 insertions(+), 42 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/repository/local.lux b/stdlib/source/test/aedifex/repository/local.lux
index 92826c8ff..9c9703d55 100644
--- a/stdlib/source/test/aedifex/repository/local.lux
+++ b/stdlib/source/test/aedifex/repository/local.lux
@@ -42,11 +42,11 @@
                    [before_upload (# repo download uri)
                     _ (# repo upload uri expected)
                     actual (# repo download uri)]
-                   (_.cover' [/.repository]
-                             (and (case before_upload
-                                    {try.#Success _} false
-                                    {try.#Failure _} true)
-                                  (|> actual
-                                      (try#each (binary#= expected))
-                                      (try.else false))))))
+                   (_.coverage' [/.repository]
+                     (and (case before_upload
+                            {try.#Success _} false
+                            {try.#Failure _} true)
+                          (|> actual
+                              (try#each (binary#= expected))
+                              (try.else false))))))
              ))))
diff --git a/stdlib/source/test/aedifex/repository/remote.lux b/stdlib/source/test/aedifex/repository/remote.lux
index 05cd293c3..c20722d4c 100644
--- a/stdlib/source/test/aedifex/repository/remote.lux
+++ b/stdlib/source/test/aedifex/repository/remote.lux
@@ -93,39 +93,39 @@
          content (# ! each (# utf8.codec encoded)
                     (random.lower_case 10))]
         (all _.and
-             (_.cover [/.repository /.user_agent /.Address]
-                      (let [repo (/.repository (..good_http user password)
-                                               {.#Some [//identity.#user user
-                                                        //identity.#password password]}
-                                               address)]
-                        (and (|> (# repo download uri)
-                                 io.run!
-                                 (try#each (# utf8.codec decoded))
-                                 try#conjoint
-                                 (try#each (text#= (format address uri)))
-                                 (try.else false))
-                             (|> (# repo upload uri content)
-                                 io.run!
-                                 (try#each (function.constant true))
-                                 (try.else false)))))
-             (_.cover [/.upload_failure]
-                      (let [repo (/.repository (..good_http user password)
-                                               {.#None}
-                                               address)]
-                        (case (io.run! (# repo upload uri content))
-                          {try.#Failure error}
-                          (exception.match? /.upload_failure error)
-                          
-                          {try.#Success _}
-                          false)))
-             (_.cover [/.download_failure]
-                      (let [repo (/.repository ..bad_http
-                                               {.#None}
-                                               address)]
-                        (case (io.run! (# repo download uri))
-                          {try.#Failure error}
-                          (exception.match? /.download_failure error)
-                          
-                          {try.#Success _}
-                          false)))
+             (_.coverage [/.repository /.user_agent /.Address]
+               (let [repo (/.repository (..good_http user password)
+                                        {.#Some [//identity.#user user
+                                                 //identity.#password password]}
+                                        address)]
+                 (and (|> (# repo download uri)
+                          io.run!
+                          (try#each (# utf8.codec decoded))
+                          try#conjoint
+                          (try#each (text#= (format address uri)))
+                          (try.else false))
+                      (|> (# repo upload uri content)
+                          io.run!
+                          (try#each (function.constant true))
+                          (try.else false)))))
+             (_.coverage [/.upload_failure]
+               (let [repo (/.repository (..good_http user password)
+                                        {.#None}
+                                        address)]
+                 (case (io.run! (# repo upload uri content))
+                   {try.#Failure error}
+                   (exception.match? /.upload_failure error)
+                   
+                   {try.#Success _}
+                   false)))
+             (_.coverage [/.download_failure]
+               (let [repo (/.repository ..bad_http
+                                        {.#None}
+                                        address)]
+                 (case (io.run! (# repo download uri))
+                   {try.#Failure error}
+                   (exception.match? /.download_failure error)
+                   
+                   {try.#Success _}
+                   false)))
              ))))
-- 
cgit v1.2.3