Posted to tcl by emiliano at Tue Jun 21 20:11:05 GMT 2011view pretty

LD_LIBRARY_PATH="`pwd`:${LD_LIBRARY_PATH}"; export LD_LIBRARY_PATH;  TCL_LIBRARY="/home/emiliano/src/tcl8.5.10/library"; export TCL_LIBRARY;  ./tcltest /home/emiliano/src/tcl8.5.10/unix/../tests/all.tcl -file stack.test  -match stack-3.1
Tests running in interp:  /home/emiliano/src/tcl8.5.10/unix/tcltest
Tests located in:  /home/emiliano/src/tcl8.5.10/tests
Tests running in:  /home/emiliano/src/tcl8.5.10/unix
Temporary files stored in /home/emiliano/src/tcl8.5.10/unix
Test files run in separate interpreters
Running tests that match:  stack-3.1
Skipping test files that match:  l.*.test
Only running test files that match:  stack.test
Tests began at Tue Jun 21 17:09:20 ART 2011
stack.test


==== 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: segmentation violation
    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 27373 SIGSEGV {segmentation violation}
==== stack-3.1 FAILED


Tests ended at Tue Jun 21 17:09:20 ART 2011
all.tcl:	Total	3	Passed	0	Skipped	2	Failed	1
Sourced 1 Test Files.
Files with failing tests: stack.test