Better names for random text/character generators.

24 files changed, 88 insertions, 88 deletions

diff --git a/stdlib/source/test/aedifex/artifact.lux b/stdlib/source/test/aedifex/artifact.lux
index 1a0c7cb29..e3a533036 100644
--- a/stdlib/source/test/aedifex/artifact.lux
+++ b/stdlib/source/test/aedifex/artifact.lux
@@ -30,9 +30,9 @@
   (Random /.Artifact)
   (let [size 4]
     (all random.and
-         (random.ascii/lower size)
-         (random.ascii/lower size)
-         (random.ascii/lower size))))
+         (random.lower_case size)
+         (random.lower_case size)
+         (random.lower_case size))))
 
 (def: .public test
   Test
diff --git a/stdlib/source/test/aedifex/artifact/snapshot/version.lux b/stdlib/source/test/aedifex/artifact/snapshot/version.lux
index 1d32ff734..47c276dc8 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot/version.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot/version.lux
@@ -24,7 +24,7 @@
   (Random /.Version)
   (all random.and
        $///type.random
-       (random.ascii/alpha 1)
+       (random.alphabetic 1)
        $///time.random
        ))
 
diff --git a/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux b/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux
index 7967e935f..2b32260c5 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux
@@ -31,7 +31,7 @@
 (def: .public random
   (Random /.Value)
   (all random.and
-       (random.ascii/alpha 5)
+       (random.alphabetic 5)
        (random.or (random#in [])
                   $///stamp.random)
        ))
diff --git a/stdlib/source/test/aedifex/cache.lux b/stdlib/source/test/aedifex/cache.lux
index ca247f3f0..a641ee369 100644
--- a/stdlib/source/test/aedifex/cache.lux
+++ b/stdlib/source/test/aedifex/cache.lux
@@ -102,8 +102,8 @@
   Test
   (do [! random.monad]
     [[dependency expected_package] ..package
-     home (random.ascii/alpha 5)
-     working_directory (random.ascii/alpha 5)
+     home (random.alphabetic 5)
+     working_directory (random.alphabetic 5)
      .let [fs (is (file.System Async)
                   (file.mock (# file.default separator)))
            program (program.async (program.mock environment.empty home working_directory))]]
@@ -123,8 +123,8 @@
   Test
   (do [! random.monad]
     [expected ..resolution
-     home (random.ascii/alpha 5)
-     working_directory (random.ascii/alpha 5)
+     home (random.alphabetic 5)
+     working_directory (random.alphabetic 5)
      .let [fs (is (file.System Async)
                   (file.mock (# file.default separator)))
            program (program.async (program.mock environment.empty home working_directory))]]
diff --git a/stdlib/source/test/aedifex/cli.lux b/stdlib/source/test/aedifex/cli.lux
index 4d577e737..c02ae8c4f 100644
--- a/stdlib/source/test/aedifex/cli.lux
+++ b/stdlib/source/test/aedifex/cli.lux
@@ -42,9 +42,9 @@
        (random#in [])
        ... #Deploy
        (all random.and
-            (random.ascii/alpha 1)
-            (random.ascii/alpha 1)
-            (random.ascii/alpha 1))
+            (random.alphabetic 1)
+            (random.alphabetic 1)
+            (random.alphabetic 1))
        ... #Compilation
        ..compilation
        ... #Auto
@@ -87,7 +87,7 @@
 (def: with_profile
   Test
   (do random.monad
-    [expected_profile (random.ascii/alpha 1)
+    [expected_profile (random.alphabetic 1)
      expected_command ..command]
     (_.test "With profile."
             (|> expected_command
diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux
index 1cad922f7..4bc2dec70 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -65,13 +65,13 @@
   Test
   (<| (_.covering /._)
       (do [! random.monad]
-        [end_signal (random.ascii/alpha 5)
+        [end_signal (random.alphabetic 5)
          .let [/ (# file.default separator)
                [fs watcher] (watch.mock /)]
          
-         program (random.ascii/alpha 5)
-         target (random.ascii/alpha 5)
-         source (random.ascii/alpha 5)
+         program (random.alphabetic 5)
+         target (random.alphabetic 5)
+         source (random.alphabetic 5)
          .let [empty_profile (is Profile
                                  (# ///.monoid identity))
                with_target (is (-> Profile Profile)
@@ -84,11 +84,11 @@
                            with_target
                            (has ///.#sources (set.of_list text.hash (list source))))]
 
-         home (random.ascii/alpha 5)
-         working_directory (random.ascii/alpha 5)
+         home (random.alphabetic 5)
+         working_directory (random.alphabetic 5)
          
          expected_runs (# ! each (|>> (n.% 10) (n.max 2)) random.nat)
-         dummy_path (# ! each (|>> (format source /)) (random.ascii/alpha 5))
+         dummy_path (# ! each (|>> (format source /)) (random.alphabetic 5))
          [compiler resolution] $build.resolution]
         (all _.and
              (_.cover [/.delay]
diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux
index 86dc41f93..008908479 100644
--- a/stdlib/source/test/aedifex/command/build.lux
+++ b/stdlib/source/test/aedifex/command/build.lux
@@ -108,7 +108,7 @@
 (def: compiler
   (Random Dependency)
   (do random.monad
-    [lux_version (random.ascii/alpha 5)
+    [lux_version (random.alphabetic 5)
      .let [js_compiler [///dependency.#artifact [///artifact.#group /.lux_group
                                                  ///artifact.#name /.js_lux_name
                                                  ///artifact.#version lux_version]
@@ -140,14 +140,14 @@
   Test
   (<| (_.covering /._)
       (do [! random.monad]
-        [last_read (random.ascii/alpha 5)
-         last_error (random.ascii/alpha 5)
+        [last_read (random.alphabetic 5)
+         last_error (random.alphabetic 5)
          .let [fs (file.mock (# file.default separator))
                shell (shell.async (..good_shell []))]
-         program (random.ascii/alpha 5)
-         target (random.ascii/alpha 5)
-         home (random.ascii/alpha 5)
-         working_directory (random.ascii/alpha 5)
+         program (random.alphabetic 5)
+         target (random.alphabetic 5)
+         home (random.alphabetic 5)
+         working_directory (random.alphabetic 5)
          .let [empty_profile (is Profile
                                  (# ///.monoid identity))
                with_target (is (-> Profile Profile)
@@ -215,9 +215,9 @@
                      (_.cover' [/.failure]
                                (try.else false verdict)))))
              (do !
-               [expected/0 (random.ascii/alpha 5)
-                expected/1 (random.ascii/alpha 5)
-                expected/2 (random.ascii/alpha 5)]
+               [expected/0 (random.alphabetic 5)
+                expected/1 (random.alphabetic 5)
+                expected/2 (random.alphabetic 5)]
                (`` (all _.and
                         (~~ (template [<error?> <log!>]
                               [(let [console (@version.echo "")
diff --git a/stdlib/source/test/aedifex/command/clean.lux b/stdlib/source/test/aedifex/command/clean.lux
index cdc5efafd..c64a5e1b7 100644
--- a/stdlib/source/test/aedifex/command/clean.lux
+++ b/stdlib/source/test/aedifex/command/clean.lux
@@ -38,7 +38,7 @@
 
 (def: node_name
   (Random Text)
-  (random.ascii/alpha 10))
+  (random.alphabetic 10))
 
 (def: (files prefix)
   (-> Path (Random (List [Path Binary])))
diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux
index 7ce8710c9..f414f5d2b 100644
--- a/stdlib/source/test/aedifex/command/deploy.lux
+++ b/stdlib/source/test/aedifex/command/deploy.lux
@@ -76,8 +76,8 @@
                          (in [artifact expected_pom profile])))
                      $profile.random)
          
-         home (random.ascii/alpha 5)
-         working_directory (random.ascii/alpha 5)
+         home (random.alphabetic 5)
+         working_directory (random.alphabetic 5)
          .let [fs (file.mock (# file.default separator))
                program (program.async (program.mock environment.empty home working_directory))
                local (///repository/local.repository program fs)
diff --git a/stdlib/source/test/aedifex/command/deps.lux b/stdlib/source/test/aedifex/command/deps.lux
index 5b6c42a9c..101eaa542 100644
--- a/stdlib/source/test/aedifex/command/deps.lux
+++ b/stdlib/source/test/aedifex/command/deps.lux
@@ -56,8 +56,8 @@
   Test
   (<| (_.covering /._)
       (do random.monad
-        [home (random.ascii/alpha 5)
-         working_directory (random.ascii/alpha 5)
+        [home (random.alphabetic 5)
+         working_directory (random.alphabetic 5)
 
          dependee_artifact $///artifact.random
          depender_artifact (random.only (predicate.complement
diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index d4244bfcf..d89a7a7a6 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -67,8 +67,8 @@
         [identity $artifact.random
          sample (# ! each (has ///.#identity {.#Some identity})
                    $profile.random)
-         home (random.ascii/alpha 5)
-         working_directory (random.ascii/alpha 5)
+         home (random.alphabetic 5)
+         working_directory (random.alphabetic 5)
          .let [/ (# file.default separator)]]
         (all _.and
              (in (do [! async.monad]
diff --git a/stdlib/source/test/aedifex/command/test.lux b/stdlib/source/test/aedifex/command/test.lux
index 34bd05c36..862597b79 100644
--- a/stdlib/source/test/aedifex/command/test.lux
+++ b/stdlib/source/test/aedifex/command/test.lux
@@ -43,10 +43,10 @@
   Test
   (<| (_.covering /._)
       (do [! random.monad]
-        [test (random.ascii/alpha 5)
-         target (random.ascii/alpha 5)
-         home (random.ascii/alpha 5)
-         working_directory (random.ascii/alpha 5)
+        [test (random.alphabetic 5)
+         target (random.alphabetic 5)
+         home (random.alphabetic 5)
+         working_directory (random.alphabetic 5)
          .let [empty_profile (is Profile
                                  (# ///.monoid identity))
                with_target (is (-> Profile Profile)
diff --git a/stdlib/source/test/aedifex/dependency.lux b/stdlib/source/test/aedifex/dependency.lux
index 21e90f754..bdc26bd7b 100644
--- a/stdlib/source/test/aedifex/dependency.lux
+++ b/stdlib/source/test/aedifex/dependency.lux
@@ -19,7 +19,7 @@
   (Random /.Dependency)
   (all random.and
        @artifact.random
-       (random.ascii/alpha 1)))
+       (random.alphabetic 1)))
 
 (def: .public test
   Test
diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux
index c52ff5f21..12b175534 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -148,7 +148,7 @@
   (<| (_.covering /._)
       (do [! random.monad]
         [address (# ! each (text.suffix uri.separator)
-                    (random.ascii/upper 10))]
+                    (random.upper_case 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 1459a88e5..4a0294d61 100644
--- a/stdlib/source/test/aedifex/metadata/artifact.lux
+++ b/stdlib/source/test/aedifex/metadata/artifact.lux
@@ -44,9 +44,9 @@
 (def: .public random
   (Random /.Metadata)
   (all random.and
-       (random.ascii/alpha 5)
-       (random.ascii/alpha 5)
-       (random.list 5 (random.ascii/alpha 5))
+       (random.alphabetic 5)
+       (random.alphabetic 5)
+       (random.list 5 (random.alphabetic 5))
        (do [! random.monad]
          [year (# ! each (|>> (n.% 9,000) (n.+ 1,000) .int) random.nat)
           month (# ! each (|>> (n.% 12) (n.+ 1)) random.nat)
@@ -95,8 +95,8 @@
                       (text#= (//.remote_project_uri artifact)
                               (/.uri artifact)))
              (do random.monad
-               [home (random.ascii/lower 5)
-                working_directory (random.ascii/lower 5)
+               [home (random.lower_case 5)
+                working_directory (random.lower_case 5)
                 .let [program (program.async (program.mock environment.empty home working_directory))
                       fs (file.mock (# 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 bb862dca2..00cdb05b6 100644
--- a/stdlib/source/test/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/test/aedifex/metadata/snapshot.lux
@@ -107,8 +107,8 @@
                       (text#= (//.remote_artifact_uri artifact)
                               (/.uri artifact)))
              (do random.monad
-               [home (random.ascii/lower 5)
-                working_directory (random.ascii/lower 5)
+               [home (random.lower_case 5)
+                working_directory (random.lower_case 5)
                 .let [program (program.async (program.mock environment.empty home working_directory))
                       fs (file.mock (# file.default separator))
                       repository (///repository/local.repository program fs)]]
diff --git a/stdlib/source/test/aedifex/parser.lux b/stdlib/source/test/aedifex/parser.lux
index af642f65b..a87131927 100644
--- a/stdlib/source/test/aedifex/parser.lux
+++ b/stdlib/source/test/aedifex/parser.lux
@@ -35,7 +35,7 @@
 
 (def: name
   (Random //.Name)
-  (random.ascii/alpha 1))
+  (random.alphabetic 1))
 
 (def: (list_of random)
   (All (_ a) (-> (Random a) (Random (List a))))
diff --git a/stdlib/source/test/aedifex/profile.lux b/stdlib/source/test/aedifex/profile.lux
index 246492587..dd5b296d8 100644
--- a/stdlib/source/test/aedifex/profile.lux
+++ b/stdlib/source/test/aedifex/profile.lux
@@ -47,29 +47,29 @@
 (def: license
   (Random /.License)
   (all random.and
-       (random.ascii/alpha 1)
-       (random.ascii/alpha 1)
+       (random.alphabetic 1)
+       (random.alphabetic 1)
        ..distribution))
 
 (def: scm
   (Random /.SCM)
-  (random.ascii/alpha 1))
+  (random.alphabetic 1))
 
 (def: organization
   (Random /.Organization)
   (all random.and
-       (random.ascii/alpha 1)
-       (random.ascii/alpha 1)))
+       (random.alphabetic 1)
+       (random.alphabetic 1)))
 
 (def: email
   (Random /.Email)
-  (random.ascii/alpha 1))
+  (random.alphabetic 1))
 
 (def: developer
   (Random /.Developer)
   (all random.and
-       (random.ascii/alpha 1)
-       (random.ascii/alpha 1)
+       (random.alphabetic 1)
+       (random.alphabetic 1)
        (random.maybe organization)))
 
 (def: contributor
@@ -97,10 +97,10 @@
 (def: info
   (Random /.Info)
   (all random.and
-       (random.maybe (random.ascii/alpha 1))
-       (random.maybe (random.ascii/alpha 2))
+       (random.maybe (random.alphabetic 1))
+       (random.maybe (random.alphabetic 2))
        (random.maybe ..scm)
-       (random.maybe (random.ascii/alpha 3))
+       (random.maybe (random.alphabetic 3))
        (..list_of ..license)
        (random.maybe ..organization)
        (..list_of ..developer)
@@ -109,19 +109,19 @@
 
 (def: name
   (Random /.Name)
-  (random.ascii/alpha 1))
+  (random.alphabetic 1))
 
 (def: repository
   (Random Address)
-  (random.ascii/alpha 1))
+  (random.alphabetic 1))
 
 (def: source
   (Random /.Source)
-  (random.ascii/alpha 1))
+  (random.alphabetic 1))
 
 (def: target
   (Random /.Target)
-  (random.ascii/alpha 1))
+  (random.alphabetic 1))
 
 (def: .public random
   (Random /.Profile)
@@ -135,11 +135,11 @@
        (..list_of $compiler.random)
        (..set_of text.hash ..source)
        ..target
-       (random.maybe (random.ascii/alpha 1))
-       (random.maybe (random.ascii/alpha 2))
-       (..dictionary_of text.hash (random.ascii/alpha 3) ..repository)
-       (..list_of (random.and (random.ascii/alpha 4)
-                              (random.ascii/alpha 5)))
+       (random.maybe (random.alphabetic 1))
+       (random.maybe (random.alphabetic 2))
+       (..dictionary_of text.hash (random.alphabetic 3) ..repository)
+       (..list_of (random.and (random.alphabetic 4)
+                              (random.alphabetic 5)))
        (random#in //runtime.default_java)
        (random#in //runtime.default_js)
        (random#in //runtime.default_python)
diff --git a/stdlib/source/test/aedifex/project.lux b/stdlib/source/test/aedifex/project.lux
index cf3a93e52..c191a5f83 100644
--- a/stdlib/source/test/aedifex/project.lux
+++ b/stdlib/source/test/aedifex/project.lux
@@ -28,7 +28,7 @@
   (Random [//.Name //.Profile])
   (|> @profile.random
       (random#each (has //.#parents (list)))
-      (random.and (random.ascii/alpha 1))))
+      (random.and (random.alphabetic 1))))
 
 (def: .public random
   (Random /.Project)
@@ -62,7 +62,7 @@
                                               (and (not (text#= super_name name))
                                                    (not (text#= dummy_name name))
                                                    (not (text#= sub_name name))))
-                                            (random.ascii/alpha 1))
+                                            (random.alphabetic 1))
                      .let [project (all (# /.monoid composite)
                                         (/.project super_name super_profile)
                                         (/.project dummy_name dummy_profile)
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)
diff --git a/stdlib/source/test/aedifex/runtime.lux b/stdlib/source/test/aedifex/runtime.lux
index 5166968f3..c982c455a 100644
--- a/stdlib/source/test/aedifex/runtime.lux
+++ b/stdlib/source/test/aedifex/runtime.lux
@@ -35,7 +35,7 @@
   (<| (_.covering /._)
       (_.for [/.Runtime])
       (do random.monad
-        [path (random.ascii/alpha 5)
+        [path (random.alphabetic 5)
          runtime ..random]
         (`` (all _.and
                  (_.for [/.equivalence]