From c6fd2da67fa9778810b6b4eecc11675d79792c6e Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 11 Mar 2014 21:20:34 -0500
Subject: [PATCH] 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.

---
 basis/tools/coverage/coverage.factor | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/basis/tools/coverage/coverage.factor b/basis/tools/coverage/coverage.factor
index 1d3dadd972..610c0a1d66 100644
--- 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