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/install.lux | 64 +++++++++++++-------------
 1 file changed, 32 insertions(+), 32 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index 414d104d8..d4244bfcf 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -70,36 +70,36 @@
          home (random.ascii/alpha 5)
          working_directory (random.ascii/alpha 5)
          .let [/ (# file.default separator)]]
-        ($_ _.and
-            (in (do [! async.monad]
-                  [.let [fs (file.mock /)
-                         program (program.async (program.mock environment.empty home working_directory))
+        (all _.and
+             (in (do [! async.monad]
+                   [.let [fs (file.mock /)
+                          program (program.async (program.mock environment.empty home working_directory))
 
-                         artifact_path (///local.uri (the ///artifact.#version identity) identity)
-                         library_path (format artifact_path ///artifact/extension.lux_library)
-                         pom_path (format artifact_path ///artifact/extension.pom)]
-                   verdict (do [! ///action.monad]
-                             [succeeded! (# ! each (text#= /.success)
-                                            (..execute! program fs sample))
-                              library_exists! (|> library_path
-                                                  (format home /)
-                                                  (# fs file?)
-                                                  (# async.monad each (|>> {try.#Success})))
-                              pom_exists! (|> pom_path
-                                              (format home /)
-                                              (# fs file?)
-                                              (# async.monad each (|>> {try.#Success})))]
-                             (in (and succeeded!
-                                      library_exists!
-                                      pom_exists!)))]
-                  (_.cover' [/.do! /.success]
-                            (try.else false verdict))))
-            (in (do [! async.monad]
-                  [.let [fs (file.mock /)
-                         program (program.async (program.mock environment.empty home working_directory))]
-                   logging (..execute! program fs (has ///.#identity {.#None} sample))]
-                  (_.cover' [/.failure]
-                            (|> logging
-                                (try#each (text#= /.failure))
-                                (try.else false)))))
-            ))))
+                          artifact_path (///local.uri (the ///artifact.#version identity) identity)
+                          library_path (format artifact_path ///artifact/extension.lux_library)
+                          pom_path (format artifact_path ///artifact/extension.pom)]
+                    verdict (do [! ///action.monad]
+                              [succeeded! (# ! each (text#= /.success)
+                                             (..execute! program fs sample))
+                               library_exists! (|> library_path
+                                                   (format home /)
+                                                   (# fs file?)
+                                                   (# async.monad each (|>> {try.#Success})))
+                               pom_exists! (|> pom_path
+                                               (format home /)
+                                               (# fs file?)
+                                               (# async.monad each (|>> {try.#Success})))]
+                              (in (and succeeded!
+                                       library_exists!
+                                       pom_exists!)))]
+                   (_.cover' [/.do! /.success]
+                             (try.else false verdict))))
+             (in (do [! async.monad]
+                   [.let [fs (file.mock /)
+                          program (program.async (program.mock environment.empty home working_directory))]
+                    logging (..execute! program fs (has ///.#identity {.#None} sample))]
+                   (_.cover' [/.failure]
+                             (|> logging
+                                 (try#each (text#= /.failure))
+                                 (try.else false)))))
+             ))))
-- 
cgit v1.2.3