diff options
Diffstat (limited to 'stdlib/source/test/lux/data/text.lux')
-rw-r--r-- | stdlib/source/test/lux/data/text.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/test/lux/data/text.lux b/stdlib/source/test/lux/data/text.lux index 00bcfb12d..a4ecc3e09 100644 --- a/stdlib/source/test/lux/data/text.lux +++ b/stdlib/source/test/lux/data/text.lux @@ -147,7 +147,7 @@ ))) (do [! random.monad] [size (# ! each (|>> (n.% 10) ++) random.nat) - characters (random.set /.hash size (random.ascii/alpha 1)) + characters (random.set /.hash size (random.alphabetic 1)) .let [sample (|> characters set.list /.together)] expected (# ! each (n.% size) random.nat)] (_.cover [/.char] @@ -179,18 +179,18 @@ Test (do [! random.monad] [size (# ! each (|>> (n.% 10) (n.+ 2)) random.nat) - characters (random.set /.hash size (random.ascii/alpha 1)) + characters (random.set /.hash size (random.alphabetic 1)) separator (random.only (|>> (set.member? characters) not) - (random.ascii/alpha 1)) + (random.alphabetic 1)) .let [with_no_separator (|> characters set.list /.together)] - static (random.ascii/alpha 1) + static (random.alphabetic 1) .let [dynamic (random.only (|>> (# /.equivalence = static) not) - (random.ascii/alpha 1))] + (random.alphabetic 1))] pre dynamic post dynamic - lower (random.ascii/lower 1) - upper (random.ascii/upper 1)] + lower (random.lower_case 1) + upper (random.upper_case 1)] (all _.and (_.cover [/.together] (n.= (set.size characters) |