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/command/deploy.lux | 36 +++++++++++++--------------
 1 file changed, 18 insertions(+), 18 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux
index 88da67576..d970427d2 100644
--- a/stdlib/source/test/aedifex/command/deploy.lux
+++ b/stdlib/source/test/aedifex/command/deploy.lux
@@ -62,7 +62,7 @@
   (implementation
    (def (execute [environment working_directory command arguments])
      (do [! ///action.monad]
-       [files (at fs directory_files working_directory)
+       [files (of fs directory_files working_directory)
         _ (monad.each !
                       (function (_ file)
                         (do !
@@ -94,8 +94,8 @@
     [.let [console ($version.echo "")]
      _ ($install.make_sources! fs (the ///.#sources profile))
      _ (/.do! program (..shell fs) console local remote fs artifact profile)
-     locally_installed! (at console read_line [])
-     deployed! (at console read_line [])]
+     locally_installed! (of console read_line [])
+     deployed! (of console read_line [])]
     (in [locally_installed! deployed!])))
 
 (def .public test
@@ -112,7 +112,7 @@
          
          home (random.alphabetic 5)
          working_directory (random.alphabetic 5)
-         .let [fs (file.mock (at file.default separator))
+         .let [fs (file.mock (of file.default separator))
                program (program.async (program.mock environment.empty home working_directory))
                local (///repository/local.repository program fs)
                remote (///repository.mock $repository.mock
@@ -124,20 +124,20 @@
                                                (the ///.#sources)
                                                set.list
                                                (export.library fs)
-                                               (at ! each (\\format.result tar.format)))
+                                               (of ! each (\\format.result tar.format)))
 
-                          actual_pom (at remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact ///artifact/extension.pom))
-                          actual_library (at remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact ///artifact/extension.lux_library))
-                          actual_sha1 (at remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.sha1)))
-                          actual_sha1 (at async.monad in
+                          actual_pom (of remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact ///artifact/extension.pom))
+                          actual_library (of remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact ///artifact/extension.lux_library))
+                          actual_sha1 (of remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.sha1)))
+                          actual_sha1 (of async.monad in
                                           (do try.monad
-                                            [actual_sha1 (at utf8.codec decoded actual_sha1)]
-                                            (at ///hash.sha1_codec decoded actual_sha1)))
-                          actual_md5 (at remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.md5)))
-                          actual_md5 (at async.monad in
+                                            [actual_sha1 (of utf8.codec decoded actual_sha1)]
+                                            (of ///hash.sha1_codec decoded actual_sha1)))
+                          actual_md5 (of remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.md5)))
+                          actual_md5 (of async.monad in
                                          (do try.monad
-                                           [actual_md5 (at utf8.codec decoded actual_md5)]
-                                           (at ///hash.md5_codec decoded actual_md5)))
+                                           [actual_md5 (of utf8.codec decoded actual_md5)]
+                                           (of ///hash.md5_codec decoded actual_md5)))
 
                           .let [succeeded!
                                 (and (text#= //install.success locally_installed!)
@@ -148,16 +148,16 @@
                                           actual_library)
 
                                 deployed_pom!
-                                (binary#= (|> expected_pom (at xml.codec encoded) (at utf8.codec encoded))
+                                (binary#= (|> expected_pom (of xml.codec encoded) (of utf8.codec encoded))
                                           actual_pom)
 
                                 deployed_sha1!
-                                (at ///hash.equivalence =
+                                (of ///hash.equivalence =
                                     (///hash.sha1 expected_library)
                                     actual_sha1)
 
                                 deployed_md5!
-                                (at ///hash.equivalence =
+                                (of ///hash.equivalence =
                                     (///hash.md5 expected_library)
                                     actual_md5)]]
                          (in (and succeeded!
-- 
cgit v1.2.3