diff options
| author | Eduardo Julian | 2021-06-29 00:54:13 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-06-29 00:54:13 -0400 |
| commit | 6633cd42f2892ea71530ddeeb93a7e7c0b59faa3 (patch) | |
| tree | aef31dba019fe7bc5141084ab8c25369bd7e83ca /stdlib/source/test/aedifex/parser.lux | |
| parent | db3e864ae66da7f7d1034ae95967605144d5ec47 (diff) | |
Some updates for the new compilers.
Diffstat (limited to 'stdlib/source/test/aedifex/parser.lux')
| -rw-r--r-- | stdlib/source/test/aedifex/parser.lux | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/stdlib/source/test/aedifex/parser.lux b/stdlib/source/test/aedifex/parser.lux index 0a13acb32..07c426ebb 100644 --- a/stdlib/source/test/aedifex/parser.lux +++ b/stdlib/source/test/aedifex/parser.lux @@ -8,7 +8,7 @@ [pipe (#+ case>)] ["." try] [parser - ["<c>" code]]] + ["<.>" code]]] [data ["." text] [collection @@ -61,6 +61,10 @@ (set.from_list text.hash (list //.default_source)) sources))))) +(def: with_default_repository + (-> //.Profile //.Profile) + (update@ #//.repositories (set.add //.default_repository))) + (def: single_profile Test (do random.monad @@ -69,10 +73,11 @@ (|> expected //format.profile list - (<c>.run /.project) + (<code>.run /.project) (case> (#try.Success actual) (|> expected ..with_default_sources + ..with_default_repository (//project.project //.default) (\ //project.equivalence = actual)) @@ -93,13 +98,15 @@ (|> expected //format.project list - (<c>.run /.project) + (<code>.run /.project) (case> (#try.Success actual) (|> expected ..with_empty_profile dictionary.entries (list\map (function (_ [name profile]) - [name (..with_default_sources profile)])) + [name (|> profile + ..with_default_sources + ..with_default_repository)])) (dictionary.from_list text.hash) (\ //project.equivalence = actual)) |