Changeset 2055 for trunk/tester/test.tcl

Timestamp:

Jan 19, 2011, 7:49:28 PM (14 years ago)

Author:

braffert

Message:

Regression tester: cleaning up and adding comments

File:

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

trunk/tester/test.tcl

@@ -115 +115 @@
 # USAGE: getInputs
 #
-# TODO
+# Returns a list of key value pairs for all inputs given in the test xml.
+# Each key is the path to the input element, and each key is its current
+# value. 
 # -----------------------------------------------------------------------
 itcl::body Rappture::Tester::Test::getInputs {{path input}} {
@@ -149 +151 @@
 # USAGE: getOutputs
 #
-# TODO
+# Returns a list of key value pairs for all outputs in the runfile
+# generated by the last run of the test.  Each key is the path to the
+# element, and each value is its status (ok, diff, added, or missing).
+# Throws an error if the test has not been ran.
 # ----------------------------------------------------------------------
 itcl::body Rappture::Tester::Test::getOutputs {{path output}} {
@@ -158 +163 @@
     foreach child [$_runobj children $path] {
         set fullpath $path.$child
-        if {$fullpath != "output.time" && $fullpath != "output.user" && $fullpath != "output.status"} {
+        if {$fullpath != "output.time" && $fullpath != "output.user" \
+            && $fullpath != "output.status"} {
             if {[lsearch $fullpath [getDiffs]] != -1} {
                 set status diff
             } elseif {[lsearch $fullpath [getAdded]] != -1} {
                 set status added
-            #} elseif {[lsearch $fullpath [getMissing]] != -1} {
-            #    set status missing
             } else {
                 if {[$_runobj get $fullpath] != ""} {