Better names for random text/character generators.

6 files changed, 16 insertions, 16 deletions

diff --git a/stdlib/source/test/lux/world/console.lux b/stdlib/source/test/lux/world/console.lux
index 06963e92d..ebae69a0d 100644
--- a/stdlib/source/test/lux/world/console.lux
+++ b/stdlib/source/test/lux/world/console.lux
@@ -55,7 +55,7 @@
            (_.for [/.async /.mock /.Mock]
                   ($/.spec (io.io (/.async (/.mock ..mock [false ""])))))
            (do random.monad
-             [expected (random.ascii/alpha 10)
+             [expected (random.alphabetic 10)
               .let [console (/.mock ..mock [false ""])]]
              (_.cover [/.write_line]
                       (io.run!
diff --git a/stdlib/source/test/lux/world/file.lux b/stdlib/source/test/lux/world/file.lux
index b5d9892ad..c4c8689cd 100644
--- a/stdlib/source/test/lux/world/file.lux
+++ b/stdlib/source/test/lux/world/file.lux
@@ -242,8 +242,8 @@
   Test
   (<| (_.covering /._)
       (do [! random.monad]
-        [/ (random.ascii/upper 1)
-         file (random.ascii/lower 1)]
+        [/ (random.upper_case 1)
+         file (random.lower_case 1)]
         (all _.and
              (_.for [/.mock]
                     ($/.spec (io.io (/.mock /))))
diff --git a/stdlib/source/test/lux/world/file/watch.lux b/stdlib/source/test/lux/world/file/watch.lux
index 6389dec6f..1243694a5 100644
--- a/stdlib/source/test/lux/world/file/watch.lux
+++ b/stdlib/source/test/lux/world/file/watch.lux
@@ -67,7 +67,7 @@
 (def: exception
   Test
   (do [! random.monad]
-    [directory (random.ascii/alpha 5)
+    [directory (random.alphabetic 5)
      .let [[fs watcher] (/.mock "/")]]
     (all _.and
          (in (do async.monad
@@ -158,11 +158,11 @@
            ..exception
 
            (do [! random.monad]
-             [directory (random.ascii/alpha 5)
+             [directory (random.alphabetic 5)
               .let [/ "/"
                     [fs watcher] (/.mock /)]
               expected_path (# ! each (|>> (format directory /))
-                               (random.ascii/alpha 5))
+                               (random.alphabetic 5))
               data ($binary.random 10)]
              (in (do [! async.monad]
                    [verdict (do (try.with !)
@@ -184,7 +184,7 @@
                    (_.cover' [/.mock /.polling]
                              (try.else false verdict)))))
            (do random.monad
-             [directory (random.ascii/alpha 5)
+             [directory (random.alphabetic 5)
               .let [/ "/"
                     [fs watcher] (/.mock /)]]
              (in (do async.monad
diff --git a/stdlib/source/test/lux/world/net/http/client.lux b/stdlib/source/test/lux/world/net/http/client.lux
index c84bc1502..7ed8fa32d 100644
--- a/stdlib/source/test/lux/world/net/http/client.lux
+++ b/stdlib/source/test/lux/world/net/http/client.lux
@@ -66,7 +66,7 @@
          on_options random.nat
          on_trace random.nat
          num_headers (# ! each (nat.% 10) random.nat)
-         headers (random.dictionary text.hash num_headers (random.ascii/lower 3) (random.ascii/lower 3))
+         headers (random.dictionary text.hash num_headers (random.lower_case 3) (random.lower_case 3))
          .let [mock (is (/.Client IO)
                         (implementation
                          (def: (request method url headers data)
diff --git a/stdlib/source/test/lux/world/program.lux b/stdlib/source/test/lux/world/program.lux
index 2075fd410..d9c04e2ba 100644
--- a/stdlib/source/test/lux/world/program.lux
+++ b/stdlib/source/test/lux/world/program.lux
@@ -31,12 +31,12 @@
 (def: (environment env_size)
   (-> Nat (Random Environment))
   (random.dictionary text.hash env_size
-                     (random.ascii/alpha 5)
-                     (random.ascii/alpha 5)))
+                     (random.alphabetic 5)
+                     (random.alphabetic 5)))
 
 (def: path
   (Random Path)
-  (random.ascii/alpha 5))
+  (random.alphabetic 5))
 
 (def: .public test
   Test
@@ -47,7 +47,7 @@
          home ..path
          directory ..path
 
-         unknown (random.ascii/alpha 1)]
+         unknown (random.alphabetic 1)]
         (all _.and
              (_.for [/.mock /.async]
                     ($/.spec (/.async (/.mock environment home directory))))
diff --git a/stdlib/source/test/lux/world/shell.lux b/stdlib/source/test/lux/world/shell.lux
index 30d19d53c..6de1d8a38 100644
--- a/stdlib/source/test/lux/world/shell.lux
+++ b/stdlib/source/test/lux/world/shell.lux
@@ -90,10 +90,10 @@
            (_.cover [/.error]
                     (not (i.= /.normal /.error)))
            (do random.monad
-             [command (random.ascii/alpha 5)
-              oops (random.ascii/alpha 5)
-              input (random.ascii/alpha 5)
-              destruction (random.ascii/alpha 5)
+             [command (random.alphabetic 5)
+              oops (random.alphabetic 5)
+              input (random.alphabetic 5)
+              destruction (random.alphabetic 5)
               exit random.int
               .let [shell (/.async (..io_shell command oops input destruction exit))]]
              (in (do [! async.monad]