diff options
Diffstat (limited to 'stdlib/source/test/lux/data/format/tar.lux')
| -rw-r--r-- | stdlib/source/test/lux/data/format/tar.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/test/lux/data/format/tar.lux b/stdlib/source/test/lux/data/format/tar.lux index 01f8648c1..f5133d4e5 100644 --- a/stdlib/source/test/lux/data/format/tar.lux +++ b/stdlib/source/test/lux/data/format/tar.lux @@ -109,8 +109,8 @@ Test (_.for [/.Small] (do [! random.monad] - [expected (|> random.nat (at ! each (n.% /.small_limit))) - invalid (|> random.nat (at ! each (n.max /.small_limit)))] + [expected (|> random.nat (of ! each (n.% /.small_limit))) + invalid (|> random.nat (of ! each (n.max /.small_limit)))] (`` (all _.and (_.coverage [/.small /.from_small] (when (/.small expected) @@ -133,8 +133,8 @@ Test (_.for [/.Big] (do [! random.monad] - [expected (|> random.nat (at ! each (n.% /.big_limit))) - invalid (|> random.nat (at ! each (n.max /.big_limit)))] + [expected (|> random.nat (of ! each (n.% /.big_limit))) + invalid (|> random.nat (of ! each (n.max /.big_limit)))] (`` (all _.and (_.coverage [/.big /.from_big] (when (/.big expected) @@ -159,14 +159,14 @@ Test (do [! random.monad] [expected_path (random.lower_cased (-- /.path_size)) - expected_moment (at ! each (|>> (n.% 1,0,00,00,00,00,000) .int instant.of_millis) + expected_moment (of ! each (|>> (n.% 1,0,00,00,00,00,000) .int instant.of_millis) random.nat) chunk (random.lower_cased chunk_size) - chunks (at ! each (n.% 100) random.nat) + chunks (of ! each (n.% 100) random.nat) .let [content (|> chunk (list.repeated chunks) text.together - (at utf8.codec encoded))]] + (of utf8.codec encoded))]] (`` (all _.and (,, (with_template [<type> <tag>] [(_.coverage [<type>] @@ -403,7 +403,7 @@ (|> sequence.empty (\\format.result /.format) (<b>.result /.parser) - (at try.monad each sequence.empty?) + (of try.monad each sequence.empty?) (try.else false))) (_.coverage [/.invalid_end_of_archive] (let [dump (\\format.result /.format sequence.empty)] |