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

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

diff --git a/stdlib/source/test/aedifex/cli.lux b/stdlib/source/test/aedifex/cli.lux
index b388866c6..fa6d9c72c 100644
--- a/stdlib/source/test/aedifex/cli.lux
+++ b/stdlib/source/test/aedifex/cli.lux
@@ -7,15 +7,15 @@
      ["$[0]" equivalence]]]
    [control
     ["[0]" pipe]
-    ["[0]" try]
-    [parser
-     ["[0]" cli]]]
+    ["[0]" try]]
    [data
     ["[0]" text]
     [collection
      ["[0]" list]]]
    [math
     ["[0]" random (.only Random) (.use "[1]#[0]" monad)]]
+   [program
+    ["cli" \\parser]]
    [test
     ["_" property (.only Test)]]]]
  [\\program
@@ -79,7 +79,7 @@
           (cli.result /.command)
           (pipe.when
             {try.#Success [names actual]}
-            (and (at (list.equivalence text.equivalence) = (list //.default) names)
+            (and (at (list.equivalence text.equivalence) = (list) names)
                  (at /.equivalence = expected actual))
             
             {try.#Failure error}
@@ -97,7 +97,7 @@
           (cli.result /.command)
           (pipe.when
             {try.#Success [actual_profile actual_command]}
-            (and (at (list.equivalence text.equivalence) = (list expected_profile //.default) actual_profile)
+            (and (at (list.equivalence text.equivalence) = (list expected_profile) actual_profile)
                  (at /.equivalence = expected_command actual_command))
             
             {try.#Failure error}
-- 
cgit v1.2.3