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 1bffe48ec..a62ce9de4 100644 --- a/stdlib/source/test/lux/data/format/tar.lux +++ b/stdlib/source/test/lux/data/format/tar.lux @@ -40,8 +40,8 @@ Test (_.for [/.Path] (do [! random.monad] - [expected (random.ascii/lower /.path_size) - invalid (random.ascii/lower (++ /.path_size)) + [expected (random.lower_case /.path_size) + invalid (random.lower_case (++ /.path_size)) not_ascii (random.text (random.char (unicode.set [unicode/block.katakana (list)])) /.path_size)] (`` (all _.and @@ -75,8 +75,8 @@ Test (_.for [/.Name] (do [! random.monad] - [expected (random.ascii/lower /.name_size) - invalid (random.ascii/lower (++ /.name_size)) + [expected (random.lower_case /.name_size) + invalid (random.lower_case (++ /.name_size)) not_ascii (random.text (random.char (unicode.set [unicode/block.katakana (list)])) /.name_size)] (`` (all _.and @@ -157,10 +157,10 @@ (def: entry Test (do [! random.monad] - [expected_path (random.ascii/lower (-- /.path_size)) + [expected_path (random.lower_case (-- /.path_size)) expected_moment (# ! each (|>> (n.% 1,0,00,00,00,00,000) .int instant.of_millis) random.nat) - chunk (random.ascii/lower chunk_size) + chunk (random.lower_case chunk_size) chunks (# ! each (n.% 100) random.nat) .let [content (|> chunk (list.repeated chunks) @@ -243,7 +243,7 @@ Test (_.for [/.Mode /.mode] (do [! random.monad] - [path (random.ascii/lower 10) + [path (random.lower_case 10) modes (random.list 4 ..random_mode) .let [expected_mode (list#mix /.and /.none modes)]] (`` (all _.and @@ -315,9 +315,9 @@ (def: ownership Test (do [! random.monad] - [path (random.ascii/lower /.path_size) - expected (random.ascii/lower /.name_size) - invalid (random.ascii/lower (++ /.name_size)) + [path (random.lower_case /.path_size) + expected (random.lower_case /.name_size) + invalid (random.lower_case (++ /.name_size)) not_ascii (random.text (random.char (unicode.set [unicode/block.katakana (list)])) /.name_size)] (_.for [/.Ownership /.Owner /.ID] |