diff options
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))))))))) |