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.
parent
0a2e632d4c
commit
c6fd2da67f
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue