Better names for testing macros (plus better indentation).

13 files changed, 117 insertions, 117 deletions

diff --git a/stdlib/source/test/aedifex/artifact.lux b/stdlib/source/test/aedifex/artifact.lux
index e3a533036..150724ade 100644
--- a/stdlib/source/test/aedifex/artifact.lux
+++ b/stdlib/source/test/aedifex/artifact.lux
@@ -49,9 +49,9 @@
                   (_.for [/.hash]
                          ($hash.spec /.hash ..random))
 
-                  (_.cover [/.format /.identity]
-                           (and (text.ends_with? (/.identity sample) (/.format sample))
-                                (not (text#= (/.identity sample) (/.format sample)))))
+                  (_.coverage [/.format /.identity]
+                    (and (text.ends_with? (/.identity sample) (/.format sample))
+                         (not (text#= (/.identity sample) (/.format sample)))))
                   
                   /extension.test
                   /snapshot.test
diff --git a/stdlib/source/test/aedifex/artifact/extension.lux b/stdlib/source/test/aedifex/artifact/extension.lux
index b71b0c001..ab6bc4949 100644
--- a/stdlib/source/test/aedifex/artifact/extension.lux
+++ b/stdlib/source/test/aedifex/artifact/extension.lux
@@ -23,21 +23,21 @@
   (<| (_.covering /._)
       (_.for [/.Extension]
              (all _.and
-                  (_.cover [/.lux_library /.jvm_library /.pom
-                            /.sha-1 /.md5]
-                           (let [options (list /.lux_library /.jvm_library /.pom /.sha-1 /.md5)
-                                 uniques (set.of_list text.hash options)]
-                             (n.= (list.size options)
-                                  (set.size uniques))))
-                  (_.cover [/.extension /.type]
-                           (`` (and (~~ (template [<type> <extension>]
-                                          [(and (text#= <extension>
-                                                        (/.extension <type>))
-                                                (text#= <type>
-                                                        (/.type (/.extension <type>))))]
+                  (_.coverage [/.lux_library /.jvm_library /.pom
+                               /.sha-1 /.md5]
+                    (let [options (list /.lux_library /.jvm_library /.pom /.sha-1 /.md5)
+                          uniques (set.of_list text.hash options)]
+                      (n.= (list.size options)
+                           (set.size uniques))))
+                  (_.coverage [/.extension /.type]
+                    (`` (and (~~ (template [<type> <extension>]
+                                   [(and (text#= <extension>
+                                                 (/.extension <type>))
+                                         (text#= <type>
+                                                 (/.type (/.extension <type>))))]
 
-                                          [//.lux_library /.lux_library]
-                                          [//.jvm_library /.jvm_library]
-                                          [//.pom /.pom]
-                                          )))))
+                                   [//.lux_library /.lux_library]
+                                   [//.jvm_library /.jvm_library]
+                                   [//.pom /.pom]
+                                   )))))
                   ))))
diff --git a/stdlib/source/test/aedifex/artifact/snapshot.lux b/stdlib/source/test/aedifex/artifact/snapshot.lux
index cea873a6e..e44ba514c 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot.lux
@@ -35,13 +35,13 @@
                   
                   (do random.monad
                     [expected ..random]
-                    (_.cover [/.format /.parser]
-                             (|> expected
-                                 /.format
-                                 list
-                                 (<xml>.result /.parser)
-                                 (try#each (# /.equivalence = expected))
-                                 (try.else false))))
+                    (_.coverage [/.format /.parser]
+                      (|> expected
+                          /.format
+                          list
+                          (<xml>.result /.parser)
+                          (try#each (# /.equivalence = expected))
+                          (try.else false))))
 
                   $/build.test
                   $/stamp.test
diff --git a/stdlib/source/test/aedifex/artifact/snapshot/build.lux b/stdlib/source/test/aedifex/artifact/snapshot/build.lux
index b03fe7f10..36267e060 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot/build.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot/build.lux
@@ -29,11 +29,11 @@
                   
                   (do random.monad
                     [expected ..random]
-                    (_.cover [/.format /.parser]
-                             (|> expected
-                                 /.format
-                                 list
-                                 (<xml>.result /.parser)
-                                 (try#each (# /.equivalence = expected))
-                                 (try.else false))))
+                    (_.coverage [/.format /.parser]
+                      (|> expected
+                          /.format
+                          list
+                          (<xml>.result /.parser)
+                          (try#each (# /.equivalence = expected))
+                          (try.else false))))
                   ))))
diff --git a/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux b/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux
index 181e39523..25134c0cb 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux
@@ -37,10 +37,10 @@
 
            (do random.monad
              [expected ..random]
-             (_.cover [/.format /.parser]
-                      (|> expected
-                          /.format
-                          (<xml>.result /.parser)
-                          (try#each (# /.equivalence = expected))
-                          (try.else false))))
+             (_.coverage [/.format /.parser]
+               (|> expected
+                   /.format
+                   (<xml>.result /.parser)
+                   (try#each (# /.equivalence = expected))
+                   (try.else false))))
            )))
diff --git a/stdlib/source/test/aedifex/artifact/snapshot/time.lux b/stdlib/source/test/aedifex/artifact/snapshot/time.lux
index 4e8a63fe5..cde73c729 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot/time.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot/time.lux
@@ -32,11 +32,11 @@
            (do random.monad
              [expected ..random]
              (all _.and
-                  (_.cover [/.format /.parser]
-                           (|> expected
-                               /.format
-                               (<text>.result /.parser)
-                               (try#each (# /.equivalence = expected))
-                               (try.else false)))
+                  (_.coverage [/.format /.parser]
+                    (|> expected
+                        /.format
+                        (<text>.result /.parser)
+                        (try#each (# /.equivalence = expected))
+                        (try.else false)))
                   ))
            )))
diff --git a/stdlib/source/test/aedifex/artifact/snapshot/version.lux b/stdlib/source/test/aedifex/artifact/snapshot/version.lux
index 47c276dc8..53e45aa9e 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot/version.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot/version.lux
@@ -38,13 +38,13 @@
 
            (do random.monad
              [expected ..random]
-             (_.cover [/.format /.parser]
-                      (|> expected
-                          /.format
-                          list
-                          (<xml>.result /.parser)
-                          (try#each (# /.equivalence = expected))
-                          (try.else false))))
+             (_.coverage [/.format /.parser]
+               (|> expected
+                   /.format
+                   list
+                   (<xml>.result /.parser)
+                   (try#each (# /.equivalence = expected))
+                   (try.else false))))
 
            /value.test
            )))
diff --git a/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux b/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux
index 2b32260c5..81df110ce 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux
@@ -60,7 +60,7 @@
                                            remote_format)
                         (text.ends_with? (%.nat (the ///stamp.#build stamp))
                                          remote_format))]
-               (_.cover [/.snapshot /.format]
-                        (and local!
-                             remote!))))
+               (_.coverage [/.snapshot /.format]
+                 (and local!
+                      remote!))))
            )))
