Tcl Source Code

Artifact [a79c70e3df]
Login

Artifact a79c70e3df905061892cdf34cb54d68606e2c468:

Attachment "test.out" to ticket [1852661fff] added by mpc_janssen 2007-12-18 03:56:29.
gcc -c -O2 -fomit-frame-pointer -Wall  -I"./../generic" -DTCL_TOMMATH -DMP_PREC=4 -I"./../libtommath" -I"." -DPACKAGE_NAME=\"\" -DPACKAGE_TARNAME=\"\" -DPACKAGE_VERSION=\"\" -DPACKAGE_STRING=\"\" -DPACKAGE_BUGREPORT=\"\" -DHAVE_NO_SEH=1 -DEXCEPTION_DISPOSITION=int -DHAVE_WINNT_IGNORE_VOID=1 -DHAVE_ALLOCA_GCC_INLINE=1 -DHAVE_CAST_TO_UNION=1 -DTCL_THREADS=1 -DUSE_THREAD_ALLOC=1 -DTCL_CFGVAL_ENCODING=\"cp1252\" -DTCL_CFG_OPTIMIZED=1 -DTCL_CFG_DEBUG=1   "./../generic/tclTest.c" -o tclTest.o
gcc -c -O2 -fomit-frame-pointer -Wall  -I"./../generic" -DTCL_TOMMATH -DMP_PREC=4 -I"./../libtommath" -I"." -DPACKAGE_NAME=\"\" -DPACKAGE_TARNAME=\"\" -DPACKAGE_VERSION=\"\" -DPACKAGE_STRING=\"\" -DPACKAGE_BUGREPORT=\"\" -DHAVE_NO_SEH=1 -DEXCEPTION_DISPOSITION=int -DHAVE_WINNT_IGNORE_VOID=1 -DHAVE_ALLOCA_GCC_INLINE=1 -DHAVE_CAST_TO_UNION=1 -DTCL_THREADS=1 -DUSE_THREAD_ALLOC=1 -DTCL_CFGVAL_ENCODING=\"cp1252\" -DTCL_CFG_OPTIMIZED=1 -DTCL_CFG_DEBUG=1   "./../generic/tclTestObj.c" -o tclTestObj.o
gcc -c -O2 -fomit-frame-pointer -Wall  -I"./../generic" -DTCL_TOMMATH -DMP_PREC=4 -I"./../libtommath" -I"." -DPACKAGE_NAME=\"\" -DPACKAGE_TARNAME=\"\" -DPACKAGE_VERSION=\"\" -DPACKAGE_STRING=\"\" -DPACKAGE_BUGREPORT=\"\" -DHAVE_NO_SEH=1 -DEXCEPTION_DISPOSITION=int -DHAVE_WINNT_IGNORE_VOID=1 -DHAVE_ALLOCA_GCC_INLINE=1 -DHAVE_CAST_TO_UNION=1 -DTCL_THREADS=1 -DUSE_THREAD_ALLOC=1 -DTCL_CFGVAL_ENCODING=\"cp1252\" -DTCL_CFG_OPTIMIZED=1 -DTCL_CFG_DEBUG=1   -DBUILD_tcl "./../generic/tclTestProcBodyObj.c" -o tclTestProcBodyObj.o
gcc -c -O2 -fomit-frame-pointer -Wall  -I"./../generic" -DTCL_TOMMATH -DMP_PREC=4 -I"./../libtommath" -I"." -DPACKAGE_NAME=\"\" -DPACKAGE_TARNAME=\"\" -DPACKAGE_VERSION=\"\" -DPACKAGE_STRING=\"\" -DPACKAGE_BUGREPORT=\"\" -DHAVE_NO_SEH=1 -DEXCEPTION_DISPOSITION=int -DHAVE_WINNT_IGNORE_VOID=1 -DHAVE_ALLOCA_GCC_INLINE=1 -DHAVE_CAST_TO_UNION=1 -DTCL_THREADS=1 -DUSE_THREAD_ALLOC=1 -DTCL_CFGVAL_ENCODING=\"cp1252\" -DTCL_CFG_OPTIMIZED=1 -DTCL_CFG_DEBUG=1   -DBUILD_tcl "./../generic/tclThreadTest.c" -o tclThreadTest.o
gcc -c -O2 -fomit-frame-pointer -Wall  -I"./../generic" -DTCL_TOMMATH -DMP_PREC=4 -I"./../libtommath" -I"." -DPACKAGE_NAME=\"\" -DPACKAGE_TARNAME=\"\" -DPACKAGE_VERSION=\"\" -DPACKAGE_STRING=\"\" -DPACKAGE_BUGREPORT=\"\" -DHAVE_NO_SEH=1 -DEXCEPTION_DISPOSITION=int -DHAVE_WINNT_IGNORE_VOID=1 -DHAVE_ALLOCA_GCC_INLINE=1 -DHAVE_CAST_TO_UNION=1 -DTCL_THREADS=1 -DUSE_THREAD_ALLOC=1 -DTCL_CFGVAL_ENCODING=\"cp1252\" -DTCL_CFG_OPTIMIZED=1 -DTCL_CFG_DEBUG=1   "tclWinTest.c" -o tclWinTest.o
gcc -c -O2 -fomit-frame-pointer -Wall  -I"./../generic" -DTCL_TOMMATH -DMP_PREC=4 -I"./../libtommath" -I"." -DPACKAGE_NAME=\"\" -DPACKAGE_TARNAME=\"\" -DPACKAGE_VERSION=\"\" -DPACKAGE_STRING=\"\" -DPACKAGE_BUGREPORT=\"\" -DHAVE_NO_SEH=1 -DEXCEPTION_DISPOSITION=int -DHAVE_WINNT_IGNORE_VOID=1 -DHAVE_ALLOCA_GCC_INLINE=1 -DHAVE_CAST_TO_UNION=1 -DTCL_THREADS=1 -DUSE_THREAD_ALLOC=1 -DTCL_CFGVAL_ENCODING=\"cp1252\" -DTCL_CFG_OPTIMIZED=1 -DTCL_CFG_DEBUG=1   -DTCL_TEST "tclAppInit.c" -o testMain.o
gcc -c -O2 -fomit-frame-pointer -Wall  -I"./../generic" -DTCL_TOMMATH -DMP_PREC=4 -I"./../libtommath" -I"." -DPACKAGE_NAME=\"\" -DPACKAGE_TARNAME=\"\" -DPACKAGE_VERSION=\"\" -DPACKAGE_STRING=\"\" -DPACKAGE_BUGREPORT=\"\" -DHAVE_NO_SEH=1 -DEXCEPTION_DISPOSITION=int -DHAVE_WINNT_IGNORE_VOID=1 -DHAVE_ALLOCA_GCC_INLINE=1 -DHAVE_CAST_TO_UNION=1 -DTCL_THREADS=1 -DUSE_THREAD_ALLOC=1 -DTCL_CFGVAL_ENCODING=\"cp1252\" -DTCL_CFG_OPTIMIZED=1 -DTCL_CFG_DEBUG=1   "cat.c" -o cat32.o
gcc -O2 -fomit-frame-pointer cat32.o -o cat32.exe -lws2_32 -mconsole 
gcc -O2 -fomit-frame-pointer tclTest.o tclTestObj.o tclTestProcBodyObj.o tclThreadTest.o tclWinTest.o testMain.o libtcl85.a -lws2_32 \
        tclsh.res.o -o tcltest.exe -mconsole 
