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/command/build.lux | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'stdlib/source/test/aedifex/command/build.lux')

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 "")
-- 
cgit v1.2.3