if test ! -f tclsh; then make tclsh; else true; fi
cd dltest; PATH=..:/sbin:/usr/sbin:/usr/local/bin:/usr/bin:/usr/bin/X11 TCL_LIBRARY=../../library make
cc  tclTestInit.o tclTest.o tclTestObj.o tclTestProcBodyObj.o  tclThreadTest.o	tclUnixTest.o -L/work/work/tcl8.3.3/unix -ltcl8.3 -lm -lc  -Wl,-rpath,/usr/local/lib -o tcltest
LD_LIBRARY_PATH=`pwd`:/usr/lib/cmplrs/cob/coblib; export LD_LIBRARY_PATH;  LIBPATH=`pwd`:; export LIBPATH;  SHLIB_PATH=`pwd`:; export SHLIB_PATH;  TCL_LIBRARY="/work/work/tcl8.3.3/library"; export TCL_LIBRARY;  ./tcltest ./../tests/all.tcl  
Tcl 8.3.3 tests running in interp:  /work/work/tcl8.3.3/unix/tcltest
Tests running in working dir:  /work/work/tcl8.3.3/tests
Only sourcing test files that match:  *.test
Tests began at Fri Jun 22 13:22:52 EDT 2001
append.test
assocd.test
async.test
autoMkindex.test
basic.test
binary.test
case.test
clock.test

==== clock-3.2 clock format tests FAILED
==== Contents of test case:

    # TCL_USE_TIMEZONE_VAR

    catch {set oldtz $env(TZ)}
    set env(TZ) PST
    set x {}
    append x [clock format 863800000 -format %Z -gmt 1]
    append x [set env(TZ)]
    catch {unset env(TZ); set env(TZ) $oldtz}
    set x

---- Result was:
ESTPST
---- Result should have been:
GMTPST
==== clock-3.2 FAILED


==== clock-3.4 clock format tests FAILED
==== Contents of test case:

    # tzset() under Borland doesn't seem to set up tzname[] for gmt timezone.
    # tzset() under MSVC has the following weird observed behavior:
    #	 First time we call "clock format [clock seconds] -format %Z -gmt 1"
    #	 we get "GMT", but on all subsequent calls we get the current time 
    #	 zone string, even though env(TZ) is GMT and the variable _timezone 
    #    is 0.

    set x {}
    append x [clock format 863800000 -format %Z -gmt 1]
    append x [clock format 863800000 -format %Z -gmt 1]

---- Result was:
ESTEST
---- Result should have been:
GMTGMT
==== clock-3.4 FAILED

cmdAH.test
cmdIL.test
cmdInfo.test
cmdMZ.test

==== cmdMZ-1.4 Tcl_PwdObjCmd: failure FAILED
==== Contents of test case:

    file delete -force foo
    file mkdir foo
    set cwd [pwd]
    cd foo
    file attr . -permissions 000
    set result [list [catch {pwd} msg] $msg]
    cd $cwd
    file delete -force foo
    set result

---- Result was:
0 /work/work/tcl8.3.3/unix/foo
---- Result should have been:
1 {error getting working directory name: permission denied}
==== cmdMZ-1.4 FAILED

compExpr-old.test
compExpr.test
compile.test
concat.test
dcall.test
dstring.test
encoding.test
env.test
error.test
eval.test
event.test
exec.test
execute.test
expr-old.test
expr.test
fCmd.test
fileName.test
for-old.test
for.test
foreach.test
format.test
get.test
history.test
http.test

