From 772f621c19408c711c1e587668a52a8cfeeea418 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 12 Aug 2022 22:26:57 -0400
Subject: Fixes for Aedifex tests.

---
 stdlib/source/test/aedifex/command/auto.lux | 13 +++++++------
 1 file changed, 7 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 b202af97f..c46b474ac 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -6,8 +6,6 @@
    [control
     ["[0]" pipe]
     ["[0]" try]
-    [parser
-     ["[0]" environment]]
     [concurrency
      ["[0]" atom (.only Atom)]
      ["[0]" async (.only Async)]]]
@@ -26,8 +24,10 @@
    [world
     [console (.only Console)]
     ["[0]" shell (.only Exit Shell)]
-    ["[0]" program (.only Program)]
-    ["[0]" file
+    ["[0]" environment
+     ["program" / (.only Environment)]
+     ["[1]" \\parser]]
+    ["[0]" file (.only)
      ["[0]" watch]]
     [time
      ["[0]" instant]]]
@@ -49,7 +49,7 @@
 (def (command expected_runs end_signal fs dummy_file)
   (-> Nat Text (file.System Async) file.Path
       [(Atom Nat)
-       (-> (Console Async) (Program Async) (file.System Async) (Shell Async) Resolution (Command [Exit Any]))])
+       (-> (Console Async) (Environment Async) (file.System Async) (Shell Async) Resolution (Command [Exit Any]))])
   (let [@runs (is (Atom Nat)
                   (atom.atom 0))]
     [@runs
@@ -71,7 +71,8 @@
          .let [/ (at file.default separator)
                [fs watcher] (watch.mock /)]
          
-         program (random.alphabetic 5)
+         program (random.and (random.alphabetic 5)
+                             (random.alphabetic 5))
          target (random.alphabetic 5)
          source (random.alphabetic 5)
          .let [empty_profile (is Profile
-- 
cgit v1.2.3