TCL_LIBRARY="/c/src/tcl/library"; export TCL_LIBRARY; \
./tcltest.exe "./../tests/all.tcl"  \
-load "set ::ddelib [file normalize tcldde13.dll]; \
set ::reglib [file normalize tclreg12.dll]" | ./cat32.exe
Tests running in interp:  c:/src/tcl/win/tcltest.exe
Tests located in:  C:/src/tcl/tests
Tests running in:  C:/src/tcl/win
Temporary files stored in C:/src/tcl/win
Test files run in separate interpreters
Running tests that match:  *
Skipping test files that match:  l.*.test
Only running test files that match:  *.test
Tests began at Mon Dec 17 21:33:14 +0100 2007
append.test
appendComp.test
apply.test
assocd.test
async.test
autoMkindex.test
basic.test
binary.test
case.test
chan.test
chanio.test
clock.test
cmdAH.test


==== cmdAH-29.4.1 Tcl_FileObjCmd: type FAILED
==== Contents of test case:

    set tempdir [makeDirectory temp]
    set linkdir [file join [temporaryDirectory] link.dir]
    file link -symbolic $linkdir $tempdir
    set result [file type $linkdir]
    file delete $linkdir
    removeDirectory $tempdir
    set result

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: could not create new link "C:/src/tcl/win/link.dir" pointing to "C:/src/tcl/win/temp": invalid argument
    while executing