diff --git a/stdlib/source/test/aedifex/artifact/time.lux b/stdlib/source/test/aedifex/artifact/time.lux
index d8f67e45a..521b07e9e 100644
--- a/stdlib/source/test/aedifex/artifact/time.lux
+++ b/stdlib/source/test/aedifex/artifact/time.lux
@@ -39,22 +39,22 @@
 
            (do random.monad
              [expected ..random]
-             (_.cover [/.format /.parser]
-                      (|> expected
-                          /.format
-                          (<text>.result /.parser)
-                          (try#each (# /.equivalence = expected))
-                          (try.else false))))
+             (_.coverage [/.format /.parser]
+               (|> expected
+                   /.format
+                   (<text>.result /.parser)
+                   (try#each (# /.equivalence = expected))
+                   (try.else false))))
            (do random.monad
              [expected ..random]
-             (_.cover [/.instant /.of_instant]
-                      (|> expected
-                          /.instant
-                          /.of_instant
-                          (try#each (# /.equivalence = expected))
-                          (try.else false))))
-           (_.cover [/.epoch]
-                    (instant#= instant.epoch (/.instant /.epoch)))
+             (_.coverage [/.instant /.of_instant]
+               (|> expected
+                   /.instant
+                   /.of_instant
+                   (try#each (# /.equivalence = expected))
+                   (try.else false))))
+           (_.coverage [/.epoch]
+             (instant#= instant.epoch (/.instant /.epoch)))
 
            /date.test
            /time.test
diff --git a/stdlib/source/test/aedifex/artifact/time/date.lux b/stdlib/source/test/aedifex/artifact/time/date.lux
index 9f5169d78..48e4188a4 100644
--- a/stdlib/source/test/aedifex/artifact/time/date.lux
+++ b/stdlib/source/test/aedifex/artifact/time/date.lux
@@ -45,25 +45,25 @@
              (_.for [/.equivalence]
                     ($equivalence.spec /.equivalence ..random))
 
-             (_.cover [/.format /.parser]
-                      (|> expected
-                          /.format
-                          (<text>.result /.parser)
-                          (try#each (# /.equivalence = expected))
-                          (try.else false)))
-             (_.cover [/.value /.date]
-                      (|> expected
-                          /.value
-                          /.date
-                          (try#each (# /.equivalence = expected))
-                          (try.else false)))
-             (_.cover [/.year_is_out_of_range]
-                      (case (/.date candidate)
-                        {try.#Success date}
-                        (same? candidate (/.value date))
-                        
-                        {try.#Failure error}
-                        (exception.match? /.year_is_out_of_range error)))
-             (_.cover [/.epoch]
-                      (date#= date.epoch (/.value /.epoch)))
+             (_.coverage [/.format /.parser]
+               (|> expected
+                   /.format
+                   (<text>.result /.parser)
+                   (try#each (# /.equivalence = expected))
+                   (try.else false)))
+             (_.coverage [/.value /.date]
+               (|> expected
+                   /.value
+                   /.date
+                   (try#each (# /.equivalence = expected))
+                   (try.else false)))
+             (_.coverage [/.year_is_out_of_range]
+               (case (/.date candidate)
+                 {try.#Success date}
+                 (same? candidate (/.value date))
+                 
+                 {try.#Failure error}
+                 (exception.match? /.year_is_out_of_range error)))
+             (_.coverage [/.epoch]
+               (date#= date.epoch (/.value /.epoch)))
              ))))
diff --git a/stdlib/source/test/aedifex/artifact/time/time.lux b/stdlib/source/test/aedifex/artifact/time/time.lux
index da0589d93..70fc9dddf 100644
--- a/stdlib/source/test/aedifex/artifact/time/time.lux
+++ b/stdlib/source/test/aedifex/artifact/time/time.lux
@@ -31,10 +31,10 @@
       (all _.and
            (do random.monad
              [expected ..random]
-             (_.cover [/.format /.parser]
-                      (|> expected
-                          /.format
-                          (<text>.result /.parser)
-                          (try#each (# time.equivalence = expected))
-                          (try.else false))))
+             (_.coverage [/.format /.parser]
+               (|> expected
+                   /.format
+                   (<text>.result /.parser)
+                   (try#each (# time.equivalence = expected))
+                   (try.else false))))
            )))
diff --git a/stdlib/source/test/aedifex/artifact/type.lux b/stdlib/source/test/aedifex/artifact/type.lux
index a5592e3ef..4166828f8 100644
--- a/stdlib/source/test/aedifex/artifact/type.lux
+++ b/stdlib/source/test/aedifex/artifact/type.lux
@@ -33,11 +33,11 @@
   (<| (_.covering /._)
       (_.for [/.Type]
              (all _.and
-                  (_.cover [/.lux_library /.jvm_library /.js_library
-                            /.pom /.md5 /.sha-1]
-                           (let [options (list /.lux_library /.jvm_library /.js_library
-                                               /.pom /.md5 /.sha-1)
-                                 uniques (set.of_list text.hash options)]
-                             (n.= (list.size options)
-                                  (set.size uniques))))
+                  (_.coverage [/.lux_library /.jvm_library /.js_library
+                               /.pom /.md5 /.sha-1]
+                    (let [options (list /.lux_library /.jvm_library /.js_library
+                                        /.pom /.md5 /.sha-1)
+                          uniques (set.of_list text.hash options)]
+                      (n.= (list.size options)
+                           (set.size uniques))))
                   ))))
diff --git a/stdlib/source/test/aedifex/artifact/versioning.lux b/stdlib/source/test/aedifex/artifact/versioning.lux
index bc029a46a..683468bcf 100644
--- a/stdlib/source/test/aedifex/artifact/versioning.lux
+++ b/stdlib/source/test/aedifex/artifact/versioning.lux
@@ -37,18 +37,18 @@
            
            (do random.monad
              [expected ..random]
-             (_.cover [/.format /.parser]
-                      (|> expected
-                          /.format
-                          list
-                          (<xml>.result /.parser)
-                          (try#each (# /.equivalence = expected))
-                          (try.else false))))
-           (_.cover [/.init]
-                    (|> /.init
-                        /.format
-                        list
-                        (<xml>.result /.parser)
-                        (try#each (# /.equivalence = /.init))
-                        (try.else false)))
+             (_.coverage [/.format /.parser]
+               (|> expected
+                   /.format
+                   list
+                   (<xml>.result /.parser)
+                   (try#each (# /.equivalence = expected))
+                   (try.else false))))
+           (_.coverage [/.init]
+             (|> /.init
+                 /.format
+                 list
+                 (<xml>.result /.parser)
+                 (try#each (# /.equivalence = /.init))
+                 (try.else false)))
            )))