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.lux86
1 files changed, 43 insertions, 43 deletions
diff --git a/stdlib/source/test/lux/data/format/tar.lux b/stdlib/source/test/lux/data/format/tar.lux
index d595955b1..835ce822e 100644
--- a/stdlib/source/test/lux/data/format/tar.lux
+++ b/stdlib/source/test/lux/data/format/tar.lux
@@ -47,27 +47,27 @@
(`` ($_ _.and
(_.cover [/.path /.from_path]
(case (/.path expected)
- (#try.Success actual)
+ {#try.Success actual}
(text\= expected
(/.from_path actual))
- (#try.Failure error)
+ {#try.Failure error}
false))
(_.cover [/.no_path]
(text\= "" (/.from_path /.no_path)))
(_.cover [/.path_size /.path_is_too_long]
(case (/.path invalid)
- (#try.Success _)
+ {#try.Success _}
false
- (#try.Failure error)
+ {#try.Failure error}
(exception.match? /.path_is_too_long error)))
(_.cover [/.not_ascii]
(case (/.path not_ascii)
- (#try.Success actual)
+ {#try.Success actual}
false
- (#try.Failure error)
+ {#try.Failure error}
(exception.match? /.not_ascii error)))
)))))
@@ -82,25 +82,25 @@
(`` ($_ _.and
(_.cover [/.name /.from_name]
(case (/.name expected)
- (#try.Success actual)
+ {#try.Success actual}
(text\= expected
(/.from_name actual))
- (#try.Failure error)
+ {#try.Failure error}
false))
(_.cover [/.name_size /.name_is_too_long]
(case (/.name invalid)
- (#try.Success _)
+ {#try.Success _}
false
- (#try.Failure error)
+ {#try.Failure error}
(exception.match? /.name_is_too_long error)))
(_.cover [/.not_ascii]
(case (/.name not_ascii)
- (#try.Success actual)
+ {#try.Success actual}
false
- (#try.Failure error)
+ {#try.Failure error}
(exception.match? /.not_ascii error)))
)))))
@@ -113,18 +113,18 @@
(`` ($_ _.and
(_.cover [/.small /.from_small]
(case (/.small expected)
- (#try.Success actual)
+ {#try.Success actual}
(n.= expected
(/.from_small actual))
- (#try.Failure error)
+ {#try.Failure error}
false))
(_.cover [/.small_limit /.not_a_small_number]
(case (/.small invalid)
- (#try.Success actual)
+ {#try.Success actual}
false
- (#try.Failure error)
+ {#try.Failure error}
(exception.match? /.not_a_small_number error)))
)))))
@@ -137,18 +137,18 @@
(`` ($_ _.and
(_.cover [/.big /.from_big]
(case (/.big expected)
- (#try.Success actual)
+ {#try.Success actual}
(n.= expected
(/.from_big actual))
- (#try.Failure error)
+ {#try.Failure error}
false))
(_.cover [/.big_limit /.not_a_big_number]
(case (/.big invalid)
- (#try.Success actual)
+ {#try.Success actual}
false
- (#try.Failure error)
+ {#try.Failure error}
(exception.match? /.not_a_big_number error)))
)))))
@@ -171,11 +171,11 @@
[(_.cover [<type>]
(|> (do try.monad
[expected_path (/.path expected_path)
- tar (|> (row.row (<tag> expected_path))
+ tar (|> (row.row {<tag> expected_path})
(format.result /.writer)
(<b>.result /.parser))]
(in (case (row.list tar)
- (^ (list (<tag> actual_path)))
+ (^ (list {<tag> actual_path}))
(text\= (/.from_path expected_path)
(/.from_path actual_path))
@@ -193,18 +193,18 @@
(|> (do try.monad
[expected_path (/.path expected_path)
expected_content (/.content content)
- tar (|> (row.row (<tag> [expected_path
+ tar (|> (row.row {<tag> [expected_path
expected_moment
/.none
[#/.user [#/.name /.anonymous
#/.id /.no_id]
#/.group [#/.name /.anonymous
#/.id /.no_id]]
- expected_content]))
+ expected_content]})
(format.result /.writer)
(<b>.result /.parser))]
(in (case (row.list tar)
- (^ (list (<tag> [actual_path actual_moment actual_mode actual_ownership actual_content])))
+ (^ (list {<tag> [actual_path actual_moment actual_mode actual_ownership actual_content]}))
(let [seconds (: (-> Instant Int)
(|>> instant.relative (duration.ticks duration.second)))]
(and (text\= (/.from_path expected_path)
@@ -251,18 +251,18 @@
(|> (do try.monad
[path (/.path path)
content (/.content (binary.empty 0))
- tar (|> (row.row (#/.Normal [path
+ tar (|> (row.row {#/.Normal [path
(instant.of_millis +0)
expected_mode
[#/.user [#/.name /.anonymous
#/.id /.no_id]
#/.group [#/.name /.anonymous
#/.id /.no_id]]
- content]))
+ content]})
(format.result /.writer)
(<b>.result /.parser))]
(in (case (row.list tar)
- (^ (list (#/.Normal [_ _ actual_mode _ _])))
+ (^ (list {#/.Normal [_ _ actual_mode _ _]}))
(n.= (/.mode expected_mode)
(/.mode actual_mode))
@@ -274,18 +274,18 @@
(|> (do try.monad
[path (/.path path)
content (/.content (binary.empty 0))
- tar (|> (row.row (#/.Normal [path
+ tar (|> (row.row {#/.Normal [path
(instant.of_millis +0)
<expected_mode>
[#/.user [#/.name /.anonymous
#/.id /.no_id]
#/.group [#/.name /.anonymous
#/.id /.no_id]]
- content]))
+ content]})
(format.result /.writer)
(<b>.result /.parser))]
(in (case (row.list tar)
- (^ (list (#/.Normal [_ _ actual_mode _ _])))
+ (^ (list {#/.Normal [_ _ actual_mode _ _]}))
(n.= (/.mode <expected_mode>)
(/.mode actual_mode))
@@ -324,35 +324,35 @@
($_ _.and
(_.cover [/.name_size /.name_is_too_long]
(case (/.name invalid)
- (#try.Success _)
+ {#try.Success _}
false
- (#try.Failure error)
+ {#try.Failure error}
(exception.match? /.name_is_too_long error)))
(_.cover [/.not_ascii]
(case (/.name not_ascii)
- (#try.Success actual)
+ {#try.Success actual}
false
- (#try.Failure error)
+ {#try.Failure error}
(exception.match? /.not_ascii error)))
(_.cover [/.Name /.name /.from_name]
(|> (do try.monad
[path (/.path path)
content (/.content (binary.empty 0))
expected (/.name expected)
- tar (|> (row.row (#/.Normal [path
+ tar (|> (row.row {#/.Normal [path
(instant.of_millis +0)
/.none
[#/.user [#/.name expected
#/.id /.no_id]
#/.group [#/.name /.anonymous
#/.id /.no_id]]
- content]))
+ content]})
(format.result /.writer)
(<b>.result /.parser))]
(in (case (row.list tar)
- (^ (list (#/.Normal [_ _ _ actual_ownership _])))
+ (^ (list {#/.Normal [_ _ _ actual_ownership _]}))
(and (text\= (/.from_name expected)
(/.from_name (value@ [#/.user #/.name] actual_ownership)))
(text\= (/.from_name /.anonymous)
@@ -365,18 +365,18 @@
(|> (do try.monad
[path (/.path path)
content (/.content (binary.empty 0))
- tar (|> (row.row (#/.Normal [path
+ tar (|> (row.row {#/.Normal [path
(instant.of_millis +0)
/.none
[#/.user [#/.name /.anonymous
#/.id /.no_id]
#/.group [#/.name /.anonymous
#/.id /.no_id]]
- content]))
+ content]})
(format.result /.writer)
(<b>.result /.parser))]
(in (case (row.list tar)
- (^ (list (#/.Normal [_ _ _ actual_ownership _])))
+ (^ (list {#/.Normal [_ _ _ actual_ownership _]}))
(and (text\= (/.from_name /.anonymous)
(/.from_name (value@ [#/.user #/.name] actual_ownership)))
(n.= (/.from_small /.no_id)
@@ -407,10 +407,10 @@
(_.cover [/.invalid_end_of_archive]
(let [dump (format.result /.writer row.empty)]
(case (<b>.result /.parser (binary\composite dump dump))
- (#try.Success _)
+ {#try.Success _}
false
- (#try.Failure error)
+ {#try.Failure error}
(exception.match? /.invalid_end_of_archive error))))
..path
generated by cgit v1.2.3 (git 2.25.1) at 2024-12-22 23:43:27 +0000