From 2dbbaaec93a53f8dd0b96a0028b9cf125c9066cd Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 12 Sep 2021 15:39:55 -0400
Subject: Re-named \ => # && \\ => ##

---
 stdlib/source/test/aedifex/command/test.lux | 42 ++++++++++++++---------------
 1 file changed, 21 insertions(+), 21 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 cee27dd27..20a59f405 100644
--- a/stdlib/source/test/aedifex/command/test.lux
+++ b/stdlib/source/test/aedifex/command/test.lux
@@ -12,7 +12,7 @@
      [parser
       ["[0]" environment]]]
     [data
-     ["[0]" text ("[1]\[0]" equivalence)]
+     ["[0]" text ("[1]#[0]" equivalence)]
      [collection
       ["[0]" dictionary]
       ["[0]" list]]]
@@ -48,7 +48,7 @@
          home (random.ascii/alpha 5)
          working_directory (random.ascii/alpha 5)
          .let [empty_profile (: Profile
-                                (\ ///.monoid identity))
+                                (# ///.monoid identity))
                with_target (: (-> Profile Profile)
                               (with@ ///.#target target))
                with_test (: (-> Profile Profile)
@@ -59,25 +59,25 @@
                            with_target)]
          [compiler resolution] @build.resolution]
         ($_ _.and
-            (let [fs (file.mock (\ file.default separator))
+            (let [fs (file.mock (# file.default separator))
                   console (@version.echo "")]
               (in (do async.monad
                     [verdict (do ///action.monad
                                [_ (/.do! console (program.async (program.mock environment.empty home working_directory))
                                          fs (shell.async (@build.good_shell [])) resolution
                                          (with@ ///.#compiler compiler profile))
-                                build_start (\ console read_line [])
-                                build_end (\ console read_line [])
-                                test_start (\ console read_line [])
-                                test_end (\ console read_line [])]
-                               (in (and (and (text\= //build.start build_start)
-                                             (text\= //build.success build_end))
-                                        (and (text\= /.start test_start)
-                                             (text\= /.success test_end)))))]
+                                build_start (# console read_line [])
+                                build_end (# console read_line [])
+                                test_start (# console read_line [])
+                                test_end (# console read_line [])]
+                               (in (and (and (text#= //build.start build_start)
+                                             (text#= //build.success build_end))
+                                        (and (text#= /.start test_start)
+                                             (text#= /.success test_end)))))]
                     (_.cover' [/.do!
                                /.start /.success]
                               (try.else false verdict)))))
-            (let [fs (file.mock (\ file.default separator))
+            (let [fs (file.mock (# file.default separator))
                   console (@version.echo "")]
               (in (do async.monad
                     [verdict (do ///action.monad
@@ -95,21 +95,21 @@
                                                         (def: (on_destroy state)
                                                           {try.#Failure "on_destroy"})
                                                         (def: (on_await state)
-                                                          {try.#Success [state (if (list.any? (text\= "build") actual_arguments)
+                                                          {try.#Success [state (if (list.any? (text#= "build") actual_arguments)
                                                                                  shell.normal
                                                                                  shell.error)]})))})
                                                  [])]
                                 _ (/.do! console (program.async (program.mock environment.empty home working_directory))
                                          fs (shell.async bad_shell) resolution
                                          (with@ ///.#compiler compiler profile))
-                                build_start (\ console read_line [])
-                                build_end (\ console read_line [])
-                                test_start (\ console read_line [])
-                                test_end (\ console read_line [])]
-                               (in (and (and (text\= //build.start build_start)
-                                             (text\= //build.success build_end))
-                                        (and (text\= /.start test_start)
-                                             (text\= /.failure test_end)))))]
+                                build_start (# console read_line [])
+                                build_end (# console read_line [])
+                                test_start (# console read_line [])
+                                test_end (# console read_line [])]
+                               (in (and (and (text#= //build.start build_start)
+                                             (text#= //build.success build_end))
+                                        (and (text#= /.start test_start)
+                                             (text#= /.failure test_end)))))]
                     (_.cover' [/.failure]
                               (try.else false verdict)))))
             ))))
-- 
cgit v1.2.3