diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux/documentation.lux | 57 |
1 files changed, 26 insertions, 31 deletions
diff --git a/stdlib/source/test/lux/documentation.lux b/stdlib/source/test/lux/documentation.lux index 0a306c771..4196ab09d 100644 --- a/stdlib/source/test/lux/documentation.lux +++ b/stdlib/source/test/lux/documentation.lux @@ -52,9 +52,8 @@ (<| (_.covering /._) (all _.and (_.for [/.Definition] - (all _.and - (_.coverage [/.default] - (case (`` (/.default (,, (template.symbol [.._] [g!default])))) + (_.coverage [/.definition] + (and (case (`` (/.definition (,, (template.symbol [.._] [g!default])))) (list definition) (and (|> definition (the /.#definition) @@ -66,8 +65,7 @@ not)) _ - false)) - (_.coverage [/.definition] + false) (case ..definition (list documentation) (and (|> documentation @@ -79,38 +77,35 @@ (text.contains? 'definition_description'))) _ - false)) - )) + false)))) (_.for [/.Module] - (all _.and - (_.coverage [/.module /.markdown] - (let [sub (`` (/.module /._ - (,, (template.text ['sub_description'])) - [] - [])) - super (`` (/.module .._ - (,, (template.text ['super_description'])) - [..definition] - [sub]))] - (and (text.contains? (template.text ['sub_description']) - (/.markdown sub)) - (text.contains? (/.markdown sub) - (/.markdown super)) - (text.contains? (template.text ['super_description']) - (/.markdown super)) - (case ..definition - (list documentation) - (text.contains? (md.markdown (the /.#documentation documentation)) - (/.markdown super)) + (_.coverage [/.module /.markdown] + (let [sub (`` (/.module /._ + (,, (template.text ['sub_description'])) + [] + [])) + super (`` (/.module .._ + (,, (template.text ['super_description'])) + [..definition] + [sub]))] + (and (text.contains? (template.text ['sub_description']) + (/.markdown sub)) + (text.contains? (/.markdown sub) + (/.markdown super)) + (text.contains? (template.text ['super_description']) + (/.markdown super)) + (case ..definition + (list documentation) + (text.contains? (md.markdown (the /.#documentation documentation)) + (/.markdown super)) - _ - false)))) - )) + _ + false))))) (_.coverage [/.unqualified_symbol] (`` (and (,, (with_template [<example>] [(macro_error <example>)] - [(/.default g!default)] + [(/.definition g!default)] [(/.definition g!default (,, (template.text ['definition_description'])))] [(/.module g!default |