aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex/command/auto.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/test/aedifex/command/auto.lux')
-rw-r--r--stdlib/source/test/aedifex/command/auto.lux14
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux
index 1ed19ddf7..91506ca06 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -89,8 +89,8 @@
home (random.ascii/alpha 5)
working_directory (random.ascii/alpha 5)
- expected_runs (\ ! map (|>> (n.% 10) (n.max 2)) random.nat)
- dummy_path (\ ! map (|>> (format source /)) (random.ascii/alpha 5))
+ expected_runs (\ ! each (|>> (n.% 10) (n.max 2)) random.nat)
+ dummy_path (\ ! each (|>> (format source /)) (random.ascii/alpha 5))
[compiler resolution] $build.resolution]
($_ _.and
(_.cover [/.delay]
@@ -110,15 +110,15 @@
fs
(shell.async ($build.good_shell []))
resolution)
- (\ ! map (|>> (case> (#try.Failure error)
- (same? end_signal error)
+ (\ ! each (|>> (case> (#try.Failure error)
+ (same? end_signal error)
- (#try.Success _)
- false))))
+ (#try.Success _)
+ false))))
correct_number_of_runs! (|> @runs
atom.read!
async.future
- (\ ! map (n.= expected_runs)))]
+ (\ ! each (n.= expected_runs)))]
(in (#try.Success (and correct_number_of_runs!
no_dangling_process!)))))]
(_.cover' [/.do!]