diff options
Diffstat (limited to 'stdlib/source/test/lux/data')
| -rw-r--r-- | stdlib/source/test/lux/data/format/tar.lux | 20 | ||||
| -rw-r--r-- | stdlib/source/test/lux/data/text/unicode/block.lux | 4 | ||||
| -rw-r--r-- | stdlib/source/test/lux/data/text/unicode/set.lux | 4 |
3 files changed, 14 insertions, 14 deletions
diff --git a/stdlib/source/test/lux/data/format/tar.lux b/stdlib/source/test/lux/data/format/tar.lux index 9d576b93a..1300012dd 100644 --- a/stdlib/source/test/lux/data/format/tar.lux +++ b/stdlib/source/test/lux/data/format/tar.lux @@ -38,8 +38,8 @@ Test (_.for [/.Path] (do {! random.monad} - [expected (random.ascii/lower_alpha /.path_size) - invalid (random.ascii/lower_alpha (inc /.path_size)) + [expected (random.ascii/lower /.path_size) + invalid (random.ascii/lower (inc /.path_size)) not_ascii (random.text (random.char (unicode.set [unicode/block.katakana (list)])) /.path_size)] (`` ($_ _.and @@ -71,8 +71,8 @@ Test (_.for [/.Name] (do {! random.monad} - [expected (random.ascii/lower_alpha /.name_size) - invalid (random.ascii/lower_alpha (inc /.name_size)) + [expected (random.ascii/lower /.name_size) + invalid (random.ascii/lower (inc /.name_size)) not_ascii (random.text (random.char (unicode.set [unicode/block.katakana (list)])) /.name_size)] (`` ($_ _.and @@ -153,10 +153,10 @@ (def: entry Test (do {! random.monad} - [expected_path (random.ascii/lower_alpha (dec /.path_size)) + [expected_path (random.ascii/lower (dec /.path_size)) expected_moment (\ ! map (|>> (n.% 1,0,00,00,00,00,000) .int instant.from_millis) random.nat) - chunk (random.ascii/lower_alpha chunk_size) + chunk (random.ascii/lower chunk_size) chunks (\ ! map (n.% 100) random.nat) #let [content (|> chunk (list.repeat chunks) @@ -239,7 +239,7 @@ Test (_.for [/.Mode /.mode] (do {! random.monad} - [path (random.ascii/lower_alpha 10) + [path (random.ascii/lower 10) modes (random.list 4 ..random_mode) #let [expected_mode (list\fold /.and /.none modes)]] (`` ($_ _.and @@ -311,9 +311,9 @@ (def: ownership Test (do {! random.monad} - [path (random.ascii/lower_alpha /.path_size) - expected (random.ascii/lower_alpha /.name_size) - invalid (random.ascii/lower_alpha (inc /.name_size)) + [path (random.ascii/lower /.path_size) + expected (random.ascii/lower /.name_size) + invalid (random.ascii/lower (inc /.name_size)) not_ascii (random.text (random.char (unicode.set [unicode/block.katakana (list)])) /.name_size)] (_.for [/.Ownership /.Owner /.ID] diff --git a/stdlib/source/test/lux/data/text/unicode/block.lux b/stdlib/source/test/lux/data/text/unicode/block.lux index 316bbe516..d822a69d3 100644 --- a/stdlib/source/test/lux/data/text/unicode/block.lux +++ b/stdlib/source/test/lux/data/text/unicode/block.lux @@ -140,8 +140,8 @@ ## Specialized blocks /.basic_latin/decimal - /.basic_latin/upper_alpha - /.basic_latin/lower_alpha]] + /.basic_latin/upper + /.basic_latin/lower]] ) <named> (template [<definition> <part>] [((: (-> Any (List /.Block)) diff --git a/stdlib/source/test/lux/data/text/unicode/set.lux b/stdlib/source/test/lux/data/text/unicode/set.lux index a219bff51..c63239cad 100644 --- a/stdlib/source/test/lux/data/text/unicode/set.lux +++ b/stdlib/source/test/lux/data/text/unicode/set.lux @@ -84,8 +84,8 @@ [/.ascii] [/.ascii/alpha] [/.ascii/alpha_num] - [/.ascii/lower_alpha] - [/.ascii/upper_alpha] + [/.ascii/lower] + [/.ascii/upper] [/.character] [/.non_character] [/.full] |