tcltest.test

==== tcltest-2.0 tcltest (verbose default - 'b') FAILED
==== Contents of test case:

    set result [slave msg test.tcl]
    list $result [regexp "Contents of test case" $msg] [regexp a-1.0 $msg]  [regexp c-1.0 $msg]  [regexp "Total.+4.+Passed.+1.+Skipped.+1.+Failed.+2" $msg]

---- Result was:
wrong # args: should be "open fileName ?access? ?permissions?"
---- Result should have been (exact matching):
0 1 0 0 1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-2.0 FAILED


==== tcltest-2.1 tcltest -verbose 'b' FAILED
==== Contents of test case:

    set result [slave msg test.tcl -verbose 'b']
    list $result [regexp "Contents of test case" $msg] [regexp a-1.0 $msg]  [regexp c-1.0 $msg]  [regexp "Total.+4.+Passed.+1.+Skipped.+1.+Failed.+2" $msg]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
0 1 0 0 1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-2.1 FAILED


==== tcltest-2.2 tcltest -verbose 'p' FAILED
==== Contents of test case:

    set result [slave msg test.tcl -verbose 'p']
    list $result [regexp "Contents of test case" $msg] [regexp a-1.0 $msg]  [regexp c-1.0 $msg]  [regexp "Total.+4.+Passed.+1.+Skipped.+1.+Failed.+2" $msg]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
0 0 1 0 1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-2.2 FAILED


==== tcltest-2.3 tcltest -verbose 's' FAILED
==== Contents of test case:

    set result [slave msg test.tcl -verbose 's']
    list $result [regexp "Contents of test case" $msg] [regexp a-1.0 $msg]  [regexp c-1.0 $msg]  [regexp "Total.+4.+Passed.+1.+Skipped.+1.+Failed.+2" $msg]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
0 0 0 1 1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-2.3 FAILED


==== tcltest-2.4 tcltest -verbose 'ps' FAILED
==== Contents of test case:

    set result [slave msg test.tcl -verbose 'ps']
    list $result [regexp "Contents of test case" $msg] [regexp a-1.0 $msg]  [regexp c-1.0 $msg]  [regexp "Total.+4.+Passed.+1.+Skipped.+1.+Failed.+2" $msg]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
0 0 1 1 1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-2.4 FAILED


==== tcltest-2.5 tcltest -verbose 'psb' FAILED
==== Contents of test case:

    set result [slave msg test.tcl -verbose 'psb']
    list $result [regexp "Contents of test case" $msg] [regexp a-1.0 $msg]  [regexp c-1.0 $msg]  [regexp "Total.+4.+Passed.+1.+Skipped.+1.+Failed.+2" $msg]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
0 1 1 1 1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-2.5 FAILED


==== tcltest-2.5a tcltest -verbose 'pass skip body' FAILED
==== Contents of test case:

    set result [slave msg test.tcl -verbose "pass skip body"]
    list $result [regexp "Contents of test case" $msg] [regexp a-1.0 $msg]  [regexp c-1.0 $msg]  [regexp "Total.+4.+Passed.+1.+Skipped.+1.+Failed.+2" $msg]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
0 1 1 1 1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-2.5a FAILED


==== tcltest-2.6 tcltest -verbose 't' FAILED
==== Contents of test case:
set result [slave msg test.tcl -verbose 't']
	list $result $msg
---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (regexp matching):
^0 .*a-1.0 start.*b-1.0 start
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-2.6 FAILED


==== tcltest-2.6a tcltest -verbose 'start' FAILED
==== Contents of test case:
set result [slave msg test.tcl -verbose start]
	list $result $msg
---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (regexp matching):
^0 .*a-1.0 start.*b-1.0 start
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-2.6a FAILED


==== tcltest-2.8 tcltest -verbose 'error' FAILED
==== Contents of test case:
set result [slave msg test.tcl -verbose error]
	list $result $msg
---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (regexp matching):
errorInfo: foo.*errorCode: 9
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-2.8 FAILED


==== tcltest-3.1 tcltest -match 'a*' FAILED
==== Contents of test case:

    set result [slave msg test.tcl -match a* -verbose 'ps']
    list $result [regexp a-1.0 $msg] [regexp b-1.0 $msg] [regexp c-1.0 $msg]  [regexp "Total.+4.+Passed.+1.+Skipped.+3.+Failed.+0" $msg]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
0 1 0 0 1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-3.1 FAILED


