aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex/command
diff options
context:
space:
mode:
authorEduardo Julian2022-04-08 21:32:38 -0400
committerEduardo Julian2022-04-08 21:32:38 -0400
commit120ebb44dbb1a20fc150e5e58099f90be2e61d49 (patch)
tree32bcc24d1a48989faf4207bbce423c483b9ce1ba /stdlib/source/test/aedifex/command
parent0d909187d5b9effcd08f533d50af7d29c0d6bfd8 (diff)
Better names for random text/character generators.
Diffstat (limited to '')
-rw-r--r--stdlib/source/test/aedifex/command/auto.lux14
-rw-r--r--stdlib/source/test/aedifex/command/build.lux20
-rw-r--r--stdlib/source/test/aedifex/command/clean.lux2
-rw-r--r--stdlib/source/test/aedifex/command/deploy.lux4
-rw-r--r--stdlib/source/test/aedifex/command/deps.lux4
-rw-r--r--stdlib/source/test/aedifex/command/install.lux4
-rw-r--r--stdlib/source/test/aedifex/command/test.lux8
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)