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/build.lux | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 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 c039b6e9c..674a04e93 100644
--- a/stdlib/source/test/aedifex/command/build.lux
+++ b/stdlib/source/test/aedifex/command/build.lux
@@ -9,9 +9,7 @@
     ["[0]" try]
     ["[0]" exception]
     [concurrency
-     ["[0]" async (.only Async)]]
-    [parser
-     ["[0]" environment]]]
+     ["[0]" async (.only Async)]]]
    [data
     ["[0]" text (.use "[1]#[0]" equivalence)]
     [collection
@@ -21,7 +19,9 @@
    [world
     ["[0]" file]
     ["[0]" shell (.only Shell)]
-    ["[0]" program]]
+    ["[0]" environment
+     ["program" /]
+     ["[1]" \\parser]]]
    [test
     ["[0]" unit]
     ["_" property (.only Test)]]]]
@@ -146,7 +146,8 @@
          last_error (random.alphabetic 5)
          .let [fs (file.mock (at file.default separator))
                shell (shell.async (..good_shell []))]
-         program (random.alphabetic 5)
+         program (random.and (random.alphabetic 5)
+                             (random.alphabetic 5))
          target (random.alphabetic 5)
          home (random.alphabetic 5)
          working_directory (random.alphabetic 5)
-- 
cgit v1.2.3