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/world | |
| parent | b0d725f24335e82eefc77175efc0a5282951316e (diff) | |
More efficient TAR handling.
Diffstat (limited to 'stdlib/source/test/lux/world')
| -rw-r--r-- | stdlib/source/test/lux/world/file.lux | 14 | ||||
| -rw-r--r-- | stdlib/source/test/lux/world/file/watch.lux | 2 |
2 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/test/lux/world/file.lux b/stdlib/source/test/lux/world/file.lux index a7e9de34a..ae9d7ff01 100644 --- a/stdlib/source/test/lux/world/file.lux +++ b/stdlib/source/test/lux/world/file.lux @@ -66,8 +66,8 @@ _ (in {try.#Failure ""})))) -(def: (write fs disk it @) - (-> (/.System Async) (Atom Disk) (-> Binary /.Path (IO (Try Any)))) +(def: (write fs disk @ it) + (-> (/.System Async) (Atom Disk) (-> /.Path Binary (IO (Try Any)))) (do [! io.monad] [now instant.now disk' (atom.read! disk)] @@ -203,13 +203,13 @@ _ (in {try.#Failure ""})))) - (def: (append it @) + (def: (append @ it) (do [! io.monad] [now instant.now disk' (atom.read! disk)] (case (dictionary.value @ disk') {.#None} - (..write mock disk it @) + (..write mock disk @ it) {.#Some {.#Left [_ old]}} (do ! @@ -220,7 +220,7 @@ _ (in {try.#Failure ""})))) - (def: (modify it @) + (def: (modify @ it) (do [! io.monad] [disk' (atom.read! disk)] (case (dictionary.value @ disk') @@ -231,10 +231,10 @@ _ (in {try.#Failure ""})))) - (def: (move it @) + (def: (move @ it) (do [! (try.with io.monad)] [data (..read disk @) - write (..write mock disk data it)] + write (..write mock disk it data)] (..delete mock disk @))) ))) diff --git a/stdlib/source/test/lux/world/file/watch.lux b/stdlib/source/test/lux/world/file/watch.lux index 53263b27a..a8bcda085 100644 --- a/stdlib/source/test/lux/world/file/watch.lux +++ b/stdlib/source/test/lux/world/file/watch.lux @@ -118,7 +118,7 @@ (-> (//.System Async) (/.Watcher Async) Binary //.Path (Async (Try Bit))) (do (try.with async.monad) [_ (async.after 1 {try.#Success "Delay to make sure the over_write time-stamp always changes."}) - _ (# fs write data expected_path) + _ (# fs write expected_path data) poll/2 (# watcher poll []) poll/2' (# watcher poll [])] (in (and (case poll/2 |