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/cache.lux | |
parent | b491dfff00219d5206075ea65468e00ab657075d (diff) |
Added some simple time-series handling machinery.
Diffstat (limited to 'stdlib/source/test/aedifex/cache.lux')
-rw-r--r-- | stdlib/source/test/aedifex/cache.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/test/aedifex/cache.lux b/stdlib/source/test/aedifex/cache.lux index f6c75114f..63f9e6f90 100644 --- a/stdlib/source/test/aedifex/cache.lux +++ b/stdlib/source/test/aedifex/cache.lux @@ -67,7 +67,7 @@ (def content (Random Binary) (do [! random.monad] - [content_size (at ! each (n.% 100) random.nat)] + [content_size (of ! each (n.% 100) random.nat)] (_binary.random content_size))) (def package @@ -85,7 +85,7 @@ (do [! random.monad] [[main_dependency main_package] ..package dependencies (|> (//package.dependencies main_package) - (at try.monad each set.list) + (of try.monad each set.list) (try.else (list)) (monad.each ! (function (_ dependency) (do ! @@ -108,7 +108,7 @@ home (random.alphabetic 5) working_directory (random.alphabetic 5) .let [fs (is (file.System Async) - (file.mock (at file.default separator))) + (file.mock (of file.default separator))) program (program.async (program.mock environment.empty home working_directory))]] (in (do async.monad [wrote! (/.write_one program fs dependency expected_package) @@ -118,7 +118,7 @@ (do try.monad [_ wrote! actual_package read!] - (in (at //package.equivalence = + (in (of //package.equivalence = (has //package.#origin {//repository/origin.#Local ""} expected_package) actual_package))))))))) @@ -129,7 +129,7 @@ home (random.alphabetic 5) working_directory (random.alphabetic 5) .let [fs (is (file.System Async) - (file.mock (at file.default separator))) + (file.mock (of file.default separator))) program (program.async (program.mock environment.empty home working_directory))]] (in (do async.monad [wrote! (/.write_all program fs expected) @@ -139,8 +139,8 @@ (do try.monad [_ wrote! actual read!] - (in (at //dependency/resolution.equivalence = - (at dictionary.functor each + (in (of //dependency/resolution.equivalence = + (of dictionary.functor each (has //package.#origin {//repository/origin.#Local ""}) expected) actual))))))))) |