Overview  Namespace   Class 
SUMMARY: CHILDREN | PARAMETER | INSTPROC | INSTFILTER | INSTFORWARD DETAIL: | INSTPROC

::xounit::test
Class TestTestResultsWebFormatter

Heritage:
::xotcl::Object
  |
  +--::xox::Node
        |
        +--::xounit::Test
              |
              +--::xounit::Assert
                    |
                    +--::xounit::TestCase
                          |
                          +--::xounit::test::TestTestResultsTextFormatter
Tested Class:
::xounit::TestResultsWebFormatter
Class TestTestResultsWebFormatter
superclass ::xounit::test::TestTestResultsTextFormatter,
Variables
NameDefault ValueClassComment
currentTestMethod    ::xounit::TestCase 
 name of the currently running test method.
nodeName    ::xox::Node 
 
result    ::xounit::TestCase 
 the result for the current run.
 
Methods
NameComment
test {}  
testInit {}  
   
Methods from ::xotcl::Object
#, ., ?, ?code, ?methods, ?object, abstract, copy, coverageFilter, defaultmethod, extractConfigureArg, filterappend, garbageCollect, get#, getClean#, hasclass, init, methodTag, mixinappend, move, profileFilter, self, setParameterDefaults, shell, tclcmd, traceFilter,
 
Instproc Detail

test

Description:
Overrides:
test in ::xounit::test::TestTestResultsTextFormatter
Code: 
  ::xounit::test::TestTestResultsWebFormatter instproc test {}  {
   

        my instvar testResults

        my assert [ info exists testResults ] 1
        set formatter [ ::xounit::TestResultsWebFormatter new ]
        $formatter printResults $testResults

        return
    
}

testInit

Description:
Code: 
  ::xounit::test::TestTestResultsWebFormatter instproc testInit {}  {
   

        set formatter [ ::xounit::TestResultsWebFormatter new ]

        set line "    ::xotcl::__#Ex ::xounit::TestCase->run"

        set object [ lindex $line 0 ]
        set classMethod [ lindex $line 1 ]

        set class [ lindex [ split $classMethod "->" ] 0 ]
        set method [ lindex [ split $classMethod "->" ] 2 ]
        
        my assertEquals $object ::xotcl::__#Ex
        my assertEquals $classMethod ::xounit::TestCase->run
        my assertEquals $class ::xounit::TestCase
        my assertEquals $method run 

        set line [ $formatter formatObjectClassMethodLine $line ]

        my assertEquals $line "    ::xotcl::__#Ex <a href=\"http://xotcllib.sourceforge.net/xodoc/_xounit_TestCase.html#run\">::xounit::TestCase-&gt;run </a>\n"
    
}