Re: seeking tcltest help.

On Fri, 19 Aug 2005 ostrove@xxxxxxxxx wrote:

  Thanks.  It does almost what I want.  It works when the test passes,
but doesn't give a useful error message when it fails.


How about this version of gizmo?

proc gizmo {expectedVar actual} {
    set expected [set $expectedVar]
    if {[llength $expected] != [llength $actual]} then {
        error [list Actual $actual != expected $expected]
    }

    foreach x $expected y $actual {
        if {![string equal $x $y]} then {
            error [list Actual $actual != expected $expected]
        }
    }

    return 1
}

Michael
.