==== tcltest-3.2 tcltest -match 'b*' FAILED
==== Contents of test case:

    set result [slave msg test.tcl -match b* -verbose 'ps']
    list $result [regexp a-1.0 $msg] [regexp b-1.0 $msg] [regexp c-1.0 $msg]  [regexp "Total.+4.+Passed.+0.+Skipped.+3.+Failed.+1" $msg]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
0 0 1 0 1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-3.2 FAILED


==== tcltest-3.3 tcltest -match 'c*' FAILED
==== Contents of test case:

    set result [slave msg test.tcl -match c* -verbose 'ps']
    list $result [regexp a-1.0 $msg] [regexp b-1.0 $msg] [regexp c-1.0 $msg]  [regexp "Total.+4.+Passed.+0.+Skipped.+4.+Failed.+0" $msg]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
0 0 0 1 1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-3.3 FAILED


==== tcltest-3.4 tcltest -match 'a* b*' FAILED
==== Contents of test case:

    set result [slave msg test.tcl -match {a* b*} -verbose 'ps']
    list $result [regexp a-1.0 $msg] [regexp b-1.0 $msg] [regexp c-1.0 $msg]  [regexp "Total.+4.+Passed.+1.+Skipped.+2.+Failed.+1" $msg]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
0 1 1 0 1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-3.4 FAILED


==== tcltest-4.1 tcltest -skip 'a*' FAILED
==== Contents of test case:

    set result [slave msg test.tcl -skip a* -verbose 'ps']
    list $result [regexp a-1.0 $msg] [regexp b-1.0 $msg] [regexp c-1.0 $msg]  [regexp "Total.+4.+Passed.+0.+Skipped.+2.+Failed.+1" $msg]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
0 0 1 1 1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-4.1 FAILED


==== tcltest-4.2 tcltest -skip 'b*' FAILED
==== Contents of test case:

    set result [slave msg test.tcl -skip b* -verbose 'ps']
    list $result [regexp a-1.0 $msg] [regexp b-1.0 $msg] [regexp c-1.0 $msg]  [regexp "Total.+4.+Passed.+1.+Skipped.+2.+Failed.+1" $msg]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
0 1 0 1 1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-4.2 FAILED


==== tcltest-4.3 tcltest -skip 'c*' FAILED
==== Contents of test case:

    set result [slave msg test.tcl -skip c* -verbose 'ps']
    list $result [regexp a-1.0 $msg] [regexp b-1.0 $msg] [regexp c-1.0 $msg]  [regexp "Total.+4.+Passed.+1.+Skipped.+1.+Failed.+2" $msg]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
0 1 1 0 1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-4.3 FAILED


==== tcltest-4.4 tcltest -skip 'a* b*' FAILED
==== Contents of test case:

    set result [slave msg test.tcl -skip {a* b*} -verbose 'ps']
    list $result [regexp a-1.0 $msg] [regexp b-1.0 $msg] [regexp c-1.0 $msg]  [regexp "Total.+4.+Passed.+0.+Skipped.+3.+Failed.+1" $msg]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
0 0 0 1 1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-4.4 FAILED


==== tcltest-4.5 tcltest -match 'a* b*' -skip 'b*' FAILED
==== Contents of test case:

    set result [slave msg test.tcl -match {a* b*} -skip b* -verbose 'ps']
    list $result [regexp a-1.0 $msg] [regexp b-1.0 $msg] [regexp c-1.0 $msg]  [regexp "Total.+4.+Passed.+1.+Skipped.+3.+Failed.+0" $msg]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
0 1 0 0 1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-4.5 FAILED


==== tcltest-5.1 tcltest -constraints 'knownBug' FAILED
==== Contents of test case:

    set result [slave msg test.tcl -constraints knownBug -verbose 'ps']
    list $result [regexp a-1.0 $msg] [regexp b-1.0 $msg] [regexp c-1.0 $msg]  [regexp "Total.+4.+Passed.+2.+Skipped.+0.+Failed.+2" $msg]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
0 1 1 1 1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-5.1 FAILED


==== tcltest-5.2 tcltest -constraints 'knownBug' -limitconstraints 1 FAILED
==== Contents of test case:

    set result [slave msg test.tcl -constraints knownBug -verbose 'p' -limitconstraints 1]
    list $result [regexp a-1.0 $msg] [regexp b-1.0 $msg] [regexp c-1.0 $msg]  [regexp "Total.+4.+Passed.+1.+Skipped.+3.+Failed.+0" $msg]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
0 0 0 1 1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-5.2 FAILED


