diff options
| author | Eduardo Julian | 2021-02-15 09:59:58 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-02-15 09:59:58 -0400 |
| commit | ee7721f3a9c0b899ab282dda120b0854a5cc0bd4 (patch) | |
| tree | 45eda49dbb5ed7c91f22b3efe5f03bc1b53333cb /stdlib/source/test/lux/data/format/tar.lux | |
| parent | ee3240679a7c1c4d216b35e1d2db1544e5c16863 (diff) | |
Almost done with Lua.
Diffstat (limited to 'stdlib/source/test/lux/data/format/tar.lux')
| -rw-r--r-- | stdlib/source/test/lux/data/format/tar.lux | 58 |
1 files changed, 30 insertions, 28 deletions
diff --git a/stdlib/source/test/lux/data/format/tar.lux b/stdlib/source/test/lux/data/format/tar.lux index 10000ff52..c842ebe9c 100644 --- a/stdlib/source/test/lux/data/format/tar.lux +++ b/stdlib/source/test/lux/data/format/tar.lux @@ -392,31 +392,33 @@ (def: #export test Test (<| (_.covering /._) - (_.for [/.Tar] - ($_ _.and - (_.cover [/.writer /.parser] - (|> row.empty - (format.run /.writer) - (<b>.run /.parser) - (\ try.monad map row.empty?) - (try.default false))) - (_.cover [/.invalid_end_of_archive] - (let [dump (format.run /.writer row.empty)] - (case (<b>.run /.parser (binary\compose dump dump)) - (#try.Success _) - false - - (#try.Failure error) - (exception.match? /.invalid_end_of_archive error)))) - - ..path - ..name - ..small - ..big - (_.for [/.Entry] - ($_ _.and - ..entry - ..mode - ..ownership - )) - )))) + (_.for [/.Tar]) + (do random.monad + [_ (wrap [])] + ($_ _.and + (_.cover [/.writer /.parser] + (|> row.empty + (format.run /.writer) + (<b>.run /.parser) + (\ try.monad map row.empty?) + (try.default false))) + (_.cover [/.invalid_end_of_archive] + (let [dump (format.run /.writer row.empty)] + (case (<b>.run /.parser (binary\compose dump dump)) + (#try.Success _) + false + + (#try.Failure error) + (exception.match? /.invalid_end_of_archive error)))) + + ..path + ..name + ..small + ..big + (_.for [/.Entry] + ($_ _.and + ..entry + ..mode + ..ownership + )) + )))) |