Changeset 1977 for trunk/tester


Ignore:
Timestamp:
Dec 7, 2010 1:15:01 PM (9 years ago)
Author:
braffert
Message:

Developing regression tester

Location:
trunk/tester
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • trunk/tester/compare.tcl

    r1968 r1977  
    1313
    1414# ----------------------------------------------------------------------
    15 # USAGE: compare_elements lib1 lib2 path
     15# USAGE: compare_elements <lib1> <lib2> <path>
    1616#
    1717# Compare data found in two library objects at the given path.  Returns
     
    2727
    2828# ----------------------------------------------------------------------
    29 # USAGE: compare lib1 lib2 ?path?
     29# USAGE: compare <lib1> <lib2> ?path?
    3030#
    3131# Compares two library objects and returns a list of paths that do not
     
    5353
    5454# ----------------------------------------------------------------------
    55 # USAGE: makeDriver tool.xml test.xml
     55# USAGE: makeDriver <tool.xml> <test.xml>
    5656#
    5757# Builds and returns a driver library object to be used for running the
     
    7171
    7272# ----------------------------------------------------------------------
    73 # USAGE: merge toolobj golden driver ?path?
     73# USAGE: merge <toolobj> <golden> <driver> ?path?
    7474#
    7575# Used to recursively build up a driver library object for running a
  • trunk/tester/mainwin.tcl

    r1968 r1977  
    155155    # Data array is empty for branch nodes
    156156    if {[array names data] != ""} {
     157        if {$data(testxml) != ""} {
     158            $itk_component(view) showTest $data(testxml)
     159        } else {
     160            $itk_component(view) clearTest
     161        }
    157162        if {$data(ran)} {
    158163            switch $data(result) {
     
    162167            }
    163168            if {$data(runfile) != ""} {
    164                 $itk_component(view) display $data(runfile) $data(testxml)
     169                $itk_component(view) showResult $data(runfile)
    165170            } else {
    166                 $itk_component(view) clear
     171                $itk_component(view) clearResult
    167172            }
    168173        } else {
    169174            $itk_component(view) showText "Test has not ben ran."
    170             $itk_component(view) clear
     175            $itk_component(view) clearResult
    171176        }
    172177    } else {
  • trunk/tester/tclIndex

    r1968 r1977  
    1818set auto_index(::Rappture::Tester::merge) [list source [file join $dir compare.tcl]]
    1919set auto_index(::Rappture::Tester::TestAnalyzer) [list source [file join $dir testanalyzer.tcl]]
     20set auto_index(::Rappture::Tester::TestAnalyzer::constructor) [list source [file join $dir testanalyzer.tcl]]
     21set auto_index(::Rappture::Tester::TestAnalyzer::display) [list source [file join $dir testanalyzer.tcl]]
    2022set auto_index(::Rappture::Tester::TestTree) [list source [file join $dir testtree.tcl]]
    2123set auto_index(::Rappture::Tester::TestTree::constructor) [list source [file join $dir testtree.tcl]]
     
    3032set auto_index(::Rappture::Tester::TestView) [list source [file join $dir testview.tcl]]
    3133set auto_index(::Rappture::Tester::TestView::constructor) [list source [file join $dir testview.tcl]]
     34set auto_index(::Rappture::Tester::TestView::clear) [list source [file join $dir testview.tcl]]
    3235set auto_index(::Rappture::Tester::TestView::display) [list source [file join $dir testview.tcl]]
     36set auto_index(::Rappture::Tester::TestView::showResult) [list source [file join $dir testview.tcl]]
    3337set auto_index(::Rappture::Tester::TestView::showDefault) [list source [file join $dir testview.tcl]]
    3438set auto_index(::Rappture::Tester::TestView::showText) [list source [file join $dir testview.tcl]]
  • trunk/tester/testtree.tcl

    r1968 r1977  
    196196
    197197# ----------------------------------------------------------------------
    198 # USAGE: getData id
     198# USAGE: getData <id>
    199199#
    200200# Returns a list of key-value pairs representing the column data stored
     
    206206
    207207# ----------------------------------------------------------------------
    208 # USAGE: setData id data
     208# USAGE: setData <id> <data>
    209209#
    210210# Accepts a node id and a list of key-value pairs.  Stored the list as
  • trunk/tester/testview.tcl

    r1968 r1977  
    2626    inherit itk::Widget
    2727
    28     public method clear {}
    29     public method display {runfile testxml}
     28    public method clearTest {}
     29    public method clearResult {}
     30    public method showTest {testxml}
     31    public method showResult {runfile}
    3032    public method showDefault {}
    3133    public method showText {text}
     
    6365}
    6466
    65 itcl::body Rappture::Tester::TestView::clear {} {
     67itcl::body Rappture::Tester::TestView::clearTest {} {
    6668    $itk_component(analyzer1) clear
     69}
     70
     71itcl::body Rappture::Tester::TestView::clearResult {} {
    6772    $itk_component(analyzer2) clear
    6873}
    6974
    70 itcl::body Rappture::Tester::TestView::display {runfile testxml} {
    71     $itk_component(analyzer1) display $runfile
    72     $itk_component(analyzer2) display $testxml
     75itcl::body Rappture::Tester::TestView::showTest {testxml} {
     76    $itk_component(analyzer1) display $testxml
     77}
     78
     79itcl::body Rappture::Tester::TestView::showResult {runfile} {
     80    $itk_component(analyzer2) display $runfile
    7381}
    7482
     
    7886    $itk_component(txt) insert end "Default"
    7987    $itk_component(txt) configure -state disabled
    80     clear
     88    clearTest
     89    clearResult
    8190}
    8291
Note: See TracChangeset for help on using the changeset viewer.