Attachment "tcl-error-root.out" to
ticket [435521ffff]
added by
ssibert
2001-06-23 00:35:33.
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
