diff options
Diffstat (limited to 'stdlib/source/test/aedifex/command/auto.lux')
-rw-r--r-- | stdlib/source/test/aedifex/command/auto.lux | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux index 001bfcab3..e8d5ca1ac 100644 --- a/stdlib/source/test/aedifex/command/auto.lux +++ b/stdlib/source/test/aedifex/command/auto.lux @@ -57,10 +57,8 @@ (if (n.= expected_runs actual_runs) (in {try.#Failure end_signal}) (do (try.with !) - [_ (# fs write (# utf8.codec encoded (%.nat actual_runs)) dummy_file) - _ (# fs modify - (|> actual_runs .int instant.of_millis) - dummy_file)] + [_ (# fs write dummy_file (# utf8.codec encoded (%.nat actual_runs))) + _ (# fs modify dummy_file (|> actual_runs .int instant.of_millis))] (in [shell.normal []])))))])) (def: .public test @@ -98,12 +96,12 @@ (in (do async.monad [verdict (do ///action.monad [_ (# fs make_directory source) - _ (# fs write (binary.empty 0) dummy_path) + _ (# fs write dummy_path (binary.empty 0)) .let [[@runs command] (..command expected_runs end_signal fs dummy_path)] _ (# watcher poll [])] (do [! async.monad] [no_dangling_process! (|> profile - (has ///.#compiler compiler) + (has ///.#lux compiler) ((/.do! 1 watcher command) ($version.echo "") (program.async (program.mock environment.empty home working_directory)) |