Re: tcltest Tk Applications

I just found a fix for the problem that I addressed in the previous
posting. See the code inside "setupScript" in the test script below.

Greetings,

Erik Leunissen
==============

package require tcltest 2.2
namespace import -force tcltest::*
tcltest::configure -verbose {body pass error}

set setupScript {
        interp create slave
        # But this does help:
        slave alias puts puts; # <------- FIX
}
set cleanupScript {
        interp delete slave
}

test errorOutput-1.1 {writes to stderr from main interp} -body {
        puts stderr "Do you read stderr (master)?"
} -errorOutput "Do you read stderr (master)?\n" \
                -result ""

test errorOutput-1.2 {writes to stderr from slave interp} -body {
        slave eval [list puts stderr "Do you read stderr (slave)?"]
} -errorOutput "Do you read stderr (slave)?\n" \
                -result "" -setup $setupScript -cleanup $cleanupScript

-- 
   leunissen@       nl | Merge the left part of these two lines into one,
e.          hccnet.   | respecting a character's position in a line.