Better names for testing macros (plus better indentation).

1 files changed, 40 insertions, 40 deletions

diff --git a/stdlib/source/test/lux/control/parser/cli.lux b/stdlib/source/test/lux/control/parser/cli.lux
index 5dc368174..69d9a20e7 100644
--- a/stdlib/source/test/lux/control/parser/cli.lux
+++ b/stdlib/source/test/lux/control/parser/cli.lux
@@ -42,44 +42,44 @@
          pre_ignore (random.list 5 random_dummy)
          post_ignore (random.list 5 random_dummy)]
         (all _.and
-             (_.cover [/.result /.any]
-                      (|> (/.result /.any (list expected))
-                          (!expect (^.multi {try.#Success actual}
-                                            (text#= expected actual)))))
-             (_.cover [/.parse]
-                      (|> (/.result (/.parse n#decoded) (list expected))
-                          (!expect (^.multi {try.#Success actual}
-                                            (text#= expected
-                                                    (n#encoded actual))))))
-             (_.cover [/.this]
-                      (and (|> (/.result (/.this expected) (list expected))
-                               (!expect {try.#Success _}))
-                           (|> (/.result (/.this expected) (list dummy))
-                               (!expect {try.#Failure _}))))
-             (_.cover [/.somewhere]
-                      (|> (/.result (|> (/.somewhere (/.this expected))
-                                        (<>.before (<>.some /.any)))
-                                    (list.together (list pre_ignore (list expected) post_ignore)))
-                          (!expect {try.#Success _})))
-             (_.cover [/.end]
-                      (and (|> (/.result /.end (list))
-                               (!expect {try.#Success _}))
-                           (|> (/.result (<>.not /.end) (list expected))
-                               (!expect {try.#Failure _}))))
-             (_.cover [/.named]
-                      (|> (/.result (/.named dummy /.any) (list dummy expected))
-                          (!expect (^.multi {try.#Success actual}
-                                            (text#= expected actual)))))
-             (_.cover [/.parameter]
-                      (and (|> (/.result (/.parameter [short long] /.any)
-                                         (list short expected))
-                               (!expect (^.multi {try.#Success actual}
-                                                 (text#= expected actual))))
-                           (|> (/.result (/.parameter [short long] /.any)
-                                         (list long expected))
-                               (!expect (^.multi {try.#Success actual}
-                                                 (text#= expected actual))))
-                           (|> (/.result (/.parameter [short long] /.any)
-                                         (list dummy expected))
-                               (!expect {try.#Failure _}))))
+             (_.coverage [/.result /.any]
+               (|> (/.result /.any (list expected))
+                   (!expect (^.multi {try.#Success actual}
+                                     (text#= expected actual)))))
+             (_.coverage [/.parse]
+               (|> (/.result (/.parse n#decoded) (list expected))
+                   (!expect (^.multi {try.#Success actual}
+                                     (text#= expected
+                                             (n#encoded actual))))))
+             (_.coverage [/.this]
+               (and (|> (/.result (/.this expected) (list expected))
+                        (!expect {try.#Success _}))
+                    (|> (/.result (/.this expected) (list dummy))
+                        (!expect {try.#Failure _}))))
+             (_.coverage [/.somewhere]
+               (|> (/.result (|> (/.somewhere (/.this expected))
+                                 (<>.before (<>.some /.any)))
+                             (list.together (list pre_ignore (list expected) post_ignore)))
+                   (!expect {try.#Success _})))
+             (_.coverage [/.end]
+               (and (|> (/.result /.end (list))
+                        (!expect {try.#Success _}))
+                    (|> (/.result (<>.not /.end) (list expected))
+                        (!expect {try.#Failure _}))))
+             (_.coverage [/.named]
+               (|> (/.result (/.named dummy /.any) (list dummy expected))
+                   (!expect (^.multi {try.#Success actual}
+                                     (text#= expected actual)))))
+             (_.coverage [/.parameter]
+               (and (|> (/.result (/.parameter [short long] /.any)
+                                  (list short expected))
+                        (!expect (^.multi {try.#Success actual}
+                                          (text#= expected actual))))
+                    (|> (/.result (/.parameter [short long] /.any)
+                                  (list long expected))
+                        (!expect (^.multi {try.#Success actual}
+                                          (text#= expected actual))))
+                    (|> (/.result (/.parameter [short long] /.any)
+                                  (list dummy expected))
+                        (!expect {try.#Failure _}))))
              ))))