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

  1. 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
  2. Tests running in interp: /home/emiliano/src/tcl8.5.10/unix/tcltest
  3. Tests located in: /home/emiliano/src/tcl8.5.10/tests
  4. Tests running in: /home/emiliano/src/tcl8.5.10/unix
  5. Temporary files stored in /home/emiliano/src/tcl8.5.10/unix
  6. Test files run in separate interpreters
  7. Running tests that match: stack-3.1
  8. Skipping test files that match: l.*.test
  9. Only running test files that match: stack.test
  10. Tests began at Tue Jun 21 17:09:20 ART 2011
  11. stack.test
  12.  
  13.  
  14. ==== stack-3.1 enough room for regexp near recursion limit FAILED
  15. ==== Contents of test case:
  16.  
  17. # do this in a sub process in case it segfaults
  18. exec [interpreter] << {
  19. interp recursionlimit {} 10000
  20. set depth 0
  21. proc a { max } {
  22. if { [info level] < $max } {
  23. set ::depth [info level]
  24. a $max
  25. } else {
  26. regexp {^ ?} x
  27. }
  28. }
  29. catch { a 10001 }
  30. set depth2 $depth
  31. puts [list [a $depth] [expr { $depth2 - $depth }]]
  32. }
  33.  
  34. ---- Test generated error; Return code was: 1
  35. ---- Return code should have been one of: 0 2
  36. ---- errorInfo: child killed: segmentation violation
  37. while executing
  38. "exec [interpreter] << {
  39. interp recursionlimit {} 10000
  40. set depth 0
  41. proc a { max } {
  42. if { [info level] < $max } {
  43. set ::depth [info level]
  44. ..."
  45. ("uplevel" body line 3)
  46. invoked from within
  47. "uplevel 1 $script"
  48. ---- errorCode: CHILDKILLED 27373 SIGSEGV {segmentation violation}
  49. ==== stack-3.1 FAILED
  50.  
  51.  
  52. Tests ended at Tue Jun 21 17:09:20 ART 2011
  53. all.tcl: Total 3 Passed 0 Skipped 2 Failed 1
  54. Sourced 1 Test Files.
  55. Files with failing tests: stack.test
  56.