From 94e5802f594a73245fce0fbd885103b8bf210d57 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 2 Dec 2022 19:33:00 -0400
Subject: Added some simple time-series handling machinery.

---
 stdlib/source/test/aedifex/metadata/snapshot.lux | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/metadata/snapshot.lux b/stdlib/source/test/aedifex/metadata/snapshot.lux
index 30a8b0311..d8c1bbf92 100644
--- a/stdlib/source/test/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/test/aedifex/metadata/snapshot.lux
@@ -56,12 +56,12 @@
 (def random_instant
   (Random Instant)
   (do [! random.monad]
-    [year (at ! each (|>> (n.% 9,000) (n.+ 1,000) .int) random.nat)
-     month (at ! each (|>> (n.% 12) (n.+ 1)) random.nat)
-     day_of_month (at ! each (|>> (n.% 28) (n.+ 1)) random.nat)
-     hour (at ! each (n.% 24) random.nat)
-     minute (at ! each (n.% 60) random.nat)
-     second (at ! each (n.% 60) random.nat)]
+    [year (of ! each (|>> (n.% 9,000) (n.+ 1,000) .int) random.nat)
+     month (of ! each (|>> (n.% 12) (n.+ 1)) random.nat)
+     day_of_month (of ! each (|>> (n.% 28) (n.+ 1)) random.nat)
+     hour (of ! each (n.% 24) random.nat)
+     minute (of ! each (n.% 60) random.nat)
+     second (of ! each (n.% 60) random.nat)]
     (in (try.trusted
          (do try.monad
            [year (year.year year)
@@ -105,7 +105,7 @@
                    /.format
                    list
                    (<xml>.result /.parser)
-                   (try#each (at /.equivalence = expected))
+                   (try#each (of /.equivalence = expected))
                    (try.else false)))
              (_.coverage [/.uri]
                (text#= (//.remote_artifact_uri artifact)
@@ -114,7 +114,7 @@
                [home (random.lower_cased 5)
                 working_directory (random.lower_cased 5)
                 .let [program (program.async (program.mock environment.empty home working_directory))
-                      fs (file.mock (at file.default separator))
+                      fs (file.mock (of file.default separator))
                       repository (///repository/local.repository program fs)]]
                (in (do async.monad
                      [wrote? (/.write repository artifact expected)
@@ -125,7 +125,7 @@
                               {try.#Failure _} false)
                             (when actual
                               {try.#Success actual}
-                              (at /.equivalence = expected actual)
+                              (of /.equivalence = expected actual)
                               
                               {try.#Failure _}
                               false))))))
-- 
cgit v1.2.3