tools.coverage: Add a ``test-coverage-recursively`` word. Not all vocabs can be tested for unit test coverage, so don't make this the default. Fixes #1013.

db4
Doug Coleman 2014-03-11 21:20:34 -05:00
parent 0a2e632d4c
commit c6fd2da67f
1 changed files with 6 additions and 0 deletions

View File

@ -127,6 +127,12 @@ PRIVATE>
] call
] bi ;
: test-coverage-recursively ( vocab -- assoc )
child-vocabs [
dup test-coverage
] { } map>assoc ;
: %coverage ( string -- x )
[ test-coverage values concat length ]
[ count-callables ] bi [ swap - ] keep /f ; inline