diff options
Diffstat (limited to 'stdlib/source/test/lux/tool/compiler/meta/export.lux')
| -rw-r--r-- | stdlib/source/test/lux/tool/compiler/meta/export.lux | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/test/lux/tool/compiler/meta/export.lux b/stdlib/source/test/lux/tool/compiler/meta/export.lux index eccebdfe0..c8e9fcb06 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/export.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/export.lux @@ -45,34 +45,34 @@ target (random.lower_case 3) .let [random_file (is (Random file.Path) - (# ! each (text.suffix io.lux_extension) (random.lower_case 4)))] + (at ! each (text.suffix io.lux_extension) (random.lower_case 4)))] file/0' random_file .let [file/0 (format source/0 / file/0')] dir/0 (random.lower_case 5) - file/1' (# ! each (|>> (format dir/0 /)) random_file) + file/1' (at ! each (|>> (format dir/0 /)) random_file) .let [file/1 (format source/1 / file/1')] .let [random_content (is (Random Binary) - (# ! each (|>> %.nat (# utf8.codec encoded)) random.nat))] + (at ! each (|>> %.nat (at utf8.codec encoded)) random.nat))] content/0 random_content content/1 random_content] (all _.and (in (do [! async.monad] [it (do (try.with !) [.let [fs (file.mock /)] - _ (# fs make_directory source/0) - _ (# fs write file/0 content/0) + _ (at fs make_directory source/0) + _ (at fs write file/0 content/0) - _ (# fs make_directory source/1) - _ (# fs make_directory (format source/1 / dir/0)) - _ (# fs write file/1 content/1) + _ (at fs make_directory source/1) + _ (at fs make_directory (format source/1 / dir/0)) + _ (at fs write file/1 content/1) - _ (# fs make_directory target) + _ (at fs make_directory target) library_tar (/.library fs (list source/0 source/1)) _ (/.export fs [(list source/0 source/1) target]) - export_tar (# fs read (format target / /.file)) - export_tar (# ! in (<binary>.result tar.parser export_tar))] + export_tar (at fs read (format target / /.file)) + export_tar (at ! in (<binary>.result tar.parser export_tar))] (in [library_tar export_tar]))] (all _.and' (_.coverage' [/.library /.mode /.ownership] |