From 485932eff15b42f0f07c6848547ba3a2f977438b Mon Sep 17 00:00:00 2001 From: Jon Harper Date: Mon, 9 Jun 2014 16:04:15 +0200 Subject: [PATCH] test-coverage-recursively: remove private and tests vocabs private vocabs are already covered when testing the main vocab. test vocabs don't need coverage. --- basis/tools/coverage/coverage.factor | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/basis/tools/coverage/coverage.factor b/basis/tools/coverage/coverage.factor index c7783914a6..cf9079d165 100644 --- a/basis/tools/coverage/coverage.factor +++ b/basis/tools/coverage/coverage.factor @@ -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 ]