From 94e5802f594a73245fce0fbd885103b8bf210d57 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Fri, 2 Dec 2022 19:33:00 -0400 Subject: Added some simple time-series handling machinery. --- stdlib/source/test/aedifex/command/build.lux | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'stdlib/source/test/aedifex/command/build.lux') diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux index 674a04e93..205866e1f 100644 --- a/stdlib/source/test/aedifex/command/build.lux +++ b/stdlib/source/test/aedifex/command/build.lux @@ -144,7 +144,7 @@ (do [! random.monad] [last_read (random.alphabetic 5) last_error (random.alphabetic 5) - .let [fs (file.mock (at file.default separator)) + .let [fs (file.mock (of file.default separator)) shell (shell.async (..good_shell []))] program (random.and (random.alphabetic 5) (random.alphabetic 5)) @@ -152,7 +152,7 @@ home (random.alphabetic 5) working_directory (random.alphabetic 5) .let [empty_profile (is Profile - (at ///.monoid identity)) + (of ///.monoid identity)) with_target (is (-> Profile Profile) (has ///.#target target)) with_program (is (-> Profile Profile) @@ -189,8 +189,8 @@ [_ (/.do! console (program.async (program.mock environment.empty home working_directory)) fs shell resolution (has ///.#lux compiler profile)) - start (at console read_line []) - end (at console read_line [])] + start (of console read_line []) + end (of console read_line [])] (in (and (text#= /.start start) (text#= /.success end))))] (unit.coverage [/.do! @@ -211,8 +211,8 @@ [_ (/.do! console (program.async (program.mock environment.empty home working_directory)) fs (shell.async (..bad_shell [])) resolution (has ///.#lux compiler profile)) - start (at console read_line []) - end (at console read_line [])] + start (of console read_line []) + end (of console read_line [])] (in (and (text#= /.start start) (text#= /.failure end))))] (unit.coverage [/.failure] @@ -231,11 +231,11 @@ [verdict (do ///action.monad [process (shell [environment.empty working_directory "" (list "")]) _ ( console process) - actual/0 (at console read_line []) - actual/1 (at console read_line []) - actual/2 (at console read_line []) - end! (|> (at console read_line []) - (at ! each (|>> (pipe.when + actual/0 (of console read_line []) + actual/1 (of console read_line []) + actual/2 (of console read_line []) + end! (|> (of console read_line []) + (of ! each (|>> (pipe.when {try.#Failure error} true -- cgit v1.2.3