Changeset 2074 for trunk/tester


Ignore:
Timestamp:
Jan 28, 2011 9:31:45 AM (13 years ago)
Author:
braffert
Message:

regression tester: fixes for input/output trees

Location:
trunk/tester
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/tester/test.tcl

    r2068 r2074  
    126126            set val [$_testobj get $fullpath.current]
    127127            if {$val != ""} {
    128                 lappend retval $fullpath $val
     128                lappend retval [list $fullpath $val]
    129129            }
    130130        }
    131         append retval [getInputs $fullpath]
     131        append retval " [getInputs $fullpath]"
    132132    }
    133133    return $retval
     
    176176                }
    177177            }
    178             lappend retval $fullpath $status
     178            lappend retval [list $fullpath $status]
    179179        }
    180180        append retval " [getOutputs $fullpath]"
  • trunk/tester/tester.tcl

    r2068 r2074  
    109109
    110110# TODO: Handle resizing better
    111 # TODO: Fix error that occurs only when you click and hold on a test
    112 #       while the right hand side is empty.  Adding lastsel check
    113 #       removed the error, but tree selection still acts strange when
    114 #       holding down the mouse button.  selectionHandler actually gets
    115 #       invoked twice, somehow leading to an event dispatch error.
    116 #       If selectionHandler does NOT reconfigure the right side with the
    117 #       selected test, then no error occurs.
    118111
    119112# ----------------------------------------------------------------------
  • trunk/tester/testview.tcl

    r2055 r2074  
    145145            }
    146146        } else {
    147             showStatus "Test has not yet ran."
     147            showStatus "Test has not yet run."
    148148        }
    149149        updateResults
     
    239239    if {$test != ""} {
    240240        $itk_component(tabs) tab configure "Inputs" -state normal
    241         foreach {path val} [$test getInputs] {
     241        foreach pair [$test getInputs] {
     242            set path [lindex $pair 0]
     243            set val [lindex $pair 1]
    242244            $itk_component(inputs) insert end $path -data [list Value $val]
    243245        }
     
    261263    if {$test != "" && [$test hasRan] && [$test getResult] != "Error"} {
    262264        $itk_component(tabs) tab configure "Outputs" -state normal
    263         foreach {path status} [$test getOutputs] {
     265        foreach pair [$test getOutputs] {
     266            set path [lindex $pair 0]
     267            set status [lindex $pair 1]
    264268            $itk_component(outputs) insert end $path -data [list Status $status]
    265269        }
Note: See TracChangeset for help on using the changeset viewer.