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/repository/local.lux  | 10 +++++-----
 stdlib/source/test/aedifex/repository/remote.lux | 10 +++++-----
 2 files changed, 10 insertions(+), 10 deletions(-)

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

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