Better names for random text/character generators.

7 files changed, 28 insertions, 28 deletions

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)