==== tcltest-6.1 tcltest -outfile, -errfile defaults FAILED
==== Contents of test case:
slave msg $printerror
	return $msg
---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (regexp matching):
a test.*a really
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-6.1 FAILED


==== tcltest-6.2 tcltest -outfile a.tmp FAILED
==== Contents of test case:

    slave msg $printerror -outfile a.tmp
    set result1 [catch {exec grep "a test" a.tmp}]
    set result2 [catch {exec grep "a really" a.tmp}]
    list [regexp "a test" $msg] [regexp "a really" $msg]  $result1 $result2 [file exists a.tmp] [file delete a.tmp] 

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
0 1 0 1 1 {}
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-6.2 FAILED


==== tcltest-6.3 tcltest -errfile a.tmp FAILED
==== Contents of test case:

    slave msg $printerror -errfile a.tmp
    set result1 [catch {exec grep "a test" a.tmp}]
    set result2 [catch {exec grep "a really" a.tmp}]
    list [regexp "a test" $msg] [regexp "a really" $msg]  $result1 $result2 [file exists a.tmp] [file delete a.tmp]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
1 0 1 0 1 {}
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-6.3 FAILED


==== tcltest-6.4 tcltest -outfile a.tmp -errfile b.tmp FAILED
==== Contents of test case:

    slave msg printerror.tcl -outfile a.tmp -errfile b.tmp
    set result1 [catch {exec grep "a test" a.tmp}]
    set result2 [catch {exec grep "a really" b.tmp}]
    list [regexp "a test" $msg] [regexp "a really" $msg]  $result1 $result2  [file exists a.tmp] [file delete a.tmp]  [file exists b.tmp] [file delete b.tmp]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
0 0 0 0 1 {} 1 {}
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-6.4 FAILED


==== tcltest-8.1 tcltest a.tcl -tmpdir a FAILED
==== Contents of test case:

    file delete -force thisdirectorydoesnotexist
    slave msg a.tcl -tmpdir thisdirectorydoesnotexist
    list [file exists [file join thisdirectorydoesnotexist a.tmp]]  [file delete -force thisdirectorydoesnotexist] 

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
1 {}
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-8.1 FAILED


==== tcltest-8.2 tcltest a.tcl -tmpdir thisdirectoryisafile FAILED
==== Contents of test case:
slave msg a.tcl -tmpdir thisdirectoryisafile
	set msg
---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (glob matching):
*not a directory*
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-8.2 FAILED


==== tcltest-8.5 tcltest a.tcl -tmpdir normaldirectory FAILED
==== Contents of test case:

    slave msg a.tcl -tmpdir $normaldirectory
    # The join is necessary because the message can be split on multiple lines
    list [file exists [file join $normaldirectory a.tmp]]  [file delete [file join $normaldirectory a.tmp]] 

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
1 {}
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-8.5 FAILED


==== tcltest-8.10 tcltest a.tcl -testdir thisdirectorydoesnotexist FAILED
==== Contents of test case:

    file delete -force thisdirectorydoesnotexist
    slave msg a.tcl -testdir thisdirectorydoesnotexist
    string match "*does not exist*" $msg

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-8.10 FAILED


==== tcltest-8.11 tcltest a.tcl -testdir thisdirectoryisafile FAILED
==== Contents of test case:

    slave msg a.tcl -testdir thisdirectoryisafile
    string match "*not a directory*" $msg 

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-8.11 FAILED


==== tcltest-8.13 tcltest a.tcl -testdir normaldirectory FAILED
==== Contents of test case:

    slave msg a.tcl -testdir $normaldirectory
    # The join is necessary because the message can be split on multiple lines
    list [string first "testdir: $normaldirectory" [join $msg]]  [file exists [file join [temporaryDirectory] a.tmp]]  [file delete [file join [temporaryDirectory] a.tmp]] 

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
0 1 {}
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-8.13 FAILED


==== tcltest-9.1 -file a*.tcl FAILED
==== Contents of test case:

    slave msg [file join [testsDirectory] all.tcl] -file a*.test
    list [regexp assocd\.test $msg]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-9.1 FAILED


==== tcltest-9.2 -file a*.tcl FAILED
==== Contents of test case:

    slave msg [file join [testsDirectory] all.tcl]  -file a*.test -notfile assocd*
    list [regexp assocd\.test $msg]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
0
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-9.2 FAILED


