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.

2014-03-11 21:20:34 -05:00 · 2014-03-11 21:20:34 -05:00 · c6fd2da67f
parent 0a2e632d4c
commit c6fd2da67f
1 changed files with 6 additions and 0 deletions
--- a/basis/tools/coverage/coverage.factor
+++ b/basis/tools/coverage/coverage.factor
@ -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