From abe24425ced15fd784ef6c62d6f186af72b491db Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 11 Jul 2021 01:51:04 -0400
Subject: Re-named ":coerce" to ":as" since it technically doesn't do
 coercions.

---
 stdlib/source/test/aedifex/command/install.lux | 9 ++++++---
 1 file changed, 6 insertions(+), 3 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 5800bca6d..0e8a95526 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -67,10 +67,11 @@
          sample (\ ! map (set@ #///.identity (#.Some identity))
                    $profile.random)
          home (random.ascii/alpha 5)
-         working_directory (random.ascii/alpha 5)]
+         working_directory (random.ascii/alpha 5)
+         #let [/ (\ file.default separator)]]
         ($_ _.and
             (wrap (do {! promise.monad}
-                    [#let [fs (file.mock (\ file.default separator))
+                    [#let [fs (file.mock /)
                            program (program.async (program.mock environment.empty home working_directory))
 
                            artifact_path (///local.uri (get@ #///artifact.version identity) identity)
@@ -80,9 +81,11 @@
                                [succeeded! (\ ! map (text\= /.success)
                                               (..execute! program fs sample))
                                 library_exists! (|> library_path
+                                                    (format home /)
                                                     (\ fs file?)
                                                     (\ promise.monad map exception.return))
                                 pom_exists! (|> pom_path
+                                                (format home /)
                                                 (\ fs file?)
                                                 (\ promise.monad map exception.return))]
                                (wrap (and succeeded!
@@ -91,7 +94,7 @@
                     (_.cover' [/.do! /.success]
                               (try.default false verdict))))
             (wrap (do {! promise.monad}
-                    [#let [fs (file.mock (\ file.default separator))
+                    [#let [fs (file.mock /)
                            program (program.async (program.mock environment.empty home working_directory))]
                      logging (..execute! program fs (set@ #///.identity #.None sample))]
                     (_.cover' [/.failure]
-- 
cgit v1.2.3