From b216900093c905b3b20dd45c69e577b192e2f7a3 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 25 Aug 2021 16:47:50 -0400
Subject: Updates to the Lua compiler.

---
 stdlib/source/test/aedifex/cli.lux | 10 ++++++----
 1 file changed, 6 insertions(+), 4 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 45ec92f4e..9712d8a93 100644
--- a/stdlib/source/test/aedifex/cli.lux
+++ b/stdlib/source/test/aedifex/cli.lux
@@ -12,7 +12,9 @@
      [parser
       ["." cli]]]
     [data
-     ["." text ("#\." equivalence)]]
+     ["." text]
+     [collection
+      ["." list]]]
     [math
      ["." random (#+ Random) ("#\." monad)]]]]
   [\\program
@@ -74,8 +76,8 @@
             (|> expected
                 ..format
                 (cli.result /.command)
-                (case> (#try.Success [name actual])
-                       (and (text\= //.default name)
+                (case> (#try.Success [names actual])
+                       (and (\ (list.equivalence text.equivalence) = (list //.default) names)
                             (\ /.equivalence = expected actual))
                        
                        (#try.Failure error)
@@ -92,7 +94,7 @@
                 (list& "with" expected_profile)
                 (cli.result /.command)
                 (case> (#try.Success [actual_profile actual_command])
-                       (and (text\= expected_profile actual_profile)
+                       (and (\ (list.equivalence text.equivalence) = (list expected_profile //.default) actual_profile)
                             (\ /.equivalence = expected_command actual_command))
                        
                        (#try.Failure error)
-- 
cgit v1.2.3