"file link -symbolic $linkdir $tempdir"
    ("uplevel" body line 4)
    invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EINVAL {invalid argument}
==== cmdAH-29.4.1 FAILED

cmdIL.test
cmdInfo.test
cmdMZ.test
compExpr-old.test
compExpr.test
compile.test
concat.test
config.test
dcall.test
dict.test
dstring.test
encoding.test
env.test
error.test
eval.test
event.test
exec.test
execute.test
expr-old.test
expr.test
fCmd.test


==== fCmd-28.11 file link: success with directory FAILED
==== Contents of test case:

    cd [temporaryDirectory]
    file delete -force abc.link
    set res [list [catch {file link abc.link abc.dir} msg] $msg]
    cd [workingDirectory]
    set res

---- Result was:
1 {could not create new link "abc.link" pointing to "abc.dir": invalid argument}
---- Result should have been (exact matching):
0 abc.dir
==== fCmd-28.11 FAILED



==== fCmd-28.12 file link: cd into a link FAILED
==== Contents of test case:

    cd [temporaryDirectory]
    file delete -force abc.link
    file link abc.link abc.dir
    set orig [pwd]
    cd abc.link
    set dir [pwd]
    cd ..
    set up [pwd]
    cd $orig
    # now '$up' should be either $orig or [file dirname abc.dir],
    # depending on whether 'cd' actually moves to the destination
    # of a link, or simply treats the link as a directory.
    # (on windows the former, on unix the latter, I believe)
    if {([file normalize $up] != [file normalize $orig])  && ([file normalize $up] != [file normalize [file dirname abc.dir]])} {
	set res "wrong directory with 'cd abc.link ; cd ..':  \"[file normalize $up]\" should be \"[file normalize $orig]\" or \"[file normalize [file dirname abc.dir]]\""
    } else {
	set res "ok"
    }
    cd [workingDirectory]
    set res

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: could not create new link "abc.link" pointing to "abc.dir": invalid argument
    while executing
"file link abc.link abc.dir"
    ("uplevel" body line 4)
    invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EINVAL {invalid argument}
==== fCmd-28.12 FAILED



==== fCmd-28.13 file link FAILED
==== Contents of test case:

    # duplicate link throws error
    cd [temporaryDirectory]
    set res [list [catch {file link abc.link abc.dir} msg] $msg]
    cd [workingDirectory]
    set res

---- Result was:
1 {could not create new link "abc.link" pointing to "abc.dir": invalid argument}
---- Result should have been (exact matching):
1 {could not create new link "abc.link": that path already exists}
==== fCmd-28.13 FAILED



==== fCmd-28.15.2 file link: copies link not dir FAILED
==== Contents of test case:

    cd [temporaryDirectory]
    file delete -force abc.link
    file link abc.link abc.dir
    file copy abc.link abc2.link
    set res [list [file type abc2.link] [file tail [file link abc2.link]]]
    cd [workingDirectory]
    set res

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: could not create new link "abc.link" pointing to "abc.dir": invalid argument
    while executing
"file link abc.link abc.dir"
    ("uplevel" body line 4)
    invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EINVAL {invalid argument}
==== fCmd-28.15.2 FAILED



==== fCmd-28.16 file link: glob inside link FAILED
==== Contents of test case:

    cd [temporaryDirectory]
    file delete -force abc.link
    file link abc.link abc.dir
    set res [glob -dir abc.link -tails *]
    cd [workingDirectory]
    lsort $res

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: could not create new link "abc.link" pointing to "abc.dir": invalid argument
    while executing
"file link abc.link abc.dir"
    ("uplevel" body line 4)
    invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EINVAL {invalid argument}
==== fCmd-28.16 FAILED



==== fCmd-28.17 file link: glob -type l FAILED
==== Contents of test case:

    cd [temporaryDirectory]
    set res [glob -dir [pwd] -type l -tails abc*]
    cd [workingDirectory]
    set res

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: no files matched glob pattern "abc*"
    while executing
"glob -dir [pwd] -type l -tails abc*"
    invoked from within
"set res [glob -dir [pwd] -type l -tails abc*]"
    ("uplevel" body line 3)
    invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== fCmd-28.17 FAILED



==== fCmd-28.18 file link: glob -type d FAILED
==== Contents of test case:

    cd [temporaryDirectory]
    set res [lsort [glob -dir [pwd] -type d -tails abc*]]
    cd [workingDirectory]
    set res

