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

tools.coverage: change test-coverage to not test recursively.

db4
John Benediktsson 2014-06-03 18:11:26 -07:00
parent a4aa9a9688
commit 27c86672eb
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,10 +1,10 @@
! Copyright (C) 2011 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs fry io kernel math prettyprint
quotations sequences sequences.deep splitting strings
tools.annotations vocabs words arrays words.symbol
combinators.short-circuit namespaces tools.test
combinators continuations classes ;
USING: accessors arrays assocs classes combinators
combinators.short-circuit continuations fry io kernel math
namespaces prettyprint quotations sequences sequences.deep
splitting strings tools.annotations tools.test
tools.test.private vocabs words words.symbol ;
IN: tools.coverage
TUPLE: coverage-state < identity-tuple executed? ;
@ -121,17 +121,14 @@ PRIVATE>
dup '[
[
_
[ coverage-on test coverage-off ]
[ coverage-on test-vocab coverage-off ]
[ coverage ] bi
] [ _ remove-coverage ] [ ] cleanup
] call
] bi ;
: test-coverage-recursively ( vocab -- assoc )
child-vocabs [
dup test-coverage
] { } map>assoc ;
: test-coverage-recursively ( prefix -- assoc )
child-vocabs [ dup test-coverage ] { } map>assoc ;
: %coverage ( string -- x )
[ test-coverage values concat length ]