Changeset 2055 for trunk/tester/test.tcl


Ignore:
Timestamp:
Jan 19, 2011 7:49:28 PM (13 years ago)
Author:
braffert
Message:

Regression tester: cleaning up and adding comments

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tester/test.tcl

    r2053 r2055  
    115115# USAGE: getInputs
    116116#
    117 # TODO
     117# Returns a list of key value pairs for all inputs given in the test xml.
     118# Each key is the path to the input element, and each key is its current
     119# value.
    118120# -----------------------------------------------------------------------
    119121itcl::body Rappture::Tester::Test::getInputs {{path input}} {
     
    149151# USAGE: getOutputs
    150152#
    151 # TODO
     153# Returns a list of key value pairs for all outputs in the runfile
     154# generated by the last run of the test.  Each key is the path to the
     155# element, and each value is its status (ok, diff, added, or missing).
     156# Throws an error if the test has not been ran.
    152157# ----------------------------------------------------------------------
    153158itcl::body Rappture::Tester::Test::getOutputs {{path output}} {
     
    158163    foreach child [$_runobj children $path] {
    159164        set fullpath $path.$child
    160         if {$fullpath != "output.time" && $fullpath != "output.user" && $fullpath != "output.status"} {
     165        if {$fullpath != "output.time" && $fullpath != "output.user" \
     166            && $fullpath != "output.status"} {
    161167            if {[lsearch $fullpath [getDiffs]] != -1} {
    162168                set status diff
    163169            } elseif {[lsearch $fullpath [getAdded]] != -1} {
    164170                set status added
    165             #} elseif {[lsearch $fullpath [getMissing]] != -1} {
    166             #    set status missing
    167171            } else {
    168172                if {[$_runobj get $fullpath] != ""} {
Note: See TracChangeset for help on using the changeset viewer.