---- Result was:
abc.dir abc2.dir
---- Result should have been (exact matching):
abc.dir abc.link abc2.dir
==== fCmd-28.18 FAILED



==== fCmd-28.19 file link: relative paths FAILED
==== Contents of test case:

    cd [temporaryDirectory]
    file mkdir d1/d2/d3
    set res [list [catch {file link d1/l2 d1/d2} err] $err]
    lappend res [catch {file delete -force d1} err] $err

---- Result was:
1 {could not create new link "d1/l2" pointing to "d1/d2": invalid argument} 0 {}
---- Result should have been (exact matching):
0 d1/d2 0 {}
==== fCmd-28.19 FAILED

fileName.test


==== filename-11.17.2 Tcl_GlobCmd FAILED
==== Contents of test case:

    set dir [pwd]
    set ret "error in test"
    if {[catch {
	cd $globname
	file link -symbolic link a1
	cd $dir
	set ret [list [catch {
	    lsort [glob -directory $globname -join * b1]
	} msg] $msg]
    }]} {
	cd $dir
    }
    file delete [file join $globname link]
    set ret

---- Result was:
error in test
---- Result should have been (exact matching):
0 {globTest/a1/b1 globTest/link/b1}
==== filename-11.17.2 FAILED



==== filename-11.17.3 Tcl_GlobCmd FAILED
==== Contents of test case:

    set dir [pwd]
    set ret "error in test"
    if {[catch {
	cd $globname
	file link -symbolic link a1
	cd $dir
	set ret [list [catch {
	    lsort [glob -directory $globname -type d *]
	} msg] $msg]
    }]} {
	cd $dir
    }
    file delete [file join $globname link]
    set ret

---- Result was:
error in test
---- Result should have been (exact matching):
0 {globTest/a1 globTest/a2 globTest/a3 globTest/link}
==== filename-11.17.3 FAILED



==== filename-11.17.4 Tcl_GlobCmd FAILED
==== Contents of test case:

    set dir [pwd]
    set ret "error in test"
    if {[catch {
	cd $globname
	file link -symbolic link a1
	cd $dir
	set ret [list [catch {
	    lsort [glob -directory $globname -type l *]
	} msg] $msg]
    }]} {
	cd $dir
    }
    file delete [file join $globname link]
    set ret

---- Result was:
error in test
---- Result should have been (exact matching):
0 globTest/link
==== filename-11.17.4 FAILED



==== filename-11.17.7 Tcl_GlobCmd: broken link and glob -l FAILED
==== Contents of test case:

    set dir [pwd]
    set ret "error in test"
    if {[catch {
	cd $globname
	file mkdir nonexistent
	file link -symbolic link nonexistent
	file delete nonexistent
	cd $dir
	set ret [list [catch {
	    lsort [glob -nocomplain -directory $globname -type l *]
	} msg] $msg]
    }]} {
	cd $dir
    }
    file delete [file join $globname link]
    set ret

---- Result was:
error in test
---- Result should have been (exact matching):
0 globTest/link
==== filename-11.17.7 FAILED



==== filename-11.18.1 Tcl_GlobCmd FAILED
==== Contents of test case:

    list [catch {lsort [glob -path $globname/ *]} msg] $msg

---- Result was:
0 {globTest/.1 globTest/a1 globTest/a2 globTest/a3 globTest/nonexistent {globTest/weird name.c} globTest/x,z1.c globTest/x1.c globTest/y1.c globTest/z1.c}
---- Result should have been (exact matching):
0 {globTest/.1 globTest/a1 globTest/a2 globTest/a3 {globTest/weird name.c} globTest/x,z1.c globTest/x1.c globTest/y1.c globTest/z1.c}
==== filename-11.18.1 FAILED



==== filename-11.19.1 Tcl_GlobCmd FAILED
==== Contents of test case:

    list [catch {lsort [glob -join -path  [string range $globname 0 5] * *]} msg] $msg

---- Result was:
0 {globTest/.1 globTest/a1 globTest/a2 globTest/a3 globTest/nonexistent {globTest/weird name.c} globTest/x,z1.c globTest/x1.c globTest/y1.c globTest/z1.c}
---- Result should have been (exact matching):
0 {globTest/.1 globTest/a1 globTest/a2 globTest/a3 {globTest/weird name.c} globTest/x,z1.c globTest/x1.c globTest/y1.c globTest/z1.c}
==== filename-11.19.1 FAILED



