diff options
author | Eduardo Julian | 2022-04-07 00:59:30 -0400 |
---|---|---|
committer | Eduardo Julian | 2022-04-07 00:59:30 -0400 |
commit | 7542b0addd9eaf01dd5f1c4c8a39b67f51a4bd06 (patch) | |
tree | 11602f21abb3256019847647e7bbeba8a91418ee /stdlib/source/test/lux/tool/compiler | |
parent | b0d725f24335e82eefc77175efc0a5282951316e (diff) |
More efficient TAR handling.
Diffstat (limited to 'stdlib/source/test/lux/tool/compiler')
-rw-r--r-- | stdlib/source/test/lux/tool/compiler/meta/cache/purge.lux | 4 | ||||
-rw-r--r-- | stdlib/source/test/lux/tool/compiler/meta/export.lux | 4 | ||||
-rw-r--r-- | stdlib/source/test/lux/tool/compiler/meta/import.lux | 14 |
3 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/test/lux/tool/compiler/meta/cache/purge.lux b/stdlib/source/test/lux/tool/compiler/meta/cache/purge.lux index f7e008720..b6f6b4f27 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/cache/purge.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/cache/purge.lux @@ -119,8 +119,8 @@ .let [dir (//module.path fs context id/0) file/0 (%.format dir / name/0) file/1 (%.format dir / name/1)] - _ (# fs write content/0 file/0) - _ (# fs write content/1 file/1) + _ (# fs write file/0 content/0) + _ (# fs write file/1 content/1) pre (# fs directory_files dir) _ (/.purge! fs context id/0) post (# fs directory_files dir)] diff --git a/stdlib/source/test/lux/tool/compiler/meta/export.lux b/stdlib/source/test/lux/tool/compiler/meta/export.lux index d25da0be5..c737eb0e3 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/export.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/export.lux @@ -62,11 +62,11 @@ [it (do (try.with !) [.let [fs (file.mock /)] _ (# fs make_directory source/0) - _ (# fs write content/0 file/0) + _ (# fs write file/0 content/0) _ (# fs make_directory source/1) _ (# fs make_directory (format source/1 / dir/0)) - _ (# fs write content/1 file/1) + _ (# fs write file/1 content/1) _ (# fs make_directory target) library_tar (/.library fs (list source/0 source/1)) diff --git a/stdlib/source/test/lux/tool/compiler/meta/import.lux b/stdlib/source/test/lux/tool/compiler/meta/import.lux index c01a790ce..f7b90c8bf 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/import.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/import.lux @@ -112,12 +112,12 @@ (in (do [! async.monad] [it/0 (do (try.with !) [.let [fs (file.mock /)] - _ (# fs write library_content library/0)] + _ (# fs write library/0 library_content)] (/.import fs (list library/0))) it/1 (do (try.with !) [.let [fs (file.mock /)] - _ (# fs write library_content/0 library/0) - _ (# fs write library_content/1 library/1)] + _ (# fs write library/0 library_content/0) + _ (# fs write library/1 library_content/1)] (/.import fs (list library/0 library/1)))] (_.cover' [/.import] (and (|> it/0 @@ -129,7 +129,7 @@ (in (do [! async.monad] [it (do (try.with !) [.let [fs (file.mock /)] - _ (# fs write library_content library/0) + _ (# fs write library/0 library_content) _ (/.import fs (list library/0 library/0))] (in false))] (_.cover' [/.duplicate] @@ -137,17 +137,17 @@ (in (do [! async.monad] [it/0 (do (try.with !) [.let [fs (file.mock /)] - _ (# fs write library_content/-0 library/0) + _ (# fs write library/0 library_content/-0) _ (/.import fs (list library/0))] (in false)) it/1 (do (try.with !) [.let [fs (file.mock /)] - _ (# fs write library_content/-1 library/0) + _ (# fs write library/0 library_content/-1) _ (/.import fs (list library/0))] (in false)) it/2 (do (try.with !) [.let [fs (file.mock /)] - _ (# fs write library_content/-2 library/0) + _ (# fs write library/0 library_content/-2) _ (/.import fs (list library/0))] (in false))] (_.cover' [/.useless_tar_entry] |