diff options
Diffstat (limited to 'stdlib/source/test/lux/data/format/tar.lux')
| -rw-r--r-- | stdlib/source/test/lux/data/format/tar.lux | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/test/lux/data/format/tar.lux b/stdlib/source/test/lux/data/format/tar.lux index c30fb086b..4681f3822 100644 --- a/stdlib/source/test/lux/data/format/tar.lux +++ b/stdlib/source/test/lux/data/format/tar.lux @@ -108,8 +108,8 @@ Test (_.for [/.Small] (do [! random.monad] - [expected (|> random.nat (# ! each (n.% /.small_limit))) - invalid (|> random.nat (# ! each (n.max /.small_limit)))] + [expected (|> random.nat (at ! each (n.% /.small_limit))) + invalid (|> random.nat (at ! each (n.max /.small_limit)))] (`` (all _.and (_.coverage [/.small /.from_small] (case (/.small expected) @@ -132,8 +132,8 @@ Test (_.for [/.Big] (do [! random.monad] - [expected (|> random.nat (# ! each (n.% /.big_limit))) - invalid (|> random.nat (# ! each (n.max /.big_limit)))] + [expected (|> random.nat (at ! each (n.% /.big_limit))) + invalid (|> random.nat (at ! each (n.max /.big_limit)))] (`` (all _.and (_.coverage [/.big /.from_big] (case (/.big expected) @@ -158,14 +158,14 @@ Test (do [! random.monad] [expected_path (random.lower_case (-- /.path_size)) - expected_moment (# ! each (|>> (n.% 1,0,00,00,00,00,000) .int instant.of_millis) - random.nat) + expected_moment (at ! each (|>> (n.% 1,0,00,00,00,00,000) .int instant.of_millis) + random.nat) chunk (random.lower_case chunk_size) - chunks (# ! each (n.% 100) random.nat) + chunks (at ! each (n.% 100) random.nat) .let [content (|> chunk (list.repeated chunks) text.together - (# utf8.codec encoded))]] + (at utf8.codec encoded))]] (`` (all _.and (~~ (template [<type> <tag>] [(_.coverage [<type>] @@ -402,7 +402,7 @@ (|> sequence.empty (format.result /.writer) (<b>.result /.parser) - (# try.monad each sequence.empty?) + (at try.monad each sequence.empty?) (try.else false))) (_.coverage [/.invalid_end_of_archive] (let [dump (format.result /.writer sequence.empty)] |