Changeset 2074 for trunk/tester/testview.tcl

Timestamp:

Jan 28, 2011 9:31:45 AM (13 years ago)

Author:

braffert

Message:

regression tester: fixes for input/output trees

File:

• trunk/tester/testview.tcl (modified) (3 diffs)

trunk/tester/testview.tcl

@@ -145 +145 @@
             }
         } else {
-            showStatus "Test has not yet ran."
+            showStatus "Test has not yet run."
         }
         updateResults
@@ -239 +239 @@
     if {$test != ""} {
         $itk_component(tabs) tab configure "Inputs" -state normal
-        foreach {path val} [$test getInputs] {
+        foreach pair [$test getInputs] {
+            set path [lindex $pair 0]
+            set val [lindex $pair 1]
             $itk_component(inputs) insert end $path -data [list Value $val]
         }
@@ -261 +263 @@
     if {$test != "" && [$test hasRan] && [$test getResult] != "Error"} {
         $itk_component(tabs) tab configure "Outputs" -state normal
-        foreach {path status} [$test getOutputs] {
+        foreach pair [$test getOutputs] {
+            set path [lindex $pair 0]
+            set status [lindex $pair 1]
             $itk_component(outputs) insert end $path -data [list Status $status]
         }