==== tcltest-10.1 -preservecore 0 FAILED
==== Contents of test case:

    slave msg makecore.tcl -preservecore 0
    file delete core
    regexp "Core file produced" $msg

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
0
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-10.1 FAILED


==== tcltest-10.2 -preservecore 1 FAILED
==== Contents of test case:

    slave msg makecore.tcl -preservecore 1
    file delete core
    regexp "Core file produced" $msg

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-10.2 FAILED


==== tcltest-10.3 -preservecore 2 FAILED
==== Contents of test case:

    slave msg makecore.tcl -preservecore 2
    file delete core
    list [regexp "Core file produced" $msg] [regexp "Moving file to" $msg]  [regexp "core-" $msg] [file delete core-makecore]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
1 1 1 {}
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-10.3 FAILED


==== tcltest-10.4 -preservecore 3 FAILED
==== Contents of test case:

    slave msg makecore.tcl -preservecore 3
    file delete core
    list [regexp "Core file produced" $msg] [regexp "Moving file to" $msg]  [regexp "core-" $msg] [file delete core-makecore]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
1 1 1 {}
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-10.4 FAILED


==== tcltest-12.1 -load xxx FAILED
==== Contents of test case:

    slave msg load.tcl -load xxx
    set msg

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
xxx
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-12.1 FAILED


==== tcltest-14.1 -singleproc - single process FAILED
==== Contents of test case:
slave msg $allfile -singleproc 0 -tmpdir [temporaryDirectory]
	set msg
---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (regexp matching):
Test file error: can't unset .foo.: no such variable
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-14.1 FAILED


==== tcltest-14.2 -singleproc - multiple process FAILED
==== Contents of test case:
slave msg $allfile -singleproc 1 -tmpdir [temporaryDirectory]
	set msg
---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (regexp matching):
single1.test.*single2.test.*all\-single.tcl:.*Total.*0.*Passed.*0.*Skipped.*0.*Failed.*0
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-14.2 FAILED


==== tcltest-15.1 basic directory walking FAILED
==== Contents of test case:
if {[slave msg  [file join [temporaryDirectory] dirtestdir all.tcl]  -tmpdir [temporaryDirectory]] == 1} {
	    error $msg
	}
---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (regexp matching):
Tests located in:.*dirtestdir.*Tests located in:.*dirtestdir2.1.*Tests located in:.*dirtestdir2.2.*Tests located in:.*dirtestdir2.3
==== tcltest-15.1 FAILED


==== tcltest-15.2 -asidefromdir FAILED
==== Contents of test case:
if {[slave msg  [file join [temporaryDirectory] dirtestdir all.tcl]  -asidefromdir dirtestdir2.3  -tmpdir [temporaryDirectory]] == 1} {
	    error $msg
	}
---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (regexp matching):
Tests located in:.*dirtestdir.*Tests located in:.*dirtestdir2.1.*Tests located in:.*dirtestdir2.2.*dirtestdir2.2 test ended at .*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Error:  No test files remain after applying your match and skip patterns!
Error:  No test files remain after applying your match and skip patterns!
Error:  No test files remain after applying your match and skip patterns!$
==== tcltest-15.2 FAILED


==== tcltest-15.4 -relateddir, subdir FAILED
==== Contents of test case:
if {[slave msg  [file join [temporaryDirectory] dirtestdir all.tcl]  -relateddir dirtestdir2.1 -tmpdir [temporaryDirectory]] == 1} {
	    error $msg
	}
---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (regexp matching):
Tests located in:.*dirtestdir2.[^23]
==== tcltest-15.4 FAILED


==== tcltest-15.5 -relateddir, -asidefromdir FAILED
==== Contents of test case:
if {[slave msg  [file join [temporaryDirectory] dirtestdir all.tcl]  -relateddir "dirtestdir2.1 dirtestdir2.2"  -asidefromdir dirtestdir2.2  -tmpdir [temporaryDirectory]] == 1} {
	    error $msg
	}
---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (regexp matching):
Tests located in:.*dirtestdir2.[^23]
==== tcltest-15.5 FAILED


==== tcltest-20.1 PrintError FAILED
==== Contents of test case:

    set result [slave msg printerror.tcl]
    list $result [regexp "Error:  a really short string" $msg]  [regexp "     \"quotes\"" $msg] [regexp "    \"Path" $msg]  [regexp "    \"Really" $msg] [regexp Problem $msg]

---- Result was:
interpreter named "::tcltest::test::i" already exists, cannot create
---- Result should have been (exact matching):
1 1 1 1 1 1
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== tcltest-20.1 FAILED

