From 9af671a34728b35c48bff2ba163c371dc5084946 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 10 Dec 2020 22:29:32 -0400
Subject: Render XML to text in an indented form for human readability.

---
 stdlib/source/test/aedifex/command/deps.lux | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/deps.lux b/stdlib/source/test/aedifex/command/deps.lux
index 5b9dd87da..292185a28 100644
--- a/stdlib/source/test/aedifex/command/deps.lux
+++ b/stdlib/source/test/aedifex/command/deps.lux
@@ -9,7 +9,9 @@
     [concurrency
      ["." promise]]
     [security
-     ["!" capability]]]
+     ["!" capability]]
+    [parser
+     ["." environment]]]
    [data
     ["." text ("#\." equivalence)
      ["%" format (#+ format)]]
@@ -19,6 +21,7 @@
    [math
     ["." random (#+ Random)]]
    [world
+    ["." program]
     ["." file]]]
   ["." // #_
    ["@." version]
@@ -47,7 +50,10 @@
   Test
   (<| (_.covering /._)
       (do random.monad
-        [dependee-artifact $///artifact.random
+        [home (random.ascii/alpha 5)
+         working-directory (random.ascii/alpha 5)
+
+         dependee-artifact $///artifact.random
          depender-artifact (random.filter (predicate.complement
                                            (\ ///artifact.equivalence = dependee-artifact))
                                           $///artifact.random)
@@ -77,16 +83,17 @@
                                     (set@ #///package.origin #///package.Remote)
                                     (set@ #///package.pom depender-pom))
 
-               fs (file.mock (\ file.default separator))]]
+               fs (file.mock (\ file.default separator))
+               program (program.async (program.mock environment.empty home working-directory))]]
         (wrap (do promise.monad
                 [verdict (do ///action.monad
                            [#let [console (@version.echo "")]
                             pre (|> ///dependency/resolution.empty
                                     (dictionary.put dependee dependee-package)
-                                    (///cache.write-all fs))
+                                    (///cache.write-all program fs))
                             post (|> (\ ///.monoid identity)
                                      (set@ #///.dependencies (set.from-list ///dependency.hash (list dependee depender)))
-                                     (/.do! console fs (list (///repository.mock ($///dependency/resolution.single depender-artifact depender-package) []))))
+                                     (/.do! program console fs (list (///repository.mock ($///dependency/resolution.single depender-artifact depender-package) []))))
                             logging! (\ ///action.monad map
                                         (text\= //clean.success)
                                         (!.use (\ console read-line) []))]
-- 
cgit v1.2.3