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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/tools/coverage/coverage.factor
View File

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