Posted to tcl by miguel at Wed Jul 06 15:33:40 GMT 2011view raw
- mig@ari:~/DEVEL/itcl/itcl-3-branch$ make test
- 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"
- Tests running in interp: /home/mig/DEVEL/tcl-core/trunk/unix/tclsh
- Tests located in: /home/mig/DEVEL/itcl/itcl-3-branch/tests
- Tests running in: /home/mig/DEVEL/itcl/itcl-3-branch
- Temporary files stored in /home/mig/DEVEL/itcl/itcl-3-branch
- Test files run in separate interpreters
- Running tests that match: *
- Skipping test files that match: l.*.test
- Only running test files that match: *.test
- Tests began at Wed Jul 06 12:29:57 ART 2011
- basic.test
- body.test
- chain.test
- ==== 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
- delete.test
- ensemble.test
- import.test
- info.test
- inherit.test
- interp.test
- local.test
- methods.test
- mkindex.test
- namespace.test
- protection.test
- scope.test
- Tests ended at Wed Jul 06 12:29:58 ART 2011
- all.tcl: Total 400 Passed 398 Skipped 0 Failed 2
- Sourced 15 Test Files.
- Files with failing tests: chain.test
- mig@ari:~/DEVEL/itcl/itcl-3-branch$