From c4bbfea18d995948012f45a6afda7a6e6ba56f84 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 24 Nov 2020 05:18:04 -0400
Subject: Better error messages when re-using a name when making a definition.

---
 stdlib/source/test/aedifex/cli.lux | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 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 b7be4e8bf..5dacd4f16 100644
--- a/stdlib/source/test/aedifex/cli.lux
+++ b/stdlib/source/test/aedifex/cli.lux
@@ -12,9 +12,9 @@
     [parser
      ["." cli]]]
    [data
-    ["." text ("#@." equivalence)]]
+    ["." text ("#\." equivalence)]]
    [math
-    ["." random (#+ Random) ("#@." monad)]]]
+    ["." random (#+ Random) ("#\." monad)]]]
   {#program
    ["." /
     ["/#" // #_
@@ -23,20 +23,20 @@
 
 (def: compilation
   (Random /.Compilation)
-  (random.or (random@wrap [])
-             (random@wrap [])))
+  (random.or (random\wrap [])
+             (random\wrap [])))
 
 (def: command
   (Random /.Command)
   ($_ random.or
       ## #Clean
-      (random@wrap [])
+      (random\wrap [])
       ## #POM
-      (random@wrap [])
+      (random\wrap [])
       ## #Dependencies
-      (random@wrap [])
+      (random\wrap [])
       ## #Install
-      (random@wrap [])
+      (random\wrap [])
       ## #Deploy
       ($_ random.and
           (random.ascii/alpha 1)
@@ -73,7 +73,7 @@
                 ..format
                 (cli.run /.command)
                 (case> (#try.Success [name actual])
-                       (and (text@= //.default name)
+                       (and (text\= //.default name)
                             (:: /.equivalence = expected actual))
                        
                        (#try.Failure error)
@@ -90,7 +90,7 @@
                 (list& "with" expected-profile)
                 (cli.run /.command)
                 (case> (#try.Success [actual-profile actual-command])
-                       (and (text@= expected-profile actual-profile)
+                       (and (text\= expected-profile actual-profile)
                             (:: /.equivalence = expected-command actual-command))
                        
                        (#try.Failure error)
-- 
cgit v1.2.3