aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex
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
parent0d909187d5b9effcd08f533d50af7d29c0d6bfd8 (diff)
Better names for random text/character generators.
Diffstat (limited to '')
-rw-r--r--stdlib/source/test/aedifex/artifact.lux6
-rw-r--r--stdlib/source/test/aedifex/artifact/snapshot/version.lux2
-rw-r--r--stdlib/source/test/aedifex/artifact/snapshot/version/value.lux2
-rw-r--r--stdlib/source/test/aedifex/cache.lux8
-rw-r--r--stdlib/source/test/aedifex/cli.lux8
-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
-rw-r--r--stdlib/source/test/aedifex/dependency.lux2
-rw-r--r--stdlib/source/test/aedifex/dependency/deployment.lux2
-rw-r--r--stdlib/source/test/aedifex/metadata/artifact.lux10
-rw-r--r--stdlib/source/test/aedifex/metadata/snapshot.lux4
-rw-r--r--stdlib/source/test/aedifex/parser.lux2
-rw-r--r--stdlib/source/test/aedifex/profile.lux40
-rw-r--r--stdlib/source/test/aedifex/project.lux4
-rw-r--r--stdlib/source/test/aedifex/repository/identity.lux4
-rw-r--r--stdlib/source/test/aedifex/repository/local.lux10
-rw-r--r--stdlib/source/test/aedifex/repository/origin.lux4
-rw-r--r--stdlib/source/test/aedifex/repository/remote.lux10
-rw-r--r--stdlib/source/test/aedifex/runtime.lux2
24 files changed, 88 insertions, 88 deletions
diff --git a/stdlib/source/test/aedifex/artifact.lux b/stdlib/source/test/aedifex/artifact.lux
index 1a0c7cb29..e3a533036 100644
--- a/stdlib/source/test/aedifex/artifact.lux
+++ b/stdlib/source/test/aedifex/artifact.lux
@@ -30,9 +30,9 @@
(Random /.Artifact)
(let [size 4]
(all random.and
- (random.ascii/lower size)
- (random.ascii/lower size)
- (random.ascii/lower size))))
+ (random.lower_case size)
+ (random.lower_case size)
+ (random.lower_case size))))
(def: .public test
Test
diff --git a/stdlib/source/test/aedifex/artifact/snapshot/version.lux b/stdlib/source/test/aedifex/artifact/snapshot/version.lux
index 1d32ff734..47c276dc8 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot/version.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot/version.lux
@@ -24,7 +24,7 @@
(Random /.Version)
(all random.and
$///type.random
- (random.ascii/alpha 1)
+ (random.alphabetic 1)
$///time.random
))
diff --git a/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux b/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux
index 7967e935f..2b32260c5 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux
@@ -31,7 +31,7 @@
(def: .public random
(Random /.Value)
(all random.and
- (random.ascii/alpha 5)
+ (random.alphabetic 5)
(random.or (random#in [])
$///stamp.random)
))
diff --git a/stdlib/source/test/aedifex/cache.lux b/stdlib/source/test/aedifex/cache.lux
index ca247f3f0..a641ee369 100644
--- a/stdlib/source/test/aedifex/cache.lux
+++ b/stdlib/source/test/aedifex/cache.lux
@@ -102,8 +102,8 @@
Test
(do [! random.monad]
[[dependency expected_package] ..package
- home (random.ascii/alpha 5)
- working_directory (random.ascii/alpha 5)
+ home (random.alphabetic 5)
+ working_directory (random.alphabetic 5)
.let [fs (is (file.System Async)
(file.mock (# file.default separator)))
program (program.async (program.mock environment.empty home working_directory))]]
@@ -123,8 +123,8 @@
Test
(do [! random.monad]
[expected ..resolution
- home (random.ascii/alpha 5)
- working_directory (random.ascii/alpha 5)
+ home (random.alphabetic 5)
+ working_directory (random.alphabetic 5)
.let [fs (is (file.System Async)
(file.mock (# file.default separator)))
program (program.async (program.mock environment.empty home working_directory))]]
diff --git a/stdlib/source/test/aedifex/cli.lux b/stdlib/source/test/aedifex/cli.lux
index 4d577e737..c02ae8c4f 100644
--- a/stdlib/source/test/aedifex/cli.lux
+++ b/stdlib/source/test/aedifex/cli.lux
@@ -42,9 +42,9 @@
(random#in [])
... #Deploy
(all random.and
- (random.ascii/alpha 1)
- (random.ascii/alpha 1)
- (random.ascii/alpha 1))
+ (random.alphabetic 1)
+ (random.alphabetic 1)
+ (random.alphabetic 1))
... #Compilation
..compilation
... #Auto
@@ -87,7 +87,7 @@
(def: with_profile
Test
(do random.monad
- [expected_profile (random.ascii/alpha 1)
+ [expected_profile (random.alphabetic 1)
expected_command ..command]
(_.test "With profile."
(|> expected_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 [<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)
diff --git a/stdlib/source/test/aedifex/dependency.lux b/stdlib/source/test/aedifex/dependency.lux
index 21e90f754..bdc26bd7b 100644
--- a/stdlib/source/test/aedifex/dependency.lux
+++ b/stdlib/source/test/aedifex/dependency.lux
@@ -19,7 +19,7 @@
(Random /.Dependency)
(all random.and
@artifact.random
- (random.ascii/alpha 1)))
+ (random.alphabetic 1)))
(def: .public test
Test
diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux
index c52ff5f21..12b175534 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -148,7 +148,7 @@
(<| (_.covering /._)
(do [! random.monad]
[address (# ! each (text.suffix uri.separator)
- (random.ascii/upper 10))]
+ (random.upper_case 10))]
(all _.and
(do [! random.monad]
[[dependency expected_artifact package] ..bundle
diff --git a/stdlib/source/test/aedifex/metadata/artifact.lux b/stdlib/source/test/aedifex/metadata/artifact.lux
index 1459a88e5..4a0294d61 100644
--- a/stdlib/source/test/aedifex/metadata/artifact.lux
+++ b/stdlib/source/test/aedifex/metadata/artifact.lux
@@ -44,9 +44,9 @@
(def: .public random
(Random /.Metadata)
(all random.and
- (random.ascii/alpha 5)
- (random.ascii/alpha 5)
- (random.list 5 (random.ascii/alpha 5))
+ (random.alphabetic 5)
+ (random.alphabetic 5)
+ (random.list 5 (random.alphabetic 5))
(do [! random.monad]
[year (# ! each (|>> (n.% 9,000) (n.+ 1,000) .int) random.nat)
month (# ! each (|>> (n.% 12) (n.+ 1)) random.nat)
@@ -95,8 +95,8 @@
(text#= (//.remote_project_uri artifact)
(/.uri artifact)))
(do random.monad
- [home (random.ascii/lower 5)
- working_directory (random.ascii/lower 5)
+ [home (random.lower_case 5)
+ working_directory (random.lower_case 5)
.let [program (program.async (program.mock environment.empty home working_directory))
fs (file.mock (# file.default separator))
repository (///repository/local.repository program fs)]]
diff --git a/stdlib/source/test/aedifex/metadata/snapshot.lux b/stdlib/source/test/aedifex/metadata/snapshot.lux
index bb862dca2..00cdb05b6 100644
--- a/stdlib/source/test/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/test/aedifex/metadata/snapshot.lux
@@ -107,8 +107,8 @@
(text#= (//.remote_artifact_uri artifact)
(/.uri artifact)))
(do random.monad
- [home (random.ascii/lower 5)
- working_directory (random.ascii/lower 5)
+ [home (random.lower_case 5)
+ working_directory (random.lower_case 5)
.let [program (program.async (program.mock environment.empty home working_directory))
fs (file.mock (# file.default separator))
repository (///repository/local.repository program fs)]]
diff --git a/stdlib/source/test/aedifex/parser.lux b/stdlib/source/test/aedifex/parser.lux
index af642f65b..a87131927 100644
--- a/stdlib/source/test/aedifex/parser.lux
+++ b/stdlib/source/test/aedifex/parser.lux
@@ -35,7 +35,7 @@
(def: name
(Random //.Name)
- (random.ascii/alpha 1))
+ (random.alphabetic 1))
(def: (list_of random)
(All (_ a) (-> (Random a) (Random (List a))))
diff --git a/stdlib/source/test/aedifex/profile.lux b/stdlib/source/test/aedifex/profile.lux
index 246492587..dd5b296d8 100644
--- a/stdlib/source/test/aedifex/profile.lux
+++ b/stdlib/source/test/aedifex/profile.lux
@@ -47,29 +47,29 @@
(def: license
(Random /.License)
(all random.and
- (random.ascii/alpha 1)
- (random.ascii/alpha 1)
+ (random.alphabetic 1)
+ (random.alphabetic 1)
..distribution))
(def: scm
(Random /.SCM)
- (random.ascii/alpha 1))
+ (random.alphabetic 1))
(def: organization
(Random /.Organization)
(all random.and
- (random.ascii/alpha 1)
- (random.ascii/alpha 1)))
+ (random.alphabetic 1)
+ (random.alphabetic 1)))
(def: email
(Random /.Email)
- (random.ascii/alpha 1))
+ (random.alphabetic 1))
(def: developer
(Random /.Developer)
(all random.and
- (random.ascii/alpha 1)
- (random.ascii/alpha 1)
+ (random.alphabetic 1)
+ (random.alphabetic 1)
(random.maybe organization)))
(def: contributor
@@ -97,10 +97,10 @@
(def: info
(Random /.Info)
(all random.and
- (random.maybe (random.ascii/alpha 1))
- (random.maybe (random.ascii/alpha 2))
+ (random.maybe (random.alphabetic 1))
+ (random.maybe (random.alphabetic 2))
(random.maybe ..scm)
- (random.maybe (random.ascii/alpha 3))
+ (random.maybe (random.alphabetic 3))
(..list_of ..license)
(random.maybe ..organization)
(..list_of ..developer)
@@ -109,19 +109,19 @@
(def: name
(Random /.Name)
- (random.ascii/alpha 1))
+ (random.alphabetic 1))
(def: repository
(Random Address)
- (random.ascii/alpha 1))
+ (random.alphabetic 1))
(def: source
(Random /.Source)
- (random.ascii/alpha 1))
+ (random.alphabetic 1))
(def: target
(Random /.Target)
- (random.ascii/alpha 1))
+ (random.alphabetic 1))
(def: .public random
(Random /.Profile)
@@ -135,11 +135,11 @@
(..list_of $compiler.random)
(..set_of text.hash ..source)
..target
- (random.maybe (random.ascii/alpha 1))
- (random.maybe (random.ascii/alpha 2))
- (..dictionary_of text.hash (random.ascii/alpha 3) ..repository)
- (..list_of (random.and (random.ascii/alpha 4)
- (random.ascii/alpha 5)))
+ (random.maybe (random.alphabetic 1))
+ (random.maybe (random.alphabetic 2))
+ (..dictionary_of text.hash (random.alphabetic 3) ..repository)
+ (..list_of (random.and (random.alphabetic 4)
+ (random.alphabetic 5)))
(random#in //runtime.default_java)
(random#in //runtime.default_js)
(random#in //runtime.default_python)
diff --git a/stdlib/source/test/aedifex/project.lux b/stdlib/source/test/aedifex/project.lux
index cf3a93e52..c191a5f83 100644
--- a/stdlib/source/test/aedifex/project.lux
+++ b/stdlib/source/test/aedifex/project.lux
@@ -28,7 +28,7 @@
(Random [//.Name //.Profile])
(|> @profile.random
(random#each (has //.#parents (list)))
- (random.and (random.ascii/alpha 1))))
+ (random.and (random.alphabetic 1))))
(def: .public random
(Random /.Project)
@@ -62,7 +62,7 @@
(and (not (text#= super_name name))
(not (text#= dummy_name name))
(not (text#= sub_name name))))
- (random.ascii/alpha 1))
+ (random.alphabetic 1))
.let [project (all (# /.monoid composite)
(/.project super_name super_profile)
(/.project dummy_name dummy_profile)
diff --git a/stdlib/source/test/aedifex/repository/identity.lux b/stdlib/source/test/aedifex/repository/identity.lux
index 5e357ecca..e1b67e424 100644
--- a/stdlib/source/test/aedifex/repository/identity.lux
+++ b/stdlib/source/test/aedifex/repository/identity.lux
@@ -13,8 +13,8 @@
(def: .public random
(Random /.Identity)
(all random.and
- (random.ascii/alpha 10)
- (random.ascii/alpha 10)
+ (random.alphabetic 10)
+ (random.alphabetic 10)
))
(def: .public test
diff --git a/stdlib/source/test/aedifex/repository/local.lux b/stdlib/source/test/aedifex/repository/local.lux
index c5da9011d..92826c8ff 100644
--- a/stdlib/source/test/aedifex/repository/local.lux
+++ b/stdlib/source/test/aedifex/repository/local.lux
@@ -27,16 +27,16 @@
Test
(<| (_.covering /._)
(do [! random.monad]
- [/ (random.ascii/upper 1)
- home (random.ascii/lower 10)
- working_directory (random.ascii/lower 10)
+ [/ (random.upper_case 1)
+ home (random.lower_case 10)
+ working_directory (random.lower_case 10)
.let [fs (file.mock /)
program (program.async (program.mock environment.empty home working_directory))
repo (/.repository program fs)]
- uri (random.ascii/lower 10)
+ uri (random.lower_case 10)
expected (# ! each (# utf8.codec encoded)
- (random.ascii/lower 10))]
+ (random.lower_case 10))]
(all _.and
(in (do async.monad
[before_upload (# repo download uri)
diff --git a/stdlib/source/test/aedifex/repository/origin.lux b/stdlib/source/test/aedifex/repository/origin.lux
index a0bcff68d..90a0f89dd 100644
--- a/stdlib/source/test/aedifex/repository/origin.lux
+++ b/stdlib/source/test/aedifex/repository/origin.lux
@@ -13,8 +13,8 @@
(def: .public random
(Random /.Origin)
(all random.or
- (random.ascii/alpha 10)
- (random.ascii/alpha 10)
+ (random.alphabetic 10)
+ (random.alphabetic 10)
))
(def: .public test
diff --git a/stdlib/source/test/aedifex/repository/remote.lux b/stdlib/source/test/aedifex/repository/remote.lux
index abf123f4b..05cd293c3 100644
--- a/stdlib/source/test/aedifex/repository/remote.lux
+++ b/stdlib/source/test/aedifex/repository/remote.lux
@@ -84,14 +84,14 @@
Test
(<| (_.covering /._)
(do [! random.monad]
- [address (random.ascii/upper 10)
- uri (random.ascii/lower 10)
+ [address (random.upper_case 10)
+ uri (random.lower_case 10)
- user (random.ascii/lower 10)
- password (random.ascii/lower 10)
+ user (random.lower_case 10)
+ password (random.lower_case 10)
content (# ! each (# utf8.codec encoded)
- (random.ascii/lower 10))]
+ (random.lower_case 10))]
(all _.and
(_.cover [/.repository /.user_agent /.Address]
(let [repo (/.repository (..good_http user password)
diff --git a/stdlib/source/test/aedifex/runtime.lux b/stdlib/source/test/aedifex/runtime.lux
index 5166968f3..c982c455a 100644
--- a/stdlib/source/test/aedifex/runtime.lux
+++ b/stdlib/source/test/aedifex/runtime.lux
@@ -35,7 +35,7 @@
(<| (_.covering /._)
(_.for [/.Runtime])
(do random.monad
- [path (random.ascii/alpha 5)
+ [path (random.alphabetic 5)
runtime ..random]
(`` (all _.and
(_.for [/.equivalence]