From d747aada2d6df6538d0a88d70169f3757aef50af Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 10 Dec 2020 07:28:48 -0400
Subject: Updated Lux license to v0.1.1.

---
 stdlib/source/test/aedifex/command/build.lux | 32 +++++++---------------------
 1 file changed, 8 insertions(+), 24 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux
index 6a911e928..74508ef3d 100644
--- a/stdlib/source/test/aedifex/command/build.lux
+++ b/stdlib/source/test/aedifex/command/build.lux
@@ -20,7 +20,8 @@
     ["." random]]
    [world
     ["." file]
-    ["." shell (#+ Shell)]]]
+    ["." shell (#+ Shell)]
+    ["." program]]]
   ["." // #_
    ["@." version]
    ["$/#" // #_
@@ -110,27 +111,10 @@
                
                profile (|> empty-profile
                            with-program
-                           with-target)
-               
-               no-working-directory environment.empty
-               
-               environment (dictionary.put "user.dir" working-directory environment.empty)]]
+                           with-target)]]
         ($_ _.and
-            (_.cover [/.working-directory]
-                     (and (case (/.working-directory no-working-directory)
-                            (#try.Success _)
-                            false
-
-                            (#try.Failure error)
-                            true)
-                          (case (/.working-directory environment)
-                            (#try.Success _)
-                            true
-
-                            (#try.Failure error)
-                            false)))
             (wrap (do promise.monad
-                    [outcome (/.do! (@version.echo "") environment fs shell ///dependency/resolution.empty
+                    [outcome (/.do! (@version.echo "") (program.async (program.mock environment.empty working-directory)) fs shell ///dependency/resolution.empty
                                     (with-target empty-profile))]
                     (_.cover' [/.no-specified-program]
                               (case outcome
@@ -140,7 +124,7 @@
                                 (#try.Failure error)
                                 (exception.match? /.no-specified-program error)))))
             (wrap (do promise.monad
-                    [outcome (/.do! (@version.echo "") environment fs shell ///dependency/resolution.empty
+                    [outcome (/.do! (@version.echo "") (program.async (program.mock environment.empty working-directory)) fs shell ///dependency/resolution.empty
                                     (with-program empty-profile))]
                     (_.cover' [/.no-specified-target]
                               (case outcome
@@ -150,7 +134,7 @@
                                 (#try.Failure error)
                                 (exception.match? /.no-specified-target error)))))
             (wrap (do promise.monad
-                    [outcome (/.do! (@version.echo "") environment fs shell ///dependency/resolution.empty profile)]
+                    [outcome (/.do! (@version.echo "") (program.async (program.mock environment.empty working-directory)) fs shell ///dependency/resolution.empty profile)]
                     (_.cover' [/.Compiler /.no-available-compiler]
                               (case outcome
                                 (#try.Success _)
@@ -163,7 +147,7 @@
                resolution ..resolution]
               (wrap (do promise.monad
                       [verdict (do ///action.monad
-                                 [_ (/.do! console environment fs shell resolution profile)
+                                 [_ (/.do! console (program.async (program.mock environment.empty working-directory)) fs shell resolution profile)
                                   start (!.use (\ console read-line) [])
                                   end (!.use (\ console read-line) [])]
                                  (wrap (and (text\= /.start start)
@@ -177,7 +161,7 @@
                resolution ..resolution]
               (wrap (do promise.monad
                       [verdict (do ///action.monad
-                                 [_ (/.do! console environment fs (..bad-shell []) resolution profile)
+                                 [_ (/.do! console (program.async (program.mock environment.empty working-directory)) fs (..bad-shell []) resolution profile)
                                   start (!.use (\ console read-line) [])
                                   end (!.use (\ console read-line) [])]
                                  (wrap (and (text\= /.start start)
-- 
cgit v1.2.3