diff options
author | Eduardo Julian | 2022-12-02 19:33:00 -0400 |
---|---|---|
committer | Eduardo Julian | 2022-12-02 19:33:00 -0400 |
commit | 94e5802f594a73245fce0fbd885103b8bf210d57 (patch) | |
tree | 65e5799c0be40f5f015b39bfa6c87c9c27fd9424 /stdlib/source/test/aedifex/input.lux | |
parent | b491dfff00219d5206075ea65468e00ab657075d (diff) |
Added some simple time-series handling machinery.
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/aedifex/input.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/test/aedifex/input.lux b/stdlib/source/test/aedifex/input.lux index 7dc6ccc8e..76cf34c7c 100644 --- a/stdlib/source/test/aedifex/input.lux +++ b/stdlib/source/test/aedifex/input.lux @@ -52,19 +52,19 @@ Test (<| (_.covering /._) (do [! random.monad] - [expected (at ! each (has //.#parents (list)) $profile.random) + [expected (of ! each (has //.#parents (list)) $profile.random) .let [fs (is (file.System Async) - (file.mock (at file.default separator)))]] + (file.mock (of file.default separator)))]] (in (do async.monad [verdict (do //action.monad [.let [profile (|> expected (//project.project //.default) //format.project %.code - (at utf8.codec encoded))] - _ (at fs write //project.file profile) + (of utf8.codec encoded))] + _ (of fs write //project.file profile) actual (is (Async (Try Profile)) (/.read async.monad fs (list)))] - (in (at //.equivalence = (with_defaults expected) actual)))] + (in (of //.equivalence = (with_defaults expected) actual)))] (unit.coverage [/.read] (try.else false verdict))))))) |