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

help.lint.coverage: Clean up test a bit. Hopefully this fixes an error on macOS in travisci.

vm-warnings
Doug Coleman 2018-07-07 15:40:33 -05:00
parent 06758e9633
commit f140d48e24
1 changed files with 19 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -71,31 +71,38 @@ PRIVATE>
! Lint system is written weirdly, there's no way to invoke it and get the output ! Lint system is written weirdly, there's no way to invoke it and get the output
! Instead, it writes to lint-failures. ! Instead, it writes to lint-failures.
{ } { t }
[ [
[[ [[
USING: assocs definitions math kernel namespaces help.syntax USING: assocs definitions math kernel namespaces help.syntax
help.lint help.lint.private ; help.lint help.lint.private continuations compiler.units ;
IN: help.lint.tests IN: help.lint.tests
<< <<
: add-stuff ( x y -- z ) + ; : add-stuff ( x y -- z ) + ;
HELP: add-stuff ; HELP: add-stuff ;
>> >>
H{ } clone lint-failures [ \ add-stuff check-word lint-failures get ] with-variable [
assoc-empty? [ "help-lint is broken" throw ] when H{ } clone lint-failures [
<< \ add-stuff forget >> \ add-stuff check-word lint-failures get
]] eval( -- ) assoc-empty? [ "help-lint is broken" throw ] when
] with-variable t
] [
[ \ add-stuff forget ] with-compilation-unit
] [
f
] cleanup
]] eval( -- ? )
] unit-test ] unit-test
! clean up broken words ! clean up broken words
[[ [[
USING: definitions ; USING: definitions compiler.units ;
IN: help.lint.coverage.tests.private IN: help.lint.coverage.tests.private
<< [
\ empty forget \ empty forget
\ nonexistent forget \ nonexistent forget
\ defined forget \ defined forget
>> ] with-compilation-unit
]] eval( -- ) ]] eval( -- )