From 0d909187d5b9effcd08f533d50af7d29c0d6bfd8 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 8 Apr 2022 05:42:36 -0400
Subject: De-sigil-ification: $

---
 stdlib/source/test/lux/control/parser/cli.lux | 84 +++++++++++++--------------
 1 file changed, 42 insertions(+), 42 deletions(-)

(limited to 'stdlib/source/test/lux/control/parser/cli.lux')

diff --git a/stdlib/source/test/lux/control/parser/cli.lux b/stdlib/source/test/lux/control/parser/cli.lux
index 812b23586..5dc368174 100644
--- a/stdlib/source/test/lux/control/parser/cli.lux
+++ b/stdlib/source/test/lux/control/parser/cli.lux
@@ -41,45 +41,45 @@
          long (random.unicode 2)
          pre_ignore (random.list 5 random_dummy)
          post_ignore (random.list 5 random_dummy)]
-        ($_ _.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 _}))))
-            ))))
+        (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 _}))))
+             ))))
-- 
cgit v1.2.3