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

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

diff --git a/stdlib/source/test/aedifex/command/test.lux b/stdlib/source/test/aedifex/command/test.lux
index 1209b4020..31afea06b 100644
--- a/stdlib/source/test/aedifex/command/test.lux
+++ b/stdlib/source/test/aedifex/command/test.lux
@@ -7,9 +7,7 @@
     ["[0]" try]
     ["[0]" exception]
     [concurrency
-     ["[0]" async]]
-    [parser
-     ["[0]" environment]]]
+     ["[0]" async]]]
    [data
     ["[0]" text (.use "[1]#[0]" equivalence)]
     [collection
@@ -20,7 +18,9 @@
    [world
     ["[0]" file]
     ["[0]" shell]
-    ["[0]" program]]
+    ["[0]" environment
+     ["program" /]
+     ["[1]" \\parser]]]
    [test
     ["[0]" unit]
     ["_" property (.only Test)]]]]
@@ -45,7 +45,8 @@
   Test
   (<| (_.covering /._)
       (do [! random.monad]
-        [test (random.alphabetic 5)
+        [test (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