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/aedifex/command/test.lux | 110 ++++++++++++++--------------
 1 file changed, 55 insertions(+), 55 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/test.lux b/stdlib/source/test/aedifex/command/test.lux
index 4109c99ee..34bd05c36 100644
--- a/stdlib/source/test/aedifex/command/test.lux
+++ b/stdlib/source/test/aedifex/command/test.lux
@@ -58,58 +58,58 @@
                            with_test
                            with_target)]
          [compiler resolution] @build.resolution]
-        ($_ _.and
-            (let [fs (file.mock (# file.default separator))
-                  console (@version.echo "")]
-              (in (do async.monad
-                    [verdict (do ///action.monad
-                               [_ (/.do! console (program.async (program.mock environment.empty home working_directory))
-                                         fs (shell.async (@build.good_shell [])) resolution
-                                         (has ///.#lux compiler profile))
-                                build_start (# console read_line [])
-                                build_end (# console read_line [])
-                                test_start (# console read_line [])
-                                test_end (# console read_line [])]
-                               (in (and (and (text#= //build.start build_start)
-                                             (text#= //build.success build_end))
-                                        (and (text#= /.start test_start)
-                                             (text#= /.success test_end)))))]
-                    (_.cover' [/.do!
-                               /.start /.success]
-                              (try.else false verdict)))))
-            (let [fs (file.mock (# file.default separator))
-                  console (@version.echo "")]
-              (in (do async.monad
-                    [verdict (do ///action.monad
-                               [.let [bad_shell (shell.mock
-                                                 (function (_ [actual_environment actual_working_directory actual_command actual_arguments])
-                                                   {try.#Success
-                                                    (is (shell.Mock [])
-                                                        (implementation
-                                                         (def: (on_read state)
-                                                           (exception.except shell.no_more_output []))
-                                                         (def: (on_fail state)
-                                                           (exception.except shell.no_more_output []))
-                                                         (def: (on_write input state)
-                                                           {try.#Failure "on_write"})
-                                                         (def: (on_destroy state)
-                                                           {try.#Failure "on_destroy"})
-                                                         (def: (on_await state)
-                                                           {try.#Success [state (if (list.any? (text#= "build") actual_arguments)
-                                                                                  shell.normal
-                                                                                  shell.error)]})))})
-                                                 [])]
-                                _ (/.do! console (program.async (program.mock environment.empty home working_directory))
-                                         fs (shell.async bad_shell) resolution
-                                         (has ///.#lux compiler profile))
-                                build_start (# console read_line [])
-                                build_end (# console read_line [])
-                                test_start (# console read_line [])
-                                test_end (# console read_line [])]
-                               (in (and (and (text#= //build.start build_start)
-                                             (text#= //build.success build_end))
-                                        (and (text#= /.start test_start)
-                                             (text#= /.failure test_end)))))]
-                    (_.cover' [/.failure]
-                              (try.else false verdict)))))
-            ))))
+        (all _.and
+             (let [fs (file.mock (# file.default separator))
+                   console (@version.echo "")]
+               (in (do async.monad
+                     [verdict (do ///action.monad
+                                [_ (/.do! console (program.async (program.mock environment.empty home working_directory))
+                                          fs (shell.async (@build.good_shell [])) resolution
+                                          (has ///.#lux compiler profile))
+                                 build_start (# console read_line [])
+                                 build_end (# console read_line [])
+                                 test_start (# console read_line [])
+                                 test_end (# console read_line [])]
+                                (in (and (and (text#= //build.start build_start)
+                                              (text#= //build.success build_end))
+                                         (and (text#= /.start test_start)
+                                              (text#= /.success test_end)))))]
+                     (_.cover' [/.do!
+                                /.start /.success]
+                               (try.else false verdict)))))
+             (let [fs (file.mock (# file.default separator))
+                   console (@version.echo "")]
+               (in (do async.monad
+                     [verdict (do ///action.monad
+                                [.let [bad_shell (shell.mock
+                                                  (function (_ [actual_environment actual_working_directory actual_command actual_arguments])
+                                                    {try.#Success
+                                                     (is (shell.Mock [])
+                                                         (implementation
+                                                          (def: (on_read state)
+                                                            (exception.except shell.no_more_output []))
+                                                          (def: (on_fail state)
+                                                            (exception.except shell.no_more_output []))
+                                                          (def: (on_write input state)
+                                                            {try.#Failure "on_write"})
+                                                          (def: (on_destroy state)
+                                                            {try.#Failure "on_destroy"})
+                                                          (def: (on_await state)
+                                                            {try.#Success [state (if (list.any? (text#= "build") actual_arguments)
+                                                                                   shell.normal
+                                                                                   shell.error)]})))})
+                                                  [])]
+                                 _ (/.do! console (program.async (program.mock environment.empty home working_directory))
+                                          fs (shell.async bad_shell) resolution
+                                          (has ///.#lux compiler profile))
+                                 build_start (# console read_line [])
+                                 build_end (# console read_line [])
+                                 test_start (# console read_line [])
+                                 test_end (# console read_line [])]
+                                (in (and (and (text#= //build.start build_start)
+                                              (text#= //build.success build_end))
+                                         (and (text#= /.start test_start)
+                                              (text#= /.failure test_end)))))]
+                     (_.cover' [/.failure]
+                               (try.else false verdict)))))
+             ))))
-- 
cgit v1.2.3