diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/aedifex/input.lux | 3 | ||||
| -rw-r--r-- | stdlib/source/test/aedifex/parser.lux | 69 |
2 files changed, 23 insertions, 49 deletions
diff --git a/stdlib/source/test/aedifex/input.lux b/stdlib/source/test/aedifex/input.lux index 39dec3ced..eef2673f8 100644 --- a/stdlib/source/test/aedifex/input.lux +++ b/stdlib/source/test/aedifex/input.lux @@ -51,7 +51,8 @@ (in (do async.monad [verdict (do //action.monad [.let [profile (|> expected - //format.profile + (//project.project //.default) + //format.project %.code (\ utf8.codec encoded))] _ (\ fs write profile //project.file) diff --git a/stdlib/source/test/aedifex/parser.lux b/stdlib/source/test/aedifex/parser.lux index 7d15e6dda..cb72c3726 100644 --- a/stdlib/source/test/aedifex/parser.lux +++ b/stdlib/source/test/aedifex/parser.lux @@ -66,61 +66,34 @@ (-> //.Profile //.Profile) (revised@ #//.repositories (set.has //.default_repository))) -(def: single_profile - Test - (do random.monad - [expected @profile.random] - (_.test "Single profile." - (|> expected - //format.profile - list - (<code>.result /.project) - (case> (#try.Success actual) - (|> expected - ..with_default_sources - ..with_default_repository - (//project.project //.default) - (\ //project.equivalence = actual)) - - (#try.Failure error) - false))))) - (def: (with_empty_profile project) (-> Project Project) (if (dictionary.empty? project) (//project.project //.default (\ //.monoid identity)) project)) -(def: multiple_profiles - Test - (do random.monad - [expected ..random] - (_.test "Multiple profiles." - (|> expected - //format.project - list - (<code>.result /.project) - (case> (#try.Success actual) - (|> expected - ..with_empty_profile - dictionary.entries - (list\each (function (_ [name profile]) - [name (|> profile - ..with_default_sources - ..with_default_repository)])) - (dictionary.of_list text.hash) - (\ //project.equivalence = actual)) - - (#try.Failure error) - false))))) - (def: .public test Test (<| (_.covering /._) (_.covering //format._) - (_.for [/.project - //format.Format //format.profile //format.project] - ($_ _.and - ..single_profile - ..multiple_profiles - )))) + (do random.monad + [expected ..random] + (_.cover [/.project + //format.Format //format.project] + (|> expected + //format.project + list + (<code>.result /.project) + (case> (#try.Success actual) + (|> expected + ..with_empty_profile + dictionary.entries + (list\each (function (_ [name profile]) + [name (|> profile + ..with_default_sources + ..with_default_repository)])) + (dictionary.of_list text.hash) + (\ //project.equivalence = actual)) + + (#try.Failure error) + false)))))) |