help.lint.coverage: change to use a find-word that doesn't use search.
When run with the test runner, manifest is ``f``, so ``search`` breaks.factor-shell
parent
849b6d76f4
commit
3a23a92531
|
@ -1,6 +1,6 @@
|
|||
USING: accessors fuel.help.private help.lint.coverage
|
||||
help.lint.coverage.private help.markup help.syntax kernel
|
||||
literals math math.matrices sequences sorting tools.test vocabs ;
|
||||
USING: accessors help.lint.coverage help.lint.coverage.private
|
||||
help.markup help.syntax kernel literals math math.matrices
|
||||
sequences sorting tools.test vocabs ;
|
||||
IN: help.lint.coverage.tests
|
||||
|
||||
<PRIVATE
|
||||
|
@ -10,7 +10,7 @@ IN: help.lint.coverage.tests
|
|||
|
||||
HELP: empty { $examples } ;
|
||||
HELP: nonexistent ;
|
||||
HELP: defined { $examples { $example "USING: prettyprint ; ""1 ." "1" } } ;
|
||||
HELP: defined { $examples { $example "USING: prettyprint ; " "1 ." "1" } } ;
|
||||
PRIVATE>
|
||||
|
||||
{ t } [ \ empty empty-examples? ] unit-test
|
||||
|
|
|
@ -1,9 +1,8 @@
|
|||
USING: accessors arrays classes classes.error combinators
|
||||
combinators.short-circuit continuations english eval formatting
|
||||
fry fuel.help.private generic help help.lint help.lint.checks help.markup io
|
||||
io.streams.string io.styles kernel math namespaces parser
|
||||
prettyprint sequences sequences.deep sets sorting splitting strings summary
|
||||
vocabs words ;
|
||||
USING: accessors arrays assocs classes classes.error combinators
|
||||
continuations english formatting fry generic help
|
||||
help.lint.checks help.markup io io.streams.string io.styles
|
||||
kernel math namespaces parser sequences sequences.deep sets
|
||||
sorting splitting strings summary vocabs vocabs.parser words ;
|
||||
FROM: namespaces => set ;
|
||||
IN: help.lint.coverage
|
||||
|
||||
|
@ -107,6 +106,14 @@ M: word-help-coverage summary
|
|||
|
||||
: missing-sections ( word -- missing )
|
||||
[ should-define ] [ word-defines-sections ] bi diff ;
|
||||
|
||||
: find-word ( name -- word/f )
|
||||
dup words-named dup length {
|
||||
{ 0 [ 2drop f ] }
|
||||
{ 1 [ first nip ] }
|
||||
[ drop <ambiguous-use-error> throw-restarts ]
|
||||
} case ;
|
||||
|
||||
PRIVATE>
|
||||
|
||||
GENERIC: <word-help-coverage> ( word -- coverage )
|
||||
|
|
Loading…
Reference in New Issue