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/package.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 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 fd8a2c372..8f335b753 100644
--- a/stdlib/source/test/aedifex/package.lux
+++ b/stdlib/source/test/aedifex/package.lux
@@ -44,7 +44,7 @@
 (def .public random
   (Random [//.Profile /.Package])
   (do [! random.monad]
-    [content_size (at ! each (n.% 100) random.nat)
+    [content_size (of ! each (n.% 100) random.nat)
      content ($binary.random content_size)
      [profile pom] (random.one (function (_ profile)
                                  (try.maybe
@@ -62,7 +62,7 @@
         [[profile package] ..random]
         (all _.and
              (_.for [/.equivalence]
-                    ($equivalence.spec /.equivalence (at ! each product.right ..random)))
+                    ($equivalence.spec /.equivalence (of ! each product.right ..random)))
              
              (_.coverage [/.local?]
                (/.local? (has /.#origin {//origin.#Local "~/yolo"} package)))
@@ -93,9 +93,9 @@
                             expected_md5 (//hash.md5 binary_pom)]
                         (and (same? expected_pom actual_pom)
                              (|> (do try.monad
-                                   [xml_pom (at utf8.codec decoded binary_pom)
-                                    decoded_pom (at xml.codec decoded xml_pom)]
-                                   (in (at xml.equivalence = actual_pom decoded_pom)))
+                                   [xml_pom (of utf8.codec decoded binary_pom)
+                                    decoded_pom (of xml.codec decoded xml_pom)]
+                                   (in (of xml.equivalence = actual_pom decoded_pom)))
                                  (try.else false))
                              (when pom_status
                                {//status.#Verified actual_sha1 expected_md5}
@@ -108,7 +108,7 @@
                (let [expected (the //.#dependencies profile)]
                  (when (/.dependencies package)
                    {try.#Success actual}
-                   (at set.equivalence = expected actual)
+                   (of set.equivalence = expected actual)
                    
                    {try.#Failure error}
                    false)))
@@ -116,7 +116,7 @@
                (let [expected (the //.#repositories profile)]
                  (when (/.repositories package)
                    {try.#Success actual}
-                   (at set.equivalence = expected actual)
+                   (of set.equivalence = expected actual)
                    
                    {try.#Failure error}
                    false)))
-- 
cgit v1.2.3