aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/lux/data/format/tar.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/test/lux/data/format/tar.lux')
-rw-r--r--stdlib/source/test/lux/data/format/tar.lux16
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 13c713f7f..34618433b 100644
--- a/stdlib/source/test/lux/data/format/tar.lux
+++ b/stdlib/source/test/lux/data/format/tar.lux
@@ -162,7 +162,7 @@
random.nat)
chunk (random.ascii/lower chunk_size)
chunks (\ ! map (n.% 100) random.nat)
- #let [content (|> chunk
+ .let [content (|> chunk
(list.repeat chunks)
(text.join_with "")
(\ utf8.codec encode))]]
@@ -174,7 +174,7 @@
tar (|> (row.row (<tag> expected_path))
(format.run /.writer)
(<b>.run /.parser))]
- (in (case (row.to_list tar)
+ (in (case (row.list tar)
(^ (list (<tag> actual_path)))
(text\= (/.from_path expected_path)
(/.from_path actual_path))
@@ -203,7 +203,7 @@
expected_content]))
(format.run /.writer)
(<b>.run /.parser))]
- (in (case (row.to_list tar)
+ (in (case (row.list tar)
(^ (list (<tag> [actual_path actual_moment actual_mode actual_ownership actual_content])))
(let [seconds (: (-> Instant Int)
(|>> instant.relative (duration.query duration.second)))]
@@ -245,7 +245,7 @@
(do {! random.monad}
[path (random.ascii/lower 10)
modes (random.list 4 ..random_mode)
- #let [expected_mode (list\fold /.and /.none modes)]]
+ .let [expected_mode (list\fold /.and /.none modes)]]
(`` ($_ _.and
(_.cover [/.and]
(|> (do try.monad
@@ -261,7 +261,7 @@
content]))
(format.run /.writer)
(<b>.run /.parser))]
- (in (case (row.to_list tar)
+ (in (case (row.list tar)
(^ (list (#/.Normal [_ _ actual_mode _ _])))
(n.= (/.mode expected_mode)
(/.mode actual_mode))
@@ -284,7 +284,7 @@
content]))
(format.run /.writer)
(<b>.run /.parser))]
- (in (case (row.to_list tar)
+ (in (case (row.list tar)
(^ (list (#/.Normal [_ _ actual_mode _ _])))
(n.= (/.mode <expected_mode>)
(/.mode actual_mode))
@@ -351,7 +351,7 @@
content]))
(format.run /.writer)
(<b>.run /.parser))]
- (in (case (row.to_list tar)
+ (in (case (row.list tar)
(^ (list (#/.Normal [_ _ _ actual_ownership _])))
(and (text\= (/.from_name expected)
(/.from_name (get@ [#/.user #/.name] actual_ownership)))
@@ -375,7 +375,7 @@
content]))
(format.run /.writer)
(<b>.run /.parser))]
- (in (case (row.to_list tar)
+ (in (case (row.list tar)
(^ (list (#/.Normal [_ _ _ actual_ownership _])))
(and (text\= (/.from_name /.anonymous)
(/.from_name (get@ [#/.user #/.name] actual_ownership)))