Better names for testing macros (plus better indentation).

1 files changed, 35 insertions, 35 deletions

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