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/artifact/snapshot/version/value.lux | 8 ++++----
 stdlib/source/test/aedifex/artifact/time/time.lux              | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'stdlib/source/test/aedifex/artifact')

diff --git a/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux b/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux
index ada815059..915d283da 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux
@@ -47,18 +47,18 @@
           (do random.monad
             [sample random
              stamp $///stamp.random]
-            (let [version (get@ #/.version sample)
+            (let [version (value@ #/.version sample)
 
                   local!
                   (text\= version
-                          (/.format (set@ #/.snapshot #///.Local sample)))
+                          (/.format (with@ #/.snapshot #///.Local sample)))
 
                   remote_format (/.format {#/.version (format version /.snapshot)
                                            #/.snapshot (#///.Remote stamp)})
                   remote!
-                  (and (text.starts_with? (format version (///time.format (get@ #///stamp.time stamp)))
+                  (and (text.starts_with? (format version (///time.format (value@ #///stamp.time stamp)))
                                           remote_format)
-                       (text.ends_with? (%.nat (get@ #///stamp.build stamp))
+                       (text.ends_with? (%.nat (value@ #///stamp.build stamp))
                                         remote_format))]
               (_.cover [/.snapshot /.format]
                        (and local!
diff --git a/stdlib/source/test/aedifex/artifact/time/time.lux b/stdlib/source/test/aedifex/artifact/time/time.lux
index 4dcdac3cc..1f5e4c6e7 100644
--- a/stdlib/source/test/aedifex/artifact/time/time.lux
+++ b/stdlib/source/test/aedifex/artifact/time/time.lux
@@ -19,7 +19,7 @@
 
 (def: .public random
   (Random /.Time)
-  (random.one (|>> time.clock (set@ #time.milli_second 0) time.time)
+  (random.one (|>> time.clock (with@ #time.milli_second 0) time.time)
               random.time))
 
 (def: .public test
-- 
cgit v1.2.3