steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

help.lint.coverage: Add yet another sanity test, clean up broken words after lint test.

elevate-erg
Doug Coleman 2018-07-07 02:03:55 -05:00
parent 8c9b3bf7a4
commit dadf462661
1 changed files with 33 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
extra/help/lint/coverage/coverage-tests.factor
View File

@ -1,7 +1,7 @@
USING: accessors english help.lint.coverage USING: accessors english eval help.lint.coverage
help.lint.coverage.private help.markup help.syntax kernel help.lint.coverage.private help.markup help.syntax kernel
literals math math.matrices sequences sorting tools.test vocabs literals math math.matrices multiline sequences sorting
; tools.test vocabs ;
IN: help.lint.coverage.tests IN: help.lint.coverage.tests
<PRIVATE <PRIVATE
@ -67,3 +67,33 @@ PRIVATE>
! make sure this doesn't throw an error (would signify an issue with ignored-words) ! make sure this doesn't throw an error (would signify an issue with ignored-words)
! the contents of all-words is not important ! the contents of all-words is not important
{ } [ all-words [ <word-help-coverage> ] map drop ] unit-test { } [ all-words [ <word-help-coverage> ] map drop ] unit-test
! Lint system is written weirdly, there's no way to invoke it and get the output
! Instead, it writes to lint-failures.
{ }
[
[[
USING: assocs math kernel namespaces help.syntax help.lint help.lint.private ;
IN: help.lint.tests
<<
: add-stuff ( x y -- z ) + ;
HELP: add-stuff ;
>>
H{ } clone lint-failures [ \ add-stuff check-word lint-failures get ] with-variable
assoc-empty? [ "help-lint is broken" throw ] when
]] eval( -- )
] unit-test
! clean up broken words
[[
USING: definitions ;
IN: help.lint.coverage.tests.private
<<
\ empty forget
\ nonexistent forget
\ defined forget
>>
]] eval( -- )