diff options
Diffstat (limited to 'stdlib/source/test/aedifex/input.lux')
-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))))))) |