diff options
| author | Eduardo Julian | 2021-07-18 23:10:18 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-07-18 23:10:18 -0400 |
| commit | a40f40f230e6312ae432f06e7f73aa5945d8fa49 (patch) | |
| tree | 5005ef744b01f9327c2e4df23146928f1723c495 /stdlib/source/test/aedifex/pom.lux | |
| parent | 442d1557b879a8a4bd76f441f72a17bfb71cf05f (diff) | |
New JVM compiler can now compile JVM interfaces.
Diffstat (limited to 'stdlib/source/test/aedifex/pom.lux')
| -rw-r--r-- | stdlib/source/test/aedifex/pom.lux | 49 |
1 files changed, 28 insertions, 21 deletions
diff --git a/stdlib/source/test/aedifex/pom.lux b/stdlib/source/test/aedifex/pom.lux index 24ca3c3c6..01b90c33e 100644 --- a/stdlib/source/test/aedifex/pom.lux +++ b/stdlib/source/test/aedifex/pom.lux @@ -10,6 +10,7 @@ ["<>" parser ["<.>" xml]]] [data + ["." text ("#\." equivalence)] [format ["." xml]]] [math @@ -24,27 +25,33 @@ (def: #export test Test (<| (_.covering /._) - (do random.monad - [expected @profile.random] - (_.cover [/.write /.parser] - (case [(/.write expected) - (get@ #//.identity expected)] - [(#try.Success pom) - (#.Some _)] - (case (<xml>.run /.parser (list pom)) - (#try.Success actual) - (\ //.equivalence = - (|> (\ //.monoid identity) - (set@ #//.dependencies (get@ #//.dependencies expected)) - (set@ #//.repositories (get@ #//.repositories expected))) - actual) + ($_ _.and + (_.cover [/.file] + (|> /.file + (text\= "") + not)) + (do random.monad + [expected @profile.random] + (_.cover [/.write /.parser] + (case [(/.write expected) + (get@ #//.identity expected)] + [(#try.Success pom) + (#.Some _)] + (case (<xml>.run /.parser (list pom)) + (#try.Success actual) + (\ //.equivalence = + (|> (\ //.monoid identity) + (set@ #//.dependencies (get@ #//.dependencies expected)) + (set@ #//.repositories (get@ #//.repositories expected))) + actual) - (#try.Failure error) - false) + (#try.Failure error) + false) - [(#try.Failure error) - #.None] - (exception.match? //.no_identity error) + [(#try.Failure error) + #.None] + (exception.match? //.no_identity error) - _ - false))))) + _ + false))) + ))) |