diff options
Diffstat (limited to 'stdlib/source/test/aedifex/input.lux')
| -rw-r--r-- | stdlib/source/test/aedifex/input.lux | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/stdlib/source/test/aedifex/input.lux b/stdlib/source/test/aedifex/input.lux index 9c296e12c..7dc6ccc8e 100644 --- a/stdlib/source/test/aedifex/input.lux +++ b/stdlib/source/test/aedifex/input.lux @@ -43,6 +43,11 @@ (-> (Set Address) (Set Address)) (set.has //.default_repository)) +(def with_defaults + (-> Profile Profile) + (|>> (revised //.#sources ..with_default_source) + (revised //.#repositories ..with_default_repository))) + (def .public test Test (<| (_.covering /._) @@ -59,11 +64,7 @@ (at utf8.codec encoded))] _ (at fs write //project.file profile) actual (is (Async (Try Profile)) - (/.read async.monad fs (list //.default)))] - (in (at //.equivalence = - (|> expected - (revised //.#sources ..with_default_source) - (revised //.#repositories ..with_default_repository)) - actual)))] + (/.read async.monad fs (list)))] + (in (at //.equivalence = (with_defaults expected) actual)))] (unit.coverage [/.read] (try.else false verdict))))))) |