diff options
Diffstat (limited to 'stdlib/source/test/lux/data/format/tar.lux')
-rw-r--r-- | stdlib/source/test/lux/data/format/tar.lux | 25 |
1 files changed, 12 insertions, 13 deletions
diff --git a/stdlib/source/test/lux/data/format/tar.lux b/stdlib/source/test/lux/data/format/tar.lux index 33487622a..ba81d4153 100644 --- a/stdlib/source/test/lux/data/format/tar.lux +++ b/stdlib/source/test/lux/data/format/tar.lux @@ -12,9 +12,10 @@ ["<b>" binary]]] [data ["[0]" product] - ["[0]" binary (.open: "[1]#[0]" equivalence monoid)] + ["[0]" binary (.open: "[1]#[0]" equivalence monoid) + ["[0]" \\format]] ["[0]" text (.open: "[1]#[0]" equivalence) - ["%" format (.only format)] + ["%" \\format (.only format)] [encoding ["[0]" utf8]] ["[0]" unicode @@ -22,9 +23,7 @@ ["[1]/[0]" block]]] [collection ["[0]" sequence] - ["[0]" list (.open: "[1]#[0]" mix)]] - ["[0]" format - ["[1]" binary]]] + ["[0]" list (.open: "[1]#[0]" mix)]]] [time ["[0]" instant (.only Instant)] ["[0]" duration]] @@ -172,7 +171,7 @@ (|> (do try.monad [expected_path (/.path expected_path) tar (|> (sequence.sequence {<tag> expected_path}) - (format.result /.writer) + (\\format.result /.writer) (<b>.result /.parser))] (in (case (sequence.list tar) (pattern (list {<tag> actual_path})) @@ -201,7 +200,7 @@ /.#group [/.#name /.anonymous /.#id /.no_id]] expected_content]}) - (format.result /.writer) + (\\format.result /.writer) (<b>.result /.parser))] (in (case (sequence.list tar) (pattern (list {<tag> [actual_path actual_moment actual_mode actual_ownership actual_content]})) @@ -259,7 +258,7 @@ /.#group [/.#name /.anonymous /.#id /.no_id]] content]}) - (format.result /.writer) + (\\format.result /.writer) (<b>.result /.parser))] (in (case (sequence.list tar) (pattern (list {/.#Normal [_ _ actual_mode _ _]})) @@ -282,7 +281,7 @@ /.#group [/.#name /.anonymous /.#id /.no_id]] content]}) - (format.result /.writer) + (\\format.result /.writer) (<b>.result /.parser))] (in (case (sequence.list tar) (pattern (list {/.#Normal [_ _ actual_mode _ _]})) @@ -349,7 +348,7 @@ /.#group [/.#name /.anonymous /.#id /.no_id]] content]}) - (format.result /.writer) + (\\format.result /.writer) (<b>.result /.parser))] (in (case (sequence.list tar) (pattern (list {/.#Normal [_ _ _ actual_ownership _]})) @@ -373,7 +372,7 @@ /.#group [/.#name /.anonymous /.#id /.no_id]] content]}) - (format.result /.writer) + (\\format.result /.writer) (<b>.result /.parser))] (in (case (sequence.list tar) (pattern (list {/.#Normal [_ _ _ actual_ownership _]})) @@ -400,12 +399,12 @@ (all _.and (_.coverage [/.writer /.parser] (|> sequence.empty - (format.result /.writer) + (\\format.result /.writer) (<b>.result /.parser) (at try.monad each sequence.empty?) (try.else false))) (_.coverage [/.invalid_end_of_archive] - (let [dump (format.result /.writer sequence.empty)] + (let [dump (\\format.result /.writer sequence.empty)] (case (<b>.result /.parser (binary#composite dump dump)) {try.#Success _} false |