From 120ebb44dbb1a20fc150e5e58099f90be2e61d49 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 8 Apr 2022 21:32:38 -0400
Subject: Better names for random text/character generators.

---
 stdlib/source/test/aedifex/repository/identity.lux |  4 ++--
 stdlib/source/test/aedifex/repository/local.lux    | 10 +++++-----
 stdlib/source/test/aedifex/repository/origin.lux   |  4 ++--
 stdlib/source/test/aedifex/repository/remote.lux   | 10 +++++-----
 4 files changed, 14 insertions(+), 14 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/repository/identity.lux b/stdlib/source/test/aedifex/repository/identity.lux
index 5e357ecca..e1b67e424 100644
--- a/stdlib/source/test/aedifex/repository/identity.lux
+++ b/stdlib/source/test/aedifex/repository/identity.lux
@@ -13,8 +13,8 @@
 (def: .public random
   (Random /.Identity)
   (all random.and
-       (random.ascii/alpha 10)
-       (random.ascii/alpha 10)
+       (random.alphabetic 10)
+       (random.alphabetic 10)
        ))
 
 (def: .public test
diff --git a/stdlib/source/test/aedifex/repository/local.lux b/stdlib/source/test/aedifex/repository/local.lux
index c5da9011d..92826c8ff 100644
--- a/stdlib/source/test/aedifex/repository/local.lux
+++ b/stdlib/source/test/aedifex/repository/local.lux
@@ -27,16 +27,16 @@
   Test
   (<| (_.covering /._)
       (do [! random.monad]
-        [/ (random.ascii/upper 1)
-         home (random.ascii/lower 10)
-         working_directory (random.ascii/lower 10)
+        [/ (random.upper_case 1)
+         home (random.lower_case 10)
+         working_directory (random.lower_case 10)
          .let [fs (file.mock /)
                program (program.async (program.mock environment.empty home working_directory))
                repo (/.repository program fs)]
 
-         uri (random.ascii/lower 10)
+         uri (random.lower_case 10)
          expected (# ! each (# utf8.codec encoded)
-                     (random.ascii/lower 10))]
+                     (random.lower_case 10))]
         (all _.and
              (in (do async.monad
                    [before_upload (# repo download uri)
diff --git a/stdlib/source/test/aedifex/repository/origin.lux b/stdlib/source/test/aedifex/repository/origin.lux
index a0bcff68d..90a0f89dd 100644
--- a/stdlib/source/test/aedifex/repository/origin.lux
+++ b/stdlib/source/test/aedifex/repository/origin.lux
@@ -13,8 +13,8 @@
 (def: .public random
   (Random /.Origin)
   (all random.or
-       (random.ascii/alpha 10)
-       (random.ascii/alpha 10)
+       (random.alphabetic 10)
+       (random.alphabetic 10)
        ))
 
 (def: .public test
diff --git a/stdlib/source/test/aedifex/repository/remote.lux b/stdlib/source/test/aedifex/repository/remote.lux
index abf123f4b..05cd293c3 100644
--- a/stdlib/source/test/aedifex/repository/remote.lux
+++ b/stdlib/source/test/aedifex/repository/remote.lux
@@ -84,14 +84,14 @@
   Test
   (<| (_.covering /._)
       (do [! random.monad]
-        [address (random.ascii/upper 10)
-         uri (random.ascii/lower 10)
+        [address (random.upper_case 10)
+         uri (random.lower_case 10)
 
-         user (random.ascii/lower 10)
-         password (random.ascii/lower 10)
+         user (random.lower_case 10)
+         password (random.lower_case 10)
 
          content (# ! each (# utf8.codec encoded)
-                    (random.ascii/lower 10))]
+                    (random.lower_case 10))]
         (all _.and
              (_.cover [/.repository /.user_agent /.Address]
                       (let [repo (/.repository (..good_http user password)
-- 
cgit v1.2.3