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/artifact.lux | 6 ++-- .../test/aedifex/artifact/snapshot/version.lux | 2 +- .../aedifex/artifact/snapshot/version/value.lux | 2 +- stdlib/source/test/aedifex/cache.lux | 8 ++--- stdlib/source/test/aedifex/cli.lux | 8 ++--- 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 ++--- stdlib/source/test/aedifex/dependency.lux | 2 +- .../source/test/aedifex/dependency/deployment.lux | 2 +- stdlib/source/test/aedifex/metadata/artifact.lux | 10 +++--- stdlib/source/test/aedifex/metadata/snapshot.lux | 4 +-- stdlib/source/test/aedifex/parser.lux | 2 +- stdlib/source/test/aedifex/profile.lux | 40 +++++++++++----------- stdlib/source/test/aedifex/project.lux | 4 +-- stdlib/source/test/aedifex/repository/identity.lux | 4 +-- stdlib/source/test/aedifex/repository/local.lux | 10 +++--- stdlib/source/test/aedifex/repository/origin.lux | 4 +-- stdlib/source/test/aedifex/repository/remote.lux | 10 +++--- stdlib/source/test/aedifex/runtime.lux | 2 +- 24 files changed, 88 insertions(+), 88 deletions(-) (limited to 'stdlib/source/test/aedifex') 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 [ ] [(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] -- cgit v1.2.3