aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/test/lux/documentation.lux57
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