diff options
Diffstat (limited to 'stdlib/source/test/aedifex/input.lux')
| -rw-r--r-- | stdlib/source/test/aedifex/input.lux | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/test/aedifex/input.lux b/stdlib/source/test/aedifex/input.lux index 16c91c69a..874170bc2 100644 --- a/stdlib/source/test/aedifex/input.lux +++ b/stdlib/source/test/aedifex/input.lux @@ -45,23 +45,23 @@ Test (<| (_.covering /._) (do [! random.monad] - [expected (# ! each (has //.#parents (list)) $profile.random) + [expected (at ! each (has //.#parents (list)) $profile.random) .let [fs (is (file.System Async) - (file.mock (# file.default separator)))]] + (file.mock (at file.default separator)))]] (in (do async.monad [verdict (do //action.monad [.let [profile (|> expected (//project.project //.default) //format.project %.code - (# utf8.codec encoded))] - _ (# fs write //project.file profile) + (at utf8.codec encoded))] + _ (at fs write //project.file profile) actual (is (Async (Try Profile)) (/.read async.monad fs (list //.default)))] - (in (# //.equivalence = - (|> expected - (revised //.#sources ..with_default_source) - (revised //.#repositories ..with_default_repository)) - actual)))] + (in (at //.equivalence = + (|> expected + (revised //.#sources ..with_default_source) + (revised //.#repositories ..with_default_repository)) + actual)))] (_.coverage' [/.read] (try.else false verdict))))))) |