diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/world/file.lux | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/stdlib/source/test/lux/world/file.lux b/stdlib/source/test/lux/world/file.lux index 9dc1fb2e2..a1146fe56 100644 --- a/stdlib/source/test/lux/world/file.lux +++ b/stdlib/source/test/lux/world/file.lux @@ -39,9 +39,9 @@ result (promise.future (do (try.with io.monad) [#let [check-existence! (: (IO (Try Bit)) - (try.lift io.monad (/.exists? io.monad /.system path)))] + (try.lift io.monad (/.exists? io.monad /.default path)))] pre! check-existence! - file (!.use (:: /.system create-file) path) + file (!.use (:: /.default create-file) path) post! check-existence! _ (!.use (:: file delete) []) remains? check-existence!] @@ -57,7 +57,7 @@ [#let [path (format "temp_file_" (%.nat number))] result (promise.future (do (try.with io.monad) - [file (!.use (:: /.system create-file) path) + [file (!.use (:: /.default create-file) path) _ (!.use (:: file over-write) data) content (!.use (:: file content) []) _ (!.use (:: file delete) [])] @@ -84,7 +84,7 @@ [#let [path "temp_file_2"] result (promise.future (do (try.with io.monad) - [file (!.use (:: /.system create-file) path) + [file (!.use (:: /.default create-file) path) _ (!.use (:: file over-write) dataL) read-size (!.use (:: file size) []) _ (!.use (:: file delete) [])] @@ -95,7 +95,7 @@ [#let [path "temp_file_3"] result (promise.future (do (try.with io.monad) - [file (!.use (:: /.system create-file) path) + [file (!.use (:: /.default create-file) path) _ (!.use (:: file over-write) dataL) _ (!.use (:: file append) dataR) content (!.use (:: file content) []) @@ -115,9 +115,9 @@ result (promise.future (do (try.with io.monad) [#let [check-existence! (: (IO (Try Bit)) - (try.lift io.monad (/.exists? io.monad /.system path)))] + (try.lift io.monad (/.exists? io.monad /.default path)))] pre! check-existence! - dir (!.use (:: /.system create-directory) path) + dir (!.use (:: /.default create-directory) path) post! check-existence! _ (!.use (:: dir discard) []) remains? check-existence!] @@ -131,8 +131,8 @@ dir-path "temp_dir_5"] result (promise.future (do (try.with io.monad) - [dir (!.use (:: /.system create-directory) dir-path) - file (!.use (:: /.system create-file) (format dir-path "/" file-path)) + [dir (!.use (:: /.default create-directory) dir-path) + file (!.use (:: /.default create-file) (format dir-path "/" file-path)) _ (!.use (:: file over-write) dataL) read-size (!.use (:: file size) []) _ (!.use (:: file delete) []) @@ -146,12 +146,12 @@ inner-dir-path "inner_temp_dir_6"] result (promise.future (do (try.with io.monad) - [dir (!.use (:: /.system create-directory) dir-path) + [dir (!.use (:: /.default create-directory) dir-path) pre-files (!.use (:: dir files) []) pre-directories (!.use (:: dir directories) []) - file (!.use (:: /.system create-file) (format dir-path "/" file-path)) - inner-dir (!.use (:: /.system create-directory) (format dir-path "/" inner-dir-path)) + file (!.use (:: /.default create-file) (format dir-path "/" file-path)) + inner-dir (!.use (:: /.default create-directory) (format dir-path "/" inner-dir-path)) post-files (!.use (:: dir files) []) post-directories (!.use (:: dir directories) []) @@ -168,7 +168,7 @@ [#let [path "temp_file_7"] result (promise.future (do (try.with io.monad) - [file (!.use (:: /.system create-file) path) + [file (!.use (:: /.default create-file) path) _ (!.use (:: file over-write) dataL) _ (!.use (:: file modify) new-modified) current-modified (!.use (:: file last-modified) []) @@ -182,9 +182,9 @@ result (promise.future (do (try.with io.monad) [#let [check-existence! (: (-> Path (IO (Try Bit))) - (|>> (/.exists? io.monad /.system) + (|>> (/.exists? io.monad /.default) (try.lift io.monad)))] - file0 (!.use (:: /.system create-file) path0) + file0 (!.use (:: /.default create-file) path0) _ (!.use (:: file0 over-write) dataL) pre! (check-existence! path0) file1 (: (IO (Try (File IO))) ## TODO: Remove : |