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/package.lux | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/package.lux b/stdlib/source/test/aedifex/package.lux
index 8f8285c49..4d0f994d0 100644
--- a/stdlib/source/test/aedifex/package.lux
+++ b/stdlib/source/test/aedifex/package.lux
@@ -33,7 +33,7 @@
    ["[0]" /
     ["/[1]" // "_"
      ["[1]" profile]
-     ["[1][0]" hash ("[1]\[0]" equivalence)]
+     ["[1][0]" hash ("[1]#[0]" equivalence)]
      ["[1][0]" pom]
      [dependency
       ["[1][0]" status]]
@@ -43,7 +43,7 @@
 (def: .public random
   (Random [//.Profile /.Package])
   (do [! random.monad]
-    [content_size (\ ! each (n.% 100) random.nat)
+    [content_size (# ! each (n.% 100) random.nat)
      content ($binary.random content_size)
      [profile pom] (random.one (function (_ profile)
                                  (try.maybe
@@ -61,7 +61,7 @@
         [[profile package] ..random]
         ($_ _.and
             (_.for [/.equivalence]
-                   ($equivalence.spec /.equivalence (\ ! each product.right ..random)))
+                   ($equivalence.spec /.equivalence (# ! each product.right ..random)))
             
             (_.cover [/.local?]
                      (/.local? (with@ /.#origin {//origin.#Local "~/yolo"} package)))
@@ -83,8 +83,8 @@
                               (and (same? expected_library actual_library)
                                    (case library_status
                                      {//status.#Verified actual_sha1 expected_md5}
-                                     (and (//hash\= expected_sha1 actual_sha1)
-                                          (//hash\= expected_md5 expected_md5))
+                                     (and (//hash#= expected_sha1 actual_sha1)
+                                          (//hash#= expected_md5 expected_md5))
                                      
                                      _
                                      false)))
@@ -92,14 +92,14 @@
                                   expected_md5 (//hash.md5 binary_pom)]
                               (and (same? expected_pom actual_pom)
                                    (|> (do try.monad
-                                         [xml_pom (\ utf8.codec decoded binary_pom)
-                                          decoded_pom (\ xml.codec decoded xml_pom)]
-                                         (in (\ xml.equivalence = actual_pom decoded_pom)))
+                                         [xml_pom (# utf8.codec decoded binary_pom)
+                                          decoded_pom (# xml.codec decoded xml_pom)]
+                                         (in (# xml.equivalence = actual_pom decoded_pom)))
                                        (try.else false))
                                    (case pom_status
                                      {//status.#Verified actual_sha1 expected_md5}
-                                     (and (//hash\= expected_sha1 actual_sha1)
-                                          (//hash\= expected_md5 expected_md5))
+                                     (and (//hash#= expected_sha1 actual_sha1)
+                                          (//hash#= expected_md5 expected_md5))
                                      
                                      _
                                      false))))))
@@ -107,7 +107,7 @@
                      (let [expected (value@ //.#dependencies profile)]
                        (case (/.dependencies package)
                          {try.#Success actual}
-                         (\ set.equivalence = expected actual)
+                         (# set.equivalence = expected actual)
                          
                          {try.#Failure error}
                          false)))
@@ -115,7 +115,7 @@
                      (let [expected (value@ //.#repositories profile)]
                        (case (/.repositories package)
                          {try.#Success actual}
-                         (\ set.equivalence = expected actual)
+                         (# set.equivalence = expected actual)
                          
                          {try.#Failure error}
                          false)))
-- 
cgit v1.2.3