diff options
author | Eduardo Julian | 2020-11-27 00:07:51 -0400 |
---|---|---|
committer | Eduardo Julian | 2020-11-27 00:07:51 -0400 |
commit | 889139602b77e4387a6e8bfbedacc2a08703e976 (patch) | |
tree | 3a113e298037122e81b5529475bd1e59286f733f /stdlib/source/test/aedifex/input.lux | |
parent | dbb658bd7976c073a2bf314f194b36b30c45784b (diff) |
Re-named lux/data/format/context to lux/control/parser/environment.
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/aedifex/input.lux | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/stdlib/source/test/aedifex/input.lux b/stdlib/source/test/aedifex/input.lux index c25d6fe36..c7f6a4282 100644 --- a/stdlib/source/test/aedifex/input.lux +++ b/stdlib/source/test/aedifex/input.lux @@ -12,8 +12,10 @@ [data ["." binary] ["." text - ["%" format] - ["." encoding]]] + ["%" format (#+ format)] + ["." encoding]] + [collection + ["." set (#+ Set)]]] [math ["." random (#+ Random)]] [world @@ -28,6 +30,12 @@ ["#." action] ["#." format]]]}) +(def: (with-default-source sources) + (-> (Set //.Source) (Set //.Source)) + (if (set.empty? sources) + (set.add //.default-source sources) + sources)) + (def: #export test Test (<| (_.covering /._) @@ -46,6 +54,8 @@ (!.use (:: file over-write))) actual (: (Promise (Try Profile)) (/.read promise.monad fs //.default))] - (wrap (:: //.equivalence = expected actual)))] + (wrap (:: //.equivalence = + (update@ #//.sources ..with-default-source expected) + actual)))] (_.claim [/.read] (try.default false verdict))))))) |