Tcl Source Code

Artifact [bff8607ce1]
Login

Artifact bff8607ce14eb16b4d061628ebda00d88f94f3f4:

Attachment "ERR.NOCHECK" to ticket [1869390fff] added by msofer 2008-01-11 22:43:56.
LD_LIBRARY_PATH=`pwd`:${LD_LIBRARY_PATH}; export LD_LIBRARY_PATH;  TCL_LIBRARY="/home/miguel/tcl-CVS/library"; export TCL_LIBRARY;  ./tcltest /home/miguel/tcl-CVS/unix/../tests/all.tcl 
Tests running in interp:  /home/miguel/tcl-CVS/unix/tcltest
Tests located in:  /home/miguel/tcl-CVS/tests
Tests running in:  /home/miguel/tcl-CVS/unix
Temporary files stored in /home/miguel/tcl-CVS/unix
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 Fri Jan 11 07:33:33 PST 2008
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
cmdIL.test
cmdInfo.test
cmdMZ.test
compExpr-old.test
Test file error: child killed: bus error
compExpr.test
compile.test
concat.test
config.test
dcall.test
dict.test
dstring.test
encoding.test
env.test
error.test
Test file error: child killed: bus error
eval.test
event.test


==== event-10.1 Tcl_Exit procedure FAILED
==== Contents of test case:

    set child [open |[list [interpreter]] r+]
    puts $child "exit 3"
    list [catch {close $child} msg] $msg [lindex $::errorCode 0]  [lindex $::errorCode 2]

---- Result was:
1 {child killed: segmentation violation} CHILDKILLED SIGSEGV
---- Result should have been (exact matching):
1 {child process exited abnormally} CHILDSTATUS 3
==== event-10.1 FAILED

exec.test
execute.test
expr-old.test
expr.test
Test file error: child killed: bus error
fCmd.test
fileName.test
fileSystem.test
for-old.test
for.test
Test file error: child killed: segmentation violation
foreach.test
format.test
get.test
history.test
http.test
Running httpd in thread 136041472
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


==== Tcl_Main-1.9 Tcl_Main: startup script - -encoding option - no abbrevation FAILED
==== Contents of test case:

	type $f {
	    puts $argv
	}
	list [catch {gets $f} line] $line
    
---- Test cleanup failed:
child killed: segmentation violation
---- errorInfo(cleanup): child killed: segmentation violation
    while executing
"close $f"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $cleanup"
---- errorCode(cleanup): CHILDKILLED 1309 SIGSEGV {segmentation violation}
==== Tcl_Main-1.9 FAILED



==== Tcl_Main-5.2 Tcl_Main able to handle non-blocking stdin FAILED
==== Contents of test case:

	type $f {
	    fconfigure stdin -blocking 0
	    puts SUCCESS
	}
	list [catch {gets $f} line] $line
    
---- Test cleanup failed:
child killed: segmentation violation
---- errorInfo(cleanup): child killed: segmentation violation
    while executing
"close $f"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $cleanup"
---- errorCode(cleanup): CHILDKILLED 1330 SIGSEGV {segmentation violation}
==== Tcl_Main-5.2 FAILED



==== Tcl_Main-5.6 Tcl_Main: interactive mode: errors don't stop command loop FAILED
==== Contents of test case:

	exec [interpreter] << {
		error foo
		puts bar
	} >& result
	set f [open result]
	read $f
    
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: child killed: segmentation violation
    while executing
"exec [interpreter] << {
		error foo
		puts bar
	} >& result"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: CHILDKILLED 1334 SIGSEGV {segmentation violation}
---- Test cleanup failed:
can not find channel named "file9"
---- errorInfo(cleanup): can not find channel named "file9"
    while executing
"close $f"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $cleanup"
---- errorCode(cleanup): TCL LOOKUP CHANNEL file9
==== Tcl_Main-5.6 FAILED



==== Tcl_Main-5.7 Tcl_Main: interactive mode: closed stderr FAILED
==== Contents of test case:

	exec [interpreter] << {
		close stderr
		error foo
		puts bar
	} >& result
	set f [open result]
	read $f
    
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: child killed: segmentation violation
    while executing
"exec [interpreter] << {
		close stderr
		error foo
		puts bar
	} >& result"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: CHILDKILLED 1335 SIGSEGV {segmentation violation}
---- Test cleanup failed:
can not find channel named "file9"
---- errorInfo(cleanup): can not find channel named "file9"
    while executing
"close $f"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $cleanup"
---- errorCode(cleanup): TCL LOOKUP CHANNEL file9
==== Tcl_Main-5.7 FAILED



==== Tcl_Main-6.6 Tcl_Main: number of prompts during stdin close exit FAILED
==== Contents of test case:

	exec [interpreter] << {
		set tcl_interactive 1
		close stdin} >& result
	set f [open result]
	read $f
    
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: child killed: segmentation violation
    while executing
