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

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

diff --git a/stdlib/source/test/aedifex/cache.lux b/stdlib/source/test/aedifex/cache.lux
index 44641af70..91870d680 100644
--- a/stdlib/source/test/aedifex/cache.lux
+++ b/stdlib/source/test/aedifex/cache.lux
@@ -57,7 +57,7 @@
                 (try.maybe
                  (do try.monad
                    [pom (//pom.write profile)
-                    identity (try.of_maybe (get@ #//.identity profile))]
+                    identity (try.of_maybe (value@ #//.identity profile))]
                    (in [identity profile pom]))))
               @profile.random))
 
@@ -75,7 +75,7 @@
      content ..content]
     (in [{#//dependency.artifact identity
           #//dependency.type type}
-         (set@ #//package.origin (#//repository/origin.Remote "") (//package.local pom content))])))
+         (with@ #//package.origin (#//repository/origin.Remote "") (//package.local pom content))])))
 
 (def: resolution
   (Random Resolution)
@@ -88,14 +88,14 @@
                                      (do !
                                        [pom (random.one (function (_ [identity profile pom])
                                                           (|> profile
-                                                              (set@ #//.dependencies (set.empty //dependency.hash))
-                                                              (set@ #//.identity (#.Some (get@ #//dependency.artifact dependency)))
+                                                              (with@ #//.dependencies (set.empty //dependency.hash))
+                                                              (with@ #//.identity (#.Some (value@ #//dependency.artifact dependency)))
                                                               //pom.write
                                                               try.maybe))
                                                         ..profile)
                                         content ..content]
                                        (in [dependency
-                                            (set@ #//package.origin (#//repository/origin.Remote "") (//package.local pom content))])))))]
+                                            (with@ #//package.origin (#//repository/origin.Remote "") (//package.local pom content))])))))]
     (in (dictionary.of_list //dependency.hash (list& [main_dependency main_package] dependencies)))))
 
 (def: singular
@@ -116,7 +116,7 @@
                           [_ wrote!
                            actual_package read!]
                           (in (\ //package.equivalence =
-                                 (set@ #//package.origin (#//repository/origin.Local "") expected_package)
+                                 (with@ #//package.origin (#//repository/origin.Local "") expected_package)
                                  actual_package)))))))))
 
 (def: plural
@@ -138,7 +138,7 @@
                            actual read!]
                           (in (\ //dependency/resolution.equivalence =
                                  (\ dictionary.functor map
-                                    (set@ #//package.origin (#//repository/origin.Local ""))
+                                    (with@ #//package.origin (#//repository/origin.Local ""))
                                     expected)
                                  actual)))))))))
 
-- 
cgit v1.2.3