==== http-4.13 http::Event FAILED
==== Contents of test case:

    set token [http::geturl $url?timeout=30 -timeout 10 -command {#}]
    http::wait $token
    http::status $token

---- Result was:
ok
---- Result should have been:
timeout
==== http-4.13 FAILED

httpold.test
Running http 1.0 tests in slave interp
httpold.test:	Total	31	Passed	31	Skipped	0	Failed	0
if-old.test
if.test
incr-old.test
incr.test
indexObj.test
info.test
init.test
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
lreplace.test
lsearch.test
macFCmd.test
misc.test
msgcat.test
namespace-old.test
namespace.test
obj.test
opt.test
osa.test
package.test
parse.test
parseExpr.test

==== parseExpr-14.11 GetLexeme procedure, bad double lexeme too big FAILED
==== Contents of test case:

    list [catch {testexprparser {123.e+99999999999999} -1} msg] $msg

---- Result was:
1 {syntax error in expression "123.e+99999999999999"}
---- Result should have been:
1 {floating-point value too large to represent}
==== parseExpr-14.11 FAILED

parseOld.test
pid.test
pkg.test
pkgMkIndex.test
platform.test
proc-old.test
proc.test
pwd.test
reg.test
regexp.test
registry.test
rename.test
resource.test
result.test
safe.test
scan.test

==== scan-4.62 scanning of large and negative octal integers FAILED
==== Contents of test case:

    foreach { MIN_INT MAX_INT } [int_range] {}
    set scanstring [format {%o %o %o} -1 $MIN_INT $MAX_INT]
    list [scan $scanstring {%o %o %o} a b c]  [expr { $a == -1 }] [expr { $b == $MIN_INT }] [expr { $c == $MAX_INT }]

==== Test generated error:
integer value too large to represent as non-long integer
---- Result should have been:
3 1 1 1
==== scan-4.62 FAILED


==== scan-4.63 scanning of large and negative hex integers FAILED
==== Contents of test case:

    foreach { MIN_INT MAX_INT } [int_range] {}
    set scanstring [format {%x %x %x} -1 $MIN_INT $MAX_INT]
    list [scan $scanstring {%x %x %x} a b c]  [expr { $a == -1 }] [expr { $b == $MIN_INT }] [expr { $c == $MAX_INT }]

==== Test generated error:
integer value too large to represent as non-long integer
---- Result should have been:
3 1 1 1
==== scan-4.63 FAILED

security.test
set-old.test
set.test
socket.test
source.test
split.test
stack.test
string.test
stringObj.test
subst.test
switch.test
tcltest.test

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

    catch {exec $::tcltest::tcltest a.tcl -tmpdir $notReadableDir} msg 
    # The join is necessary because the message can be split on multiple lines
    list [regexp {not readable} [join $msg]]

---- Result was:
0
---- Result should have been:
1
==== tcltest-8.3 FAILED


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

    catch {exec $::tcltest::tcltest a.tcl -tmpdir $notWriteableDir} msg
    # The join is necessary because the message can be split on multiple lines
    list [regexp {not writeable} [join $msg]]

---- Result was:
0
---- Result should have been:
1
==== tcltest-8.4 FAILED


==== tcltest-8.7 tcltest a.tcl -testdir notReadableDir FAILED
==== Contents of test case:

    catch {exec $::tcltest::tcltest a.tcl -testdir $notReadableDir} msg 
    # The join is necessary because the message can be split on multiple lines
    list [regexp {not readable} [join $msg]]

---- Result was:
0
---- Result should have been:
1
==== tcltest-8.7 FAILED

thread.test
timer.test
trace.test
unixFCmd.test
unixFile.test
unixInit.test
unixNotfy.test
unknown.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
winTime.test

Tests ended at Fri Jun 22 13:24:22 EDT 2001
all.tcl:	Total	9041	Passed	7997	Skipped	1034	Failed	10
Sourced 121 Test Files.
Files with failing tests: clock.test cmdMZ.test http.test parseExpr.test scan.test tcltest.test
Number of tests skipped for each constraint:
	15	95
	13	doTestsWithRemoteServer
	48	emptyTest
	2	hasIsoLocale
	8	installedTcl
	27	knownBug
	25	localeRegexp
	122	macOnly
	151	nonPortable
	245	notRoot
	16	nt
	331	pcOnly
	27	testthread
	1	umask2
	3	unknownFailure
Warning: files left behind:
	tcltest.test:	a.tmp
