Tcl Source Code

Artifact 0ddf366b4f24474a2f556897fbffab4d06916162:

	set TCL_LIBRARY=../library
	.\Release\tcltest.exe ../tests/all.tcl
Tests running in interp:  C:/LOCALCVS/tcl/tcl/win/Release/tcltest.exe
Tests located in:  C:/LOCALCVS/tcl/tcl/tests
Tests running in:  C:/LOCALCVS/tcl/tcl/win
Temporary files stored in C:/LOCALCVS/tcl/tcl/win
Test files run in separate interpreters
Only running test files that match:  *.test
Tests began at Wed Aug 22 22:21:14 Westeuropäische Sommerzeit 2001

tcltest.test

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

    catch {exec $::tcltest::tcltest printerror.tcl -outfile a.tmp} msg
    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:
0 1 1 1 1 {}
---- Result should have been (exact matching):
0 1 0 1 1 {}
==== tcltest-6.2 FAILED


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

    catch {exec $::tcltest::tcltest printerror.tcl -errfile a.tmp} msg
    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:
1 0 1 1 1 {}
---- Result should have been (exact matching):
1 0 1 0 1 {}
==== tcltest-6.3 FAILED


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

    catch {exec $::tcltest::tcltest printerror.tcl -outfile a.tmp -errfile b.tmp} msg
    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:
0 0 1 1 1 {} 1 {}
---- Result should have been (exact matching):
0 0 0 0 1 {} 1 {}
==== tcltest-6.4 FAILED

winFCmd.test

==== winFCmd-2.8 TclpCopyFile: errno: EACCES FAILED
==== Contents of test case:

    cleanup
    list [catch {testfile cp nul tf1} msg] $msg

---- Result was:
1 EINVAL
---- Result should have been (exact matching):
1 EACCES
==== winFCmd-2.8 FAILED


==== winFCmd-6.11 TclpRemoveDirectory: attr == -1 FAILED
==== Contents of test case:

    cleanup
    list [catch {testfile rmdir /} msg] $msg

---- Result was:
1 {\ EEXIST}
---- Result should have been (exact matching):
1 {\ EACCES}
==== winFCmd-6.11 FAILED


==== winFCmd-7.9 TraverseWinTree: append \ to source if necessary FAILED
==== Contents of test case:

    list [catch {testfile rmdir $cdrom/} msg] $msg

---- Result was:
1 {e:\ EIO}
---- Result should have been (exact matching):
1 {e:\ EACCES}
==== winFCmd-7.9 FAILED