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/auto.lux | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux
index e8f6d17f1..48b2a7eb3 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -26,6 +26,7 @@
    [world
     [console (#+ Console)]
     ["." shell (#+ Shell)]
+    ["." program (#+ Program)]
     ["." file (#+ Path)
      ["." watch]]]]
   ["." // #_
@@ -49,11 +50,11 @@
 (def: (command end-signal dummy-files)
   (-> Text (List Path)
       [(Atom [Nat (List Path)])
-       (-> (Console Promise) Environment (file.System Promise) (Shell Promise) Resolution (Command Any))])
+       (-> (Console Promise) (Program Promise) (file.System Promise) (Shell Promise) Resolution (Command Any))])
   (let [@runs (: (Atom [Nat (List Path)])
                  (atom.atom [0 dummy-files]))]
     [@runs
-     (function (_ console environment fs shell resolution profile)
+     (function (_ console program fs shell resolution profile)
        (do {! promise.monad}
          [[runs remaining-files] (promise.future
                                   (atom.update (function (_ [runs remaining-files])
@@ -95,9 +96,7 @@
                profile (|> empty-profile
                            with-program
                            with-target
-                           (set@ #///.sources (set.from-list text.hash (list source))))
-               
-               environment (dictionary.put "user.dir" working-directory environment.empty)]
+                           (set@ #///.sources (set.from-list text.hash (list source))))]
          resolution @build.resolution]
         ($_ _.and
             (wrap (do promise.monad
@@ -106,7 +105,13 @@
                                 _ (!.use (\ fs create-directory) [source])
                                 _ (\ watcher poll [])]
                                (do promise.monad
-                                 [outcome ((/.do! watcher command) (@version.echo "") environment fs (@build.good-shell []) resolution profile)
+                                 [outcome ((/.do! watcher command)
+                                           (@version.echo "")
+                                           (program.async (program.mock environment.empty working-directory))
+                                           fs
+                                           (@build.good-shell [])
+                                           resolution
+                                           profile)
                                   [actual-runs _] (promise.future (atom.read @runs))]
                                  (wrap (#try.Success (and (n.= expected-runs actual-runs)
                                                           (case outcome
-- 
cgit v1.2.3