diff options
author | Eduardo Julian | 2022-04-08 21:32:38 -0400 |
---|---|---|
committer | Eduardo Julian | 2022-04-08 21:32:38 -0400 |
commit | 120ebb44dbb1a20fc150e5e58099f90be2e61d49 (patch) | |
tree | 32bcc24d1a48989faf4207bbce423c483b9ce1ba /stdlib/source/specification/compositor/generation | |
parent | 0d909187d5b9effcd08f533d50af7d29c0d6bfd8 (diff) |
Better names for random text/character generators.
Diffstat (limited to 'stdlib/source/specification/compositor/generation')
-rw-r--r-- | stdlib/source/specification/compositor/generation/common.lux | 8 | ||||
-rw-r--r-- | stdlib/source/specification/compositor/generation/reference.lux | 2 |
2 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/specification/compositor/generation/common.lux b/stdlib/source/specification/compositor/generation/common.lux index 599dae209..77854d953 100644 --- a/stdlib/source/specification/compositor/generation/common.lux +++ b/stdlib/source/specification/compositor/generation/common.lux @@ -183,9 +183,9 @@ (-> Runner Test) (do [! r.monad] [sample_size (|> r.nat (# ! each (|>> (n.% 10) (n.max 1)))) - sample_lower (r.ascii/lower_alpha sample_size) - sample_upper (r.ascii/upper_alpha sample_size) - sample_alpha (|> (r.ascii/alpha sample_size) + sample_lower (r.lower_case_alpha sample_size) + sample_upper (r.upper_case_alpha sample_size) + sample_alpha (|> (r.alphabetic sample_size) (r.only (|>> (text#= sample_upper) not))) char_idx (|> r.nat (# ! each (n.% sample_size))) .let [sample_lowerS (synthesis.text sample_lower) @@ -303,7 +303,7 @@ (def: (io run) (-> Runner Test) (do r.monad - [message (r.ascii/alpha 5)] + [message (r.alphabetic 5)] (all _.and (_.test "Can log messages." (|> {synthesis.#Extension "lux io log" diff --git a/stdlib/source/specification/compositor/generation/reference.lux b/stdlib/source/specification/compositor/generation/reference.lux index f9d5e3ec9..df9482058 100644 --- a/stdlib/source/specification/compositor/generation/reference.lux +++ b/stdlib/source/specification/compositor/generation/reference.lux @@ -21,7 +21,7 @@ (def: symbol (Random Symbol) - (let [symbol_part (r.ascii/upper_alpha 5)] + (let [symbol_part (r.upper_case_alpha 5)] [(r.and symbol_part symbol_part)])) (def: (definition define) |