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

---
 .../source/test/aedifex/dependency/resolution.lux  | 82 +++++++++++-----------
 1 file changed, 41 insertions(+), 41 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/dependency/resolution.lux b/stdlib/source/test/aedifex/dependency/resolution.lux
index 1233cd1cb..e5db7fe3c 100644
--- a/stdlib/source/test/aedifex/dependency/resolution.lux
+++ b/stdlib/source/test/aedifex/dependency/resolution.lux
@@ -262,27 +262,27 @@
                     [actual_package (/.one (///repository.mock good [])
                                            [///dependency.#artifact expected_artifact
                                             ///dependency.#type ///artifact/type.lux_library])]
-                    (_.cover' [/.one]
-                              (case actual_package
-                                {try.#Success actual_package}
-                                (# ///package.equivalence =
-                                   (has ///package.#origin {///repository/origin.#Remote ""} expected_package)
-                                   actual_package)
-                                
-                                {try.#Failure _}
-                                false))))
+                    (_.coverage' [/.one]
+                      (case actual_package
+                        {try.#Success actual_package}
+                        (# ///package.equivalence =
+                           (has ///package.#origin {///repository/origin.#Remote ""} expected_package)
+                           actual_package)
+                        
+                        {try.#Failure _}
+                        false))))
               (~~ (template [<exception> <bad>]
                     [(in (do async.monad
                            [actual_package (/.one (///repository.mock <bad> [])
                                                   [///dependency.#artifact expected_artifact
                                                    ///dependency.#type ///artifact/type.lux_library])]
-                           (_.cover' [<exception>]
-                                     (case actual_package
-                                       {try.#Failure error}
-                                       (exception.match? <exception> error)
+                           (_.coverage' [<exception>]
+                             (case actual_package
+                               {try.#Failure error}
+                               (exception.match? <exception> error)
 
-                                       {try.#Success _}
-                                       false))))]
+                               {try.#Success _}
+                               false))))]
 
                     [/.sha-1_does_not_match bad_sha-1]
                     [/.md5_does_not_match bad_md5]
@@ -311,15 +311,15 @@
                                              (///repository.mock good []))
                                        [///dependency.#artifact expected_artifact
                                         ///dependency.#type ///artifact/type.lux_library])]
-                (_.cover' [/.any]
-                          (case actual_package
-                            {try.#Success actual_package}
-                            (# ///package.equivalence =
-                               (has ///package.#origin {///repository/origin.#Remote ""} expected_package)
-                               actual_package)
-                            
-                            {try.#Failure _}
-                            false))))
+                (_.coverage' [/.any]
+                  (case actual_package
+                    {try.#Success actual_package}
+                    (# ///package.equivalence =
+                       (has ///package.#origin {///repository/origin.#Remote ""} expected_package)
+                       actual_package)
+                    
+                    {try.#Failure _}
+                    false))))
           (in (do async.monad
                 [.let [console ($///version.echo "")]
                  actual_package (/.any console
@@ -327,13 +327,13 @@
                                              (///repository.mock bad_md5 []))
                                        [///dependency.#artifact expected_artifact
                                         ///dependency.#type ///artifact/type.lux_library])]
-                (_.cover' [/.cannot_resolve]
-                          (case actual_package
-                            {try.#Failure error}
-                            (exception.match? /.cannot_resolve error)
+                (_.coverage' [/.cannot_resolve]
+                  (case actual_package
+                    {try.#Failure error}
+                    (exception.match? /.cannot_resolve error)
 
-                            {try.#Success _}
-                            false))))
+                    {try.#Success _}
+                    false))))
           )))
 
 (def: artifacts
@@ -416,15 +416,15 @@
                                                           (///repository.mock ..nope []))
                                                         (list depender)
                                                         /.empty)]
-                (_.cover' [/.all]
-                          (and (dictionary.key? resolution depender)
-                               (list.any? (///dependency#= depender) successes)
-                               
-                               (dictionary.key? resolution dependee)
-                               (list.any? (///dependency#= dependee) successes)
-
-                               (list.empty? failures)
-                               (not (dictionary.key? resolution ignored))))))
+                (_.coverage' [/.all]
+                  (and (dictionary.key? resolution depender)
+                       (list.any? (///dependency#= depender) successes)
+                       
+                       (dictionary.key? resolution dependee)
+                       (list.any? (///dependency#= dependee) successes)
+
+                       (list.empty? failures)
+                       (not (dictionary.key? resolution ignored))))))
           )))
 
 (def: .public test
@@ -435,8 +435,8 @@
             (_.for [/.equivalence]
                    ($equivalence.spec /.equivalence ..random))
 
-            (_.cover [/.empty]
-                     (dictionary.empty? /.empty))
+            (_.coverage [/.empty]
+              (dictionary.empty? /.empty))
 
             ..one
             ..any
-- 
cgit v1.2.3