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/auto.lux | 14 +++++++------- stdlib/source/test/aedifex/command/build.lux | 20 ++++++++++---------- stdlib/source/test/aedifex/command/clean.lux | 2 +- stdlib/source/test/aedifex/command/deploy.lux | 4 ++-- stdlib/source/test/aedifex/command/deps.lux | 4 ++-- stdlib/source/test/aedifex/command/install.lux | 4 ++-- stdlib/source/test/aedifex/command/test.lux | 8 ++++---- 7 files changed, 28 insertions(+), 28 deletions(-) (limited to 'stdlib/source/test/aedifex/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 [ ] [(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) -- cgit v1.2.3