::xounit
Class TestFailuresWebFormatter

Heritage:
::xotcl::Object
  |
  +--::xounit::TestResultsTextFormatter
        |
        +--::xounit::TestResultsWebFormatter
Class TestFailuresWebFormatter
superclass ::xounit::TestResultsWebFormatter,
Format test failures and errors for display on a web page.
Variables
NameDefault ValueClassComment
apiDoc  http://xotcllib.sourceforge.net/xodoc/  ::xounit::TestResultsWebFormatter
 url to API documentation
location    ::xounit::TestResultsWebFormatter
 location to write html file to
styleSheet  style.css  ::xounit::TestResultsWebFormatter
 CSS stylesheet to use in html file
textFormatter    ::xounit::TestResultsWebFormatter
 text formatter to use
title    ::xounit::TestResultsWebFormatter
 title to use in html file
url    ::xounit::TestResultsWebFormatter
 url to more project information
webPath    ::xounit::TestResultsWebFormatter
 url where html file will be served
 
Methods
NameComment
formatWebResults {results}   Format a list of results for viewing on the web
   
Methods from ::xounit::TestResultsWebFormatter
barGraph, cleanUpData, cleanUpLink, formatClassMethodsInError, formatObjectClassMethodLine, formatResults, formatWebResults, init, makeClassLink, makeClassMethodLink, organizeResults, passed, printError, printFailure, printPass, printPasses, printResult, printSubResult, rssItem, testSummary, writeWebResults,
   
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

formatWebResults

Description:
 Format a list of results for viewing on the web.
Arguments:
Overrides:
formatWebResults in ::xounit::TestResultsWebFormatter
Code:
  ::xounit::TestFailuresWebFormatter instproc formatWebResults {results}  {
   

        set results [ lsort -command "[ self ] organizeResults" $results ]

        foreach result $results {

            puts "[ $result name ]"
        }

        set buffer ""

        append buffer [ my testSummary $results ]

        foreach result $results {

            if [ $result passed ] { continue }
            append buffer [ my printResult $result ]
        }

        return $buffer
    
}