From e00ba096c8837abe85d366e0c1293c09dbe84d81 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 18 Aug 2021 03:29:15 -0400
Subject: Some bug fixes.

---
 stdlib/source/test/aedifex/package.lux | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 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 e05c1d753..9596eb63f 100644
--- a/stdlib/source/test/aedifex/package.lux
+++ b/stdlib/source/test/aedifex/package.lux
@@ -64,18 +64,18 @@
                    ($equivalence.spec /.equivalence (\ ! map product.right ..random)))
             
             (_.cover [/.local?]
-                     (/.local? (set@ #/.origin (#//origin.Local "~/yolo") package)))
+                     (/.local? (with@ #/.origin (#//origin.Local "~/yolo") package)))
             (_.cover [/.remote?]
-                     (/.remote? (set@ #/.origin (#//origin.Remote "https://example.com") package)))
+                     (/.remote? (with@ #/.origin (#//origin.Remote "https://example.com") package)))
             (_.cover [/.local]
-                     (let [expected_pom (|> package (get@ #/.pom) product.left)
-                           expected_library (|> package (get@ #/.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] (get@ #/.pom local)
-                           [actual_library library_status] (get@ #/.library local)]
-                       (and (case (get@ #/.origin local)
+                           [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)
@@ -104,7 +104,7 @@
                                      _
                                      false))))))
             (_.cover [/.dependencies]
-                     (let [expected (get@ #//.dependencies profile)]
+                     (let [expected (value@ #//.dependencies profile)]
                        (case (/.dependencies package)
                          (#try.Success actual)
                          (\ set.equivalence = expected actual)
@@ -112,7 +112,7 @@
                          (#try.Failure error)
                          false)))
             (_.cover [/.repositories]
-                     (let [expected (get@ #//.repositories profile)]
+                     (let [expected (value@ #//.repositories profile)]
                        (case (/.repositories package)
                          (#try.Success actual)
                          (\ set.equivalence = expected actual)
-- 
cgit v1.2.3