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