diff options
Diffstat (limited to 'stdlib/source/test/aedifex/project.lux')
-rw-r--r-- | stdlib/source/test/aedifex/project.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/test/aedifex/project.lux b/stdlib/source/test/aedifex/project.lux index 61afbc9da..d0f658040 100644 --- a/stdlib/source/test/aedifex/project.lux +++ b/stdlib/source/test/aedifex/project.lux @@ -63,24 +63,24 @@ (not (text#= dummy_name name)) (not (text#= sub_name name)))) (random.alphabetic 1)) - .let [project (all (# /.monoid composite) + .let [project (all (at /.monoid composite) (/.project super_name super_profile) (/.project dummy_name dummy_profile) (/.project sub_name (has //.#parents (list super_name) sub_profile))) - circular (all (# /.monoid composite) + circular (all (at /.monoid composite) (/.project super_name (has //.#parents (list sub_name) super_profile)) (/.project dummy_name dummy_profile) (/.project sub_name (has //.#parents (list super_name) sub_profile)))]] (all _.and (_.coverage [/.profile] (and (|> (/.profile project super_name) - (try#each (# //.equivalence = super_profile)) + (try#each (at //.equivalence = super_profile)) (try.else false)) (|> (/.profile project dummy_name) - (try#each (# //.equivalence = dummy_profile)) + (try#each (at //.equivalence = dummy_profile)) (try.else false)) (|> (/.profile project sub_name) - (try#each (# //.equivalence = (# //.monoid composite sub_profile super_profile))) + (try#each (at //.equivalence = (at //.monoid composite sub_profile super_profile))) (try.else false)))) (_.coverage [/.unknown_profile] (case (/.profile project fake_name) |