diff options
Diffstat (limited to 'stdlib/source/test/lux/data/format/tar.lux')
| -rw-r--r-- | stdlib/source/test/lux/data/format/tar.lux | 20 |
1 files changed, 10 insertions, 10 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] |