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

tools.coverage: Rename

db4
Doug Coleman 2013-03-24 10:06:50 -07:00
parent dc1adc942b
commit 2f11e06dec
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7,9 +7,9 @@ combinators.short-circuit namespaces tools.test
combinators continuations classes ; combinators continuations classes ;
IN: tools.coverage IN: tools.coverage
TUPLE: coverage < identity-tuple executed? ; TUPLE: coverage-state < identity-tuple executed? ;
C: <coverage> coverage C: <coverage-state> coverage-state
SYMBOL: covered SYMBOL: covered
@ -61,7 +61,7 @@ M: string remove-coverage
M: word add-coverage M: word add-coverage
H{ } clone [ "coverage" set-word-prop ] 2keep H{ } clone [ "coverage" set-word-prop ] 2keep
'[ '[
\ coverage new [ _ set-at ] 2keep \ coverage-state new [ _ set-at ] 2keep
'[ _ flag-covered ] prepend '[ _ flag-covered ] prepend
] deep-annotate ; ] deep-annotate ;
@ -72,7 +72,7 @@ M: string reset-coverage
[ reset-coverage ] each-word ; [ reset-coverage ] each-word ;
M: word reset-coverage M: word reset-coverage
[ dup coverage? [ f >>executed? ] when drop ] each-word ; [ dup coverage-state? [ f >>executed? ] when drop ] each-word ;
GENERIC: coverage ( object -- seq ) GENERIC: coverage ( object -- seq )