From 8d4c256f8b56561869c14df02db695d774c74fa6 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 24 Oct 2022 19:28:57 -0400
Subject: Minor naming & syntax improvements.

---
 stdlib/source/test/aedifex/artifact.lux              |  6 +++---
 stdlib/source/test/aedifex/dependency/deployment.lux |  2 +-
 stdlib/source/test/aedifex/metadata/artifact.lux     |  4 ++--
 stdlib/source/test/aedifex/metadata/snapshot.lux     |  4 ++--
 stdlib/source/test/aedifex/repository/local.lux      | 10 +++++-----
 stdlib/source/test/aedifex/repository/remote.lux     | 10 +++++-----
 6 files changed, 18 insertions(+), 18 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/artifact.lux b/stdlib/source/test/aedifex/artifact.lux
index 621af00af..f9bf55c4c 100644
--- a/stdlib/source/test/aedifex/artifact.lux
+++ b/stdlib/source/test/aedifex/artifact.lux
@@ -31,9 +31,9 @@
   (Random /.Artifact)
   (let [size 4]
     (all random.and
-         (random.lower_case size)
-         (random.lower_case size)
-         (random.lower_case size))))
+         (random.lower_cased size)
+         (random.lower_cased size)
+         (random.lower_cased size))))
 
 (def .public test
   Test
diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux
index 79b3210ff..6e8aff6b6 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -150,7 +150,7 @@
   (<| (_.covering /._)
       (do [! random.monad]
         [address (at ! each (text.suffix uri.separator)
-                     (random.upper_case 10))]
+                     (random.upper_cased 10))]
         (all _.and
              (do [! random.monad]
                [[dependency expected_artifact package] ..bundle
diff --git a/stdlib/source/test/aedifex/metadata/artifact.lux b/stdlib/source/test/aedifex/metadata/artifact.lux
index 27c194d84..1f5fc5f8e 100644
--- a/stdlib/source/test/aedifex/metadata/artifact.lux
+++ b/stdlib/source/test/aedifex/metadata/artifact.lux
@@ -99,8 +99,8 @@
                (text#= (//.remote_project_uri artifact)
                        (/.uri artifact)))
              (do random.monad
-               [home (random.lower_case 5)
-                working_directory (random.lower_case 5)
+               [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))
                       repository (///repository/local.repository program fs)]]
diff --git a/stdlib/source/test/aedifex/metadata/snapshot.lux b/stdlib/source/test/aedifex/metadata/snapshot.lux
index fa26186ea..30a8b0311 100644
--- a/stdlib/source/test/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/test/aedifex/metadata/snapshot.lux
@@ -111,8 +111,8 @@
                (text#= (//.remote_artifact_uri artifact)
                        (/.uri artifact)))
              (do random.monad
-               [home (random.lower_case 5)
-                working_directory (random.lower_case 5)
+               [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))
                       repository (///repository/local.repository program fs)]]
diff --git a/stdlib/source/test/aedifex/repository/local.lux b/stdlib/source/test/aedifex/repository/local.lux
index 874c773b3..7edaa1353 100644
--- a/stdlib/source/test/aedifex/repository/local.lux
+++ b/stdlib/source/test/aedifex/repository/local.lux
@@ -29,16 +29,16 @@
   Test
   (<| (_.covering /._)
       (do [! random.monad]
-        [/ (random.upper_case 1)
-         home (random.lower_case 10)
-         working_directory (random.lower_case 10)
+        [/ (random.upper_cased 1)
+         home (random.lower_cased 10)
+         working_directory (random.lower_cased 10)
          .let [fs (file.mock /)
                program (program.async (program.mock environment.empty home working_directory))
                repo (/.repository program fs)]
 
-         uri (random.lower_case 10)
+         uri (random.lower_cased 10)
          expected (at ! each (at utf8.codec encoded)
-                      (random.lower_case 10))]
+                      (random.lower_cased 10))]
         (all _.and
              (in (do async.monad
                    [before_upload (at repo download uri)
diff --git a/stdlib/source/test/aedifex/repository/remote.lux b/stdlib/source/test/aedifex/repository/remote.lux
index 5a1c21316..4540ee5eb 100644
--- a/stdlib/source/test/aedifex/repository/remote.lux
+++ b/stdlib/source/test/aedifex/repository/remote.lux
@@ -85,14 +85,14 @@
   Test
   (<| (_.covering /._)
       (do [! random.monad]
-        [address (random.upper_case 10)
-         uri (random.lower_case 10)
+        [address (random.upper_cased 10)
+         uri (random.lower_cased 10)
 
-         user (random.lower_case 10)
-         password (random.lower_case 10)
+         user (random.lower_cased 10)
+         password (random.lower_cased 10)
 
          content (at ! each (at utf8.codec encoded)
-                     (random.lower_case 10))]
+                     (random.lower_cased 10))]
         (all _.and
              (_.coverage [/.repository /.user_agent /.Address]
                (let [repo (/.repository (..good_http user password)
-- 
cgit v1.2.3