From dda05bca0956af5e5b3875c4cc36e61aa04772e4 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 12 Sep 2021 00:07:08 -0400
Subject: Made the "#" character great again!

---
 stdlib/source/test/aedifex/package.lux | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 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 69d31ddcc..8f8285c49 100644
--- a/stdlib/source/test/aedifex/package.lux
+++ b/stdlib/source/test/aedifex/package.lux
@@ -64,25 +64,25 @@
                    ($equivalence.spec /.equivalence (\ ! each product.right ..random)))
             
             (_.cover [/.local?]
-                     (/.local? (with@ #/.origin {#//origin.Local "~/yolo"} package)))
+                     (/.local? (with@ /.#origin {//origin.#Local "~/yolo"} package)))
             (_.cover [/.remote?]
-                     (/.remote? (with@ #/.origin {#//origin.Remote "https://example.com"} package)))
+                     (/.remote? (with@ /.#origin {//origin.#Remote "https://example.com"} package)))
             (_.cover [/.local]
-                     (let [expected_pom (|> package (value@ #/.pom) product.left)
-                           expected_library (|> package (value@ #/.library) product.left)
+                     (let [expected_pom (|> package (value@ /.#pom) product.left)
+                           expected_library (|> package (value@ /.#library) product.left)
 
                            local (/.local expected_pom expected_library)
 
-                           [actual_pom binary_pom pom_status] (value@ #/.pom local)
-                           [actual_library library_status] (value@ #/.library local)]
-                       (and (case (value@ #/.origin local)
-                              {#//origin.Local ""} true
+                           [actual_pom binary_pom pom_status] (value@ /.#pom local)
+                           [actual_library library_status] (value@ /.#library local)]
+                       (and (case (value@ /.#origin local)
+                              {//origin.#Local ""} true
                               _ false)
                             (let [expected_sha1 (//hash.sha-1 expected_library)
                                   expected_md5 (//hash.md5 expected_library)]
                               (and (same? expected_library actual_library)
                                    (case library_status
-                                     {#//status.Verified actual_sha1 expected_md5}
+                                     {//status.#Verified actual_sha1 expected_md5}
                                      (and (//hash\= expected_sha1 actual_sha1)
                                           (//hash\= expected_md5 expected_md5))
                                      
@@ -97,26 +97,26 @@
                                          (in (\ xml.equivalence = actual_pom decoded_pom)))
                                        (try.else false))
                                    (case pom_status
-                                     {#//status.Verified actual_sha1 expected_md5}
+                                     {//status.#Verified actual_sha1 expected_md5}
                                      (and (//hash\= expected_sha1 actual_sha1)
                                           (//hash\= expected_md5 expected_md5))
                                      
                                      _
                                      false))))))
             (_.cover [/.dependencies]
-                     (let [expected (value@ #//.dependencies profile)]
+                     (let [expected (value@ //.#dependencies profile)]
                        (case (/.dependencies package)
-                         {#try.Success actual}
+                         {try.#Success actual}
                          (\ set.equivalence = expected actual)
                          
-                         {#try.Failure error}
+                         {try.#Failure error}
                          false)))
             (_.cover [/.repositories]
-                     (let [expected (value@ #//.repositories profile)]
+                     (let [expected (value@ //.#repositories profile)]
                        (case (/.repositories package)
-                         {#try.Success actual}
+                         {try.#Success actual}
                          (\ set.equivalence = expected actual)
                          
-                         {#try.Failure error}
+                         {try.#Failure error}
                          false)))
             ))))
-- 
cgit v1.2.3