Posted to tcl by miguel at Wed Jul 06 15:33:40 GMT 2011view raw

  1. mig@ari:~/DEVEL/itcl/itcl-3-branch$ make test
  2. TCL_LIBRARY=`echo /home/mig/DEVEL/tcl-core/trunk/library` ITCL_LIBRARY=`echo ./library` LD_LIBRARY_PATH=".:/home/mig/DEVEL/tcl-core/trunk/unix:" PATH=".:/home/mig/DEVEL/tcl-core/trunk/unix:/home/mig/Private/bin:/opt/ActiveTcl-8.5/bin:/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" TCLLIBPATH="." /home/mig/DEVEL/tcl-core/trunk/unix/tclsh `echo ./tests/all.tcl` -load "package require Itcl 3.4"
  3. Tests running in interp: /home/mig/DEVEL/tcl-core/trunk/unix/tclsh
  4. Tests located in: /home/mig/DEVEL/itcl/itcl-3-branch/tests
  5. Tests running in: /home/mig/DEVEL/itcl/itcl-3-branch
  6. Temporary files stored in /home/mig/DEVEL/itcl/itcl-3-branch
  7. Test files run in separate interpreters
  8. Running tests that match: *
  9. Skipping test files that match: l.*.test
  10. Only running test files that match: *.test
  11. Tests began at Wed Jul 06 12:29:57 ART 2011
  12. basic.test
  13. body.test
  14. chain.test
  15.  
  16.  
  17. ==== chain-2.1 create a test object in a base class FAILED
  18. ==== Contents of test case:
  19.  
  20. set test_chain_status ""
  21. set testobj [test_chain_c #auto 4 5 6]
  22. set test_chain_status
  23.  
  24. ---- Test generated error; Return code was: 1
  25. ---- Return code should have been one of: 0 2
  26. ---- errorInfo: variable "test_chain_status" already exists
  27. while executing
  28. "global ::test_chain_status"
  29. while constructing object "::test_chain_c0" in ::test_chain_b::constructor (body line 2)
  30. invoked from within
  31. "chain 4 5 6"
  32. ("eval" body line 1)
  33. invoked from within
  34. "eval chain $args"
  35. while constructing object "::test_chain_c0" in ::test_chain_a::constructor (body line 2)
  36. invoked from within
  37. "chain 4 5 6"
  38. ("eval" body line 1)
  39. invoked from within
  40. "eval chain $args"
  41. while constructing object "::test_chain_c0" in ::test_chain_c::constructor (body line 2)
  42. invoked from within
  43. "test_chain_c #auto 4 5 6"
  44. ("uplevel" body line 3)
  45. invoked from within
  46. "uplevel 1 $script"
  47. ---- errorCode: TCL UPVAR EXISTS
  48. ==== chain-2.1 FAILED
  49.  
  50.  
  51.  
  52. ==== chain-2.2 invoke a chained method FAILED
  53. ==== Contents of test case:
  54.  
  55. set test_chain_status ""
  56. $testobj show "hello there"
  57. set test_chain_status
  58.  
  59. ---- Result was:
  60. {b::show hello there} {a::show hello there} {d::show hello there}
  61. ---- Result should have been (exact matching):
  62. {b::show hello there} {a::show hello there}
  63. ==== chain-2.2 FAILED
  64.  
  65. delete.test
  66. ensemble.test
  67. import.test
  68. info.test
  69. inherit.test
  70. interp.test
  71. local.test
  72. methods.test
  73. mkindex.test
  74. namespace.test
  75. protection.test
  76. scope.test
  77.  
  78. Tests ended at Wed Jul 06 12:29:58 ART 2011
  79. all.tcl: Total 400 Passed 398 Skipped 0 Failed 2
  80. Sourced 15 Test Files.
  81. Files with failing tests: chain.test
  82. mig@ari:~/DEVEL/itcl/itcl-3-branch$