diff options
Diffstat (limited to 'stdlib/source/test/aedifex/command/auto.lux')
| -rw-r--r-- | stdlib/source/test/aedifex/command/auto.lux | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux index c057d173d..b483ecd2c 100644 --- a/stdlib/source/test/aedifex/command/auto.lux +++ b/stdlib/source/test/aedifex/command/auto.lux @@ -57,8 +57,8 @@ (if (n.= expected_runs actual_runs) (in {try.#Failure end_signal}) (do (try.with !) - [_ (# fs write dummy_file (# utf8.codec encoded (%.nat actual_runs))) - _ (# fs modify dummy_file (|> actual_runs .int instant.of_millis))] + [_ (at fs write dummy_file (at utf8.codec encoded (%.nat actual_runs))) + _ (at fs modify dummy_file (|> actual_runs .int instant.of_millis))] (in [shell.normal []])))))])) (def: .public test @@ -66,14 +66,14 @@ (<| (_.covering /._) (do [! random.monad] [end_signal (random.alphabetic 5) - .let [/ (# file.default separator) + .let [/ (at file.default separator) [fs watcher] (watch.mock /)] program (random.alphabetic 5) target (random.alphabetic 5) source (random.alphabetic 5) .let [empty_profile (is Profile - (# ///.monoid identity)) + (at ///.monoid identity)) with_target (is (-> Profile Profile) (has ///.#target target)) with_program (is (-> Profile Profile) @@ -87,18 +87,18 @@ home (random.alphabetic 5) working_directory (random.alphabetic 5) - expected_runs (# ! each (|>> (n.% 10) (n.max 2)) random.nat) - dummy_path (# ! each (|>> (format source /)) (random.alphabetic 5)) + expected_runs (at ! each (|>> (n.% 10) (n.max 2)) random.nat) + dummy_path (at ! each (|>> (format source /)) (random.alphabetic 5)) [compiler resolution] $build.resolution] (all _.and (_.coverage [/.delay] (n.> 0 /.delay)) (in (do async.monad [verdict (do ///action.monad - [_ (# fs make_directory source) - _ (# fs write dummy_path (binary.empty 0)) + [_ (at fs make_directory source) + _ (at fs write dummy_path (binary.empty 0)) .let [[@runs command] (..command expected_runs end_signal fs dummy_path)] - _ (# watcher poll [])] + _ (at watcher poll [])] (do [! async.monad] [no_dangling_process! (|> profile (has ///.#lux compiler) @@ -108,16 +108,16 @@ fs (shell.async ($build.good_shell [])) resolution) - (# ! each (|>> (pipe.case - {try.#Failure error} - (same? end_signal error) + (at ! each (|>> (pipe.case + {try.#Failure error} + (same? end_signal error) - {try.#Success _} - false)))) + {try.#Success _} + false)))) correct_number_of_runs! (|> @runs atom.read! async.future - (# ! each (n.= expected_runs)))] + (at ! each (n.= expected_runs)))] (in {try.#Success (and correct_number_of_runs! no_dangling_process!)})))] (_.coverage' [/.do!] |