(present-coverage) ( coverage-report -- )

Vocabulary

help.lint.coverage.private

Inputs

coverage-report

an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: help.lint.coverage.private

: (present-coverage) ( coverage-report -- )
    [ V{ } clone ] dip
    [ word-name>> (assemble-word-metadata) ] keep
    dup 100%-coverage?>>
    [ (assemble-full-coverage) ] [
        [ (assemble-empty-examples) ]
        [ (assemble-omitted-sections) ] bi
    ] if "\n" over push write-object-seq ;