==== filename-11.20 Tcl_GlobCmd FAILED
==== Contents of test case:

    list [catch {lsort [glob -type d -dir $globname *]} msg] $msg

---- Result was:
0 {globTest/a1 globTest/a2 globTest/a3 globTest/nonexistent}
---- Result should have been (exact matching):
0 {globTest/a1 globTest/a2 globTest/a3}
==== filename-11.20 FAILED



==== filename-11.22.1 Tcl_GlobCmd FAILED
==== Contents of test case:

    list [catch {lsort [glob -dir $globname *]} msg] $msg

---- Result was:
0 {glob\[\{Test/.1 glob\[\{Test/a1 glob\[\{Test/a2 glob\[\{Test/a3 glob\[\{Test/nonexistent glob\[\{Test/weird\ name.c glob\[\{Test/x,z1.c glob\[\{Test/x1.c glob\[\{Test/y1.c glob\[\{Test/z1.c}
---- Result should have been (exact matching):
0 {glob\[\{Test/.1 glob\[\{Test/a1 glob\[\{Test/a2 glob\[\{Test/a3 glob\[\{Test/weird\ name.c glob\[\{Test/x,z1.c glob\[\{Test/x1.c glob\[\{Test/y1.c glob\[\{Test/z1.c}
==== filename-11.22.1 FAILED



==== filename-11.23.1 Tcl_GlobCmd FAILED
==== Contents of test case:

    list [catch {lsort [glob -path $globname/ *]} msg] $msg

---- Result was:
0 {glob\[\{Test/.1 glob\[\{Test/a1 glob\[\{Test/a2 glob\[\{Test/a3 glob\[\{Test/nonexistent glob\[\{Test/weird\ name.c glob\[\{Test/x,z1.c glob\[\{Test/x1.c glob\[\{Test/y1.c glob\[\{Test/z1.c}
---- Result should have been (exact matching):
0 {glob\[\{Test/.1 glob\[\{Test/a1 glob\[\{Test/a2 glob\[\{Test/a3 glob\[\{Test/weird\ name.c glob\[\{Test/x,z1.c glob\[\{Test/x1.c glob\[\{Test/y1.c glob\[\{Test/z1.c}
==== filename-11.23.1 FAILED



==== filename-11.24.1 Tcl_GlobCmd FAILED
==== Contents of test case:

    list [catch {lsort [glob -join -path  [string range $globname 0 5] * *]} msg] $msg

---- Result was:
0 {glob\[\{Test/.1 glob\[\{Test/a1 glob\[\{Test/a2 glob\[\{Test/a3 glob\[\{Test/nonexistent glob\[\{Test/weird\ name.c glob\[\{Test/x,z1.c glob\[\{Test/x1.c glob\[\{Test/y1.c glob\[\{Test/z1.c}
---- Result should have been (exact matching):
0 {glob\[\{Test/.1 glob\[\{Test/a1 glob\[\{Test/a2 glob\[\{Test/a3 glob\[\{Test/weird\ name.c glob\[\{Test/x,z1.c glob\[\{Test/x1.c glob\[\{Test/y1.c glob\[\{Test/z1.c}
==== filename-11.24.1 FAILED



==== filename-11.25 Tcl_GlobCmd FAILED
==== Contents of test case:

    list [catch {lsort [glob -type d -dir $globname *]} msg] $msg

---- Result was:
0 {glob\[\{Test/a1 glob\[\{Test/a2 glob\[\{Test/a3 glob\[\{Test/nonexistent}
---- Result should have been (exact matching):
0 {glob\[\{Test/a1 glob\[\{Test/a2 glob\[\{Test/a3}
==== filename-11.25 FAILED



==== filename-11.25.1 Tcl_GlobCmd FAILED
==== Contents of test case:

    list [catch {lsort [glob -type {d r} -dir $globname *]} msg] $msg

---- Result was:
0 {glob\[\{Test/a1 glob\[\{Test/a2 glob\[\{Test/a3 glob\[\{Test/nonexistent}
---- Result should have been (exact matching):
0 {glob\[\{Test/a1 glob\[\{Test/a2 glob\[\{Test/a3}
==== filename-11.25.1 FAILED



==== filename-11.25.2 Tcl_GlobCmd FAILED
==== Contents of test case:

    list [catch {lsort [glob -type {d r w} -dir $globname *]} msg] $msg

---- Result was:
0 {glob\[\{Test/a1 glob\[\{Test/a2 glob\[\{Test/a3 glob\[\{Test/nonexistent}
---- Result should have been (exact matching):
0 {glob\[\{Test/a1 glob\[\{Test/a2 glob\[\{Test/a3}
==== filename-11.25.2 FAILED



==== filename-14.7.1 asterisks, question marks, and brackets FAILED
==== Contents of test case:

    lsort [glob globTest/*]

---- Result was:
globTest/.1 globTest/a1 globTest/a2 globTest/a3 globTest/nonexistent {globTest/weird name.c} globTest/x,z1.c globTest/x1.c globTest/y1.c globTest/z1.c
---- Result should have been (exact matching):
globTest/.1 globTest/a1 globTest/a2 globTest/a3 {globTest/weird name.c} globTest/x,z1.c globTest/x1.c globTest/y1.c globTest/z1.c
==== filename-14.7.1 FAILED



==== filename-14.15 asterisks, question marks, and brackets FAILED
==== Contents of test case:

    lsort [glob globTest/*/]

---- Result was:
globTest/a1/ globTest/a2/ globTest/a3/ globTest/nonexistent/
---- Result should have been (exact matching):
globTest/a1/ globTest/a2/ globTest/a3/
==== filename-14.15 FAILED

fileSystem.test
for-old.test
for.test
foreach.test
format.test
get.test
history.test
http.test
Running httpd in thread 4832
httpold.test
if-old.test
if.test
incr-old.test
incr.test
indexObj.test
info.test
init.test
:	Total	25	Passed	25	Skipped	0	Failed	0
interp.test
io.test
ioCmd.test
ioUtil.test
iogt.test
join.test
lindex.test
link.test
linsert.test
list.test
listObj.test
llength.test
load.test
lrange.test
lrepeat.test
lreplace.test
lsearch.test
lset.test
lsetComp.test
macOSXFCmd.test
macOSXLoad.test
main.test
mathop.test
misc.test
msgcat.test
namespace-old.test
namespace.test
notify.test
obj.test
opt.test
package.test
parse.test
parseExpr.test
parseOld.test
pid.test
pkg.test
:	Total	384	Passed	384	Skipped	0	Failed	0
pkgMkIndex.test
platform.test
proc-old.test
proc.test
pwd.test
reg.test
regexp.test
regexpComp.test
registry.test
rename.test
result.test
safe.test
scan.test
security.test
set-old.test
set.test
socket.test
source.test
split.test
stack.test
string.test
stringComp.test
stringObj.test
subst.test
switch.test
tcltest.test
thread.test
timer.test
tm.test
trace.test
unixFCmd.test
unixFile.test
unixInit.test
unixNotfy.test
unknown.test
unload.test
uplevel.test
upvar.test
utf.test
util.test
var.test
while-old.test
while.test
winConsole.test
winDde.test
winFCmd.test
winFile.test
winNotify.test
winPipe.test
You should see this
winTime.test

Tests ended at Mon Dec 17 21:40:27 +0100 2007
all.tcl:	Total	24166	Passed	23369	Skipped	773	Failed	24
Sourced 137 Test Files.
Files with failing tests: cmdAH.test fCmd.test fileName.test
Number of tests skipped for each constraint:
	9	!ieeeFloatingPoint
	17	95
	2	95or98
	2	RealConsole
	3	asyncPipeChan
	76	bigEndian
	9	cdrom
	1	dontCopyLinks
	19	eformat
	62	emptyTest
	14	english
	2	exdev
	2	hasIsoLocale
	13	hasLinks
	1	interactive
	29	knownBug
	2	knownBug !singleTestInterp
	2	largefileSupport
	100	localeRegexp
	12	longIs64bit
	14	macosxFileAttr
	14	memory
	1	moreThanOneDrive
	23	nonPortable
	5	notNetworkFilesystem
	17	pkga.dllRequired
	19	pkgua.dllRequired
	2	sharedCdrive
	1	symbolicLinkFile
	4	tempNotWin
	7	testaccessproc
	1	testexprparser && !ieeeFloatingPoint
	22	testfilehandler
	2	testfilewait
	7	testfindexecutable
	1	testgetdefenc
	8	testopenfilechannelproc
	7	teststatproc
	21	testwordend
	180	unix
	23	unixExecs
	3	unknownFailure
	3	winOlderThan2000