::xounit
Class RunDocCoverage

::xotcl::Object
  |
  +--::xox::Node
        |
        +--::xounit::Test
              |
              +--::xounit::Assert
                    |
                    +--::xounit::TestCase
                          |
                          +--::xounit::Application

Class RunDocCoverage

superclass ::xounit::Application,

An application that reports the documentation
 coverage for all methods, parameters, and classes
 in a set of packages.

 name of the currently running test method.

 test results formatter used to display results of application

 the name of the Application

 packages to report on

 limit the documentation report to methods that start with these prefixes

 the result for the current run.

 failures, errors, and passes from Application execution

init

Description:

 Initializes and runs the application with the
 list of packages provided on the command line.

Arguments:

• args

Overrides:

init in ::xotcl::Object

Code:

  ::xounit::RunDocCoverage instproc init {args}  {
   

        my set packages $args
        my runApplication runTestApplication 
    
}

---

runTestApplication

Description:

 Main method of the RunDocCoverage application.
 Loads packages. Uses introspection to find
 all classes, methods, and parameters that
 do or do not have documentation.

Code:

  ::xounit::RunDocCoverage instproc runTestApplication {}  {
   

        my instvar packages prefixes

        set aRunner [ ::xounit::TestRunner new ]

        set reporter [ ::xounit::DocumentationCoverageReport new ]
        $reporter clear
        if [ my exists prefixes ] {
            $reporter prefixes $prefixes
        }
        foreach package $packages {

            package require "${package}"
            puts "Loaded ${package}"
        }
        $reporter reportPackages $packages
        $reporter reportSummary 
    
}

---