Attachment "tcltest.errs" to
ticket [678415ffff]
added by
kennykb
2003-02-01 04:52:33.
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
