Posted to tcl by dgp at Wed Jun 22 20:30:00 GMT 2011view raw
- ==== chain-2.1 create a test object in a base class FAILED
- ==== Contents of test case:
- set test_chain_status ""
- set testobj [test_chain_c #auto 4 5 6]
- set test_chain_status
- ---- Test generated error; Return code was: 1
- ---- Return code should have been one of: 0 2
- ---- errorInfo: variable "test_chain_status" already exists
- while executing
- "global ::test_chain_status"
- while constructing object "::test_chain_c0" in ::test_chain_b::constructor (body line 2)
- invoked from within
- "chain 4 5 6"
- ("eval" body line 1)
- invoked from within
- "eval chain $args"
- while constructing object "::test_chain_c0" in ::test_chain_a::constructor (body line 2)
- invoked from within
- "chain 4 5 6"
- ("eval" body line 1)
- invoked from within
- "eval chain $args"
- while constructing object "::test_chain_c0" in ::test_chain_c::constructor (body line 2)
- invoked from within
- "test_chain_c #auto 4 5 6"
- ("uplevel" body line 3)
- invoked from within
- "uplevel 1 $script"
- ---- errorCode: TCL UPVAR EXISTS
- ==== chain-2.1 FAILED
- ==== chain-2.2 invoke a chained method FAILED
- ==== Contents of test case:
- set test_chain_status ""
- $testobj show "hello there"
- set test_chain_status
- ---- Result was:
- {b::show hello there} {a::show hello there} {d::show hello there}
- ---- Result should have been (exact matching):
- {b::show hello there} {a::show hello there}
- ==== chain-2.2 FAILED