Posted to tcl by dgp at Wed Jun 22 20:30:00 GMT 2011view raw

  1.  
  2. ==== chain-2.1 create a test object in a base class FAILED
  3. ==== Contents of test case:
  4.  
  5. set test_chain_status ""
  6. set testobj [test_chain_c #auto 4 5 6]
  7. set test_chain_status
  8.  
  9. ---- Test generated error; Return code was: 1
  10. ---- Return code should have been one of: 0 2
  11. ---- errorInfo: variable "test_chain_status" already exists
  12. while executing
  13. "global ::test_chain_status"
  14. while constructing object "::test_chain_c0" in ::test_chain_b::constructor (body line 2)
  15. invoked from within
  16. "chain 4 5 6"
  17. ("eval" body line 1)
  18. invoked from within
  19. "eval chain $args"
  20. while constructing object "::test_chain_c0" in ::test_chain_a::constructor (body line 2)
  21. invoked from within
  22. "chain 4 5 6"
  23. ("eval" body line 1)
  24. invoked from within
  25. "eval chain $args"
  26. while constructing object "::test_chain_c0" in ::test_chain_c::constructor (body line 2)
  27. invoked from within
  28. "test_chain_c #auto 4 5 6"
  29. ("uplevel" body line 3)
  30. invoked from within
  31. "uplevel 1 $script"
  32. ---- errorCode: TCL UPVAR EXISTS
  33. ==== chain-2.1 FAILED
  34.  
  35.  
  36.  
  37. ==== chain-2.2 invoke a chained method FAILED
  38. ==== Contents of test case:
  39.  
  40. set test_chain_status ""
  41. $testobj show "hello there"
  42. set test_chain_status
  43.  
  44. ---- Result was:
  45. {b::show hello there} {a::show hello there} {d::show hello there}
  46. ---- Result should have been (exact matching):
  47. {b::show hello there} {a::show hello there}
  48. ==== chain-2.2 FAILED
  49.