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

test-coverage-recursively: remove private and tests vocabs 

private vocabs are already covered when testing the main vocab.
test vocabs don't need coverage.
db4
Jon Harper 2014-06-09 16:04:15 +02:00 committed by John Benediktsson
parent bf473ec943
commit 485932eff1
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -127,8 +127,12 @@ PRIVATE>
] call
] bi ;
: coverage-vocab? ( vocab -- ? )
{ [ ".private" tail? ] [ ".tests" tail? ] } 1|| not ;
: test-coverage-recursively ( prefix -- assoc )
child-vocabs [ dup test-coverage ] { } map>assoc ;
child-vocabs [ coverage-vocab? ] filter
[ dup test-coverage ] { } map>assoc ;
: %coverage ( string -- x )
[ test-coverage values concat length ]