"exec [interpreter] << {
		set tcl_interactive 1
		close stdin} >& result"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: CHILDKILLED 1347 SIGSEGV {segmentation violation}
---- Test cleanup failed:
can not find channel named "file9"
---- errorInfo(cleanup): can not find channel named "file9"
    while executing
"close $f"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $cleanup"
---- errorCode(cleanup): TCL LOOKUP CHANNEL file9
==== Tcl_Main-6.6 FAILED



==== Tcl_Main-8.7 StdinProc: handling of errors FAILED
==== Contents of test case:

	exec [interpreter] << {
		testsetmainloop
		error foo
		testexitmainloop
	} >& result
	set f [open result]
	read $f
    
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: child killed: segmentation violation
    while executing
"exec [interpreter] << {
		testsetmainloop
		error foo
		testexitmainloop
	} >& result"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: CHILDKILLED 1357 SIGSEGV {segmentation violation}
---- Test cleanup failed:
can not find channel named "file9"
---- errorInfo(cleanup): can not find channel named "file9"
    while executing
"close $f"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $cleanup"
---- errorCode(cleanup): TCL LOOKUP CHANNEL file9
==== Tcl_Main-8.7 FAILED



==== Tcl_Main-8.8 StdinProc: handling of errors, closed stderr FAILED
==== Contents of test case:

	exec [interpreter] << {
		testsetmainloop
		close stderr
		error foo
		testexitmainloop
	} >& result
	set f [open result]
	read $f
    
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: child killed: segmentation violation
    while executing
"exec [interpreter] << {
		testsetmainloop
		close stderr
		error foo
		testexitmainloop
	} >& result"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: CHILDKILLED 1358 SIGSEGV {segmentation violation}
---- Test cleanup failed:
can not find channel named "file9"
---- errorInfo(cleanup): can not find channel named "file9"
    while executing
"close $f"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $cleanup"
---- errorCode(cleanup): TCL LOOKUP CHANNEL file9
==== Tcl_Main-8.8 FAILED

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
Test file error: child killed: bus error
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


==== stack-1.1 maxNestingDepth reached on infinite recursion FAILED
==== Contents of test case:

    # do this in a sub process in case it segfaults
    exec [interpreter] << {
	proc recurse {} { recurse }
	catch { recurse } rv
	puts $rv
    }

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: child killed: bus error
    while executing
"exec [interpreter] << {
	proc recurse {} { recurse }
	catch { recurse } rv
	puts $rv
    }"
    ("uplevel" body line 3)
    invoked from within
"uplevel 1 $script"
---- errorCode: CHILDKILLED 1434 SIGBUS {bus error}
==== stack-1.1 FAILED



==== stack-3.1 enough room for regexp near recursion limit FAILED
==== Contents of test case:

    # do this in a sub process in case it segfaults
    exec [interpreter] << {
	interp recursionlimit {} 10000
	set depth 0
	proc a { max } {
	    if { [info level] < $max } {
		set ::depth [info level]
		a $max
	    } else {
		regexp {^ ?} x
	    }
	}
	catch { a 10001 }
	set depth2 $depth
	puts [list [a $depth] [expr { $depth2 - $depth }]]
    }

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: child killed: bus error
    while executing
"exec [interpreter] << {
	interp recursionlimit {} 10000
	set depth 0
	proc a { max } {
	    if { [info level] < $max } {
		set ::depth [info level]
		..."
    ("uplevel" body line 3)
    invoked from within
"uplevel 1 $script"
---- errorCode: CHILDKILLED 1436 SIGBUS {bus error}
==== stack-3.1 FAILED

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
winTime.test

Tests ended at Fri Jan 11 07:38:58 PST 2008
all.tcl:	Total	21132	Passed	20266	Skipped	856	Failed	10
Sourced 137 Test Files.
Files with failing tests: event.test main.test stack.test
Number of tests skipped for each constraint:
	3	!ieeeFloatingPoint
	2	95or98
	3	asyncPipeChan
	76	bigEndian
	4	dontCopyLinks
	59	emptyTest
	2	hasIsoLocale
	20	knownBug
	2	knownBug !singleTestInterp
	2	largefileSupport
	10	longIs64bit
	14	macosxFileAttr
	14	memory
	41	nonPortable
	5	notNetworkFilesystem
	8	nt
	1	testWinCPUID
	7	testaccessproc
	1	testexprparser && !ieeeFloatingPoint
	8	testopenfilechannelproc
	7	teststatproc
	1	testwinclock
	21	testwordend
	3	unknownFailure
	2	unthreaded
	524	win
	5	xdev

Test files exiting with errors:  

  compExpr-old.test

  error.test

  expr.test

  for.test

  reg.test