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

Document some words, move words around to be private

db4
Doug Coleman 2011-08-27 12:52:01 -05:00
parent 472fe7fa4b
commit 87e64b3a59
2 changed files with 37 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
basis/tools/coverage/coverage-docs.factor
View File

@ -1,6 +1,7 @@
! Copyright (C) 2011 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: help.markup help.syntax kernel sequences ;
USING: alien.c-types help.markup help.syntax kernel quotations
sequences strings ;
IN: tools.coverage
HELP: <coverage>
@ -10,6 +11,19 @@ HELP: <coverage>
}
{ $description "Makes a coverage tuple. Users should not call this directly." } ;
HELP: each-word
{ $values
{ "string" string } { "quot" quotation }
}
{ $description "Calls a quotation on every word in the vocabulary and its private vocabulary, if there is one." } ;
HELP: map-word
{ $values
{ "string" string } { "quot" quotation }
{ "seq" sequence }
}
{ $description "Calls a quotation on every word in the vocabulary and its private vocabulary, if there is one, and collects the results." } ;
HELP: coverage
{ $values
{ "object" object }
@ -41,11 +55,20 @@ HELP: coverage.
}
{ $description "Calls the coverage word on all the words in a vocabalary or on a single word and prints out a report." } ;
HELP: %coverage
{ $values
{ "object" object }
{ "x" double }
}
{ $description "Returns a fraction representing the number of quotations called compared to the number of quotations that exist in a vocabulary or word." } ;
ARTICLE: "tools.coverage" "Coverage tool"
"The " { $vocab-link "tools.coverage" } " vocabulary is a tool for testing code coverage. The implementation uses " { $vocab-link "tools.annotations" } " to place a coverage object at the beginning of every quotation. When the quotation executes, a slot on the coverage object is set to true. By examining the coverage objects after running the code for some time, one can see which of the quotations did not execute and write more tests or refactor the code." $nl
"Enabling/disabling coverage:"
{ $subsections coverage-on coverage-off toggle-coverage }
"Examining coverage data:"
{ $subsections coverage coverage. } ;
{ $subsections coverage coverage. %coverage }
"Combinators for iterating over words in a vocabulary:"
{ $subsections each-word map-word } ;
ABOUT: "tools.coverage"

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

@ -1,7 +1,8 @@
! Copyright (C) 2011 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs fry kernel quotations sequences strings
tools.annotations vocabs words prettyprint io splitting ;
USING: accessors assocs fry io kernel math prettyprint
quotations sequences sequences.deep splitting strings
tools.annotations vocabs words ;
IN: tools.coverage
TUPLE: coverage < identity-tuple executed? ;
@ -17,6 +18,8 @@ GENERIC: coverage-off ( object -- )
: private-vocab-name ( string -- string' )
".private" ?tail drop ".private" append ;
PRIVATE>
: each-word ( string quot -- )
over ".private" tail? [
[ words ] dip each
@ -33,8 +36,6 @@ GENERIC: coverage-off ( object -- )
[ [ words ] dip map ] 2bi append
] if ; inline
PRIVATE>
M: string coverage-on
[ coverage-on ] each-word ;
@ -85,6 +86,8 @@ M: word coverage.
[ [ bl bl bl bl . ] each ] bi*
] if-empty ;
<PRIVATE
GENERIC: count-callables ( object -- n )
M: string count-callables
@ -93,11 +96,13 @@ M: string count-callables
M: word count-callables
def>> [ callable? ] deep-filter length ;
GENERIC: %coverage ( object -- x )
: calculate-%coverage ( object quot -- x )
[ count-callables ] bi [ swap - ] keep /f ; inline
PRIVATE>
GENERIC: %coverage ( object -- x )
M: string %coverage
[ coverage values concat length ] calculate-%coverage ;