Posted to tcl by emiliano at Tue May 05 22:41:35 GMT 2009view raw
- Here's Tcl results (configured with --enable-threads)
- Warning: tclOOStubInit.c may be out of date.
- Developers may want to run "make genstubs" to regenerate.
- This warning can be safely ignored, do not report as a bug!
- LD_LIBRARY_PATH=`pwd`: TCLLIBPATH="/home/emiliano/src/tcl/unix/pkgs" TCL_LIBRARY="/home/emiliano/src/tcl/library" ./tcltest /home/emiliano/src/tcl/tests/all.tcl
- Tests running in interp: /home/emiliano/src/tcl/unix/tcltest
- Tests located in: /home/emiliano/src/tcl/tests
- Tests running in: /home/emiliano/src/tcl/unix
- Temporary files stored in /home/emiliano/src/tcl/unix
- 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 Tue May 05 19:24:52 ART 2009
- append.test
- appendComp.test
- apply.test
- assocd.test
- async.test
- ==== async-4.3 async interrupting loop-less bytecode sequence FAILED
- ==== Contents of test case:
- hang3 $hm
- ---- Result was:
- Async event not delivered
- ---- Result should have been (exact matching):
- test pattern
- ==== async-4.3 FAILED
- autoMkindex.test
- basic.test
- binary.test
- case.test
- chan.test
- chanio.test
- clock.test
- cmdAH.test
- cmdIL.test
- cmdInfo.test
- cmdMZ.test
- compExpr-old.test
- compExpr.test
- compile.test
- concat.test
- config.test
- coroutine.test
- dcall.test
- dict.test
- dstring.test
- encoding.test
- env.test
- error.test
- eval.test
- event.test
- exec.test
- execute.test
- expr-old.test
- expr.test
- fCmd.test
- fileName.test
- fileSystem.test
- for-old.test
- for.test
- foreach.test
- format.test
- get.test
- history.test
- http.test
- Running httpd in thread 140187678015488
- http11.test
- ==== http-2.6 -channel,encoding gzip,non-chunked FAILED
- ==== Contents of test case:
- set tok [http::geturl http://localhost:$httpd_port/testdoc.html?close=1 -timeout 5000 -channel $chan -headers {accept-encoding gzip}]
- http::wait $tok
- seek $chan 0
- set data [read $chan]
- list [http::status $tok] [http::code $tok] [check_crc $tok $data] [meta $tok connection] [meta $tok content-encoding] [meta $tok transfer-encoding] [expr {[file size testdoc.html]-[file size testfile.tmp]}]
- ---- Result was:
- ok {HTTP/1.1 200 OK} {crc32 mismatch: c554bc27 ne edc98c73} close gzip {} 121845
- ---- Result should have been (exact matching):
- ok {HTTP/1.1 200 OK} ok close gzip {} 0
- ==== http-2.6 FAILED
- ==== http-2.7 -channel,encoding deflate,non-chunked FAILED
- ==== Contents of test case:
- set tok [http::geturl http://localhost:$httpd_port/testdoc.html?close=1 -timeout 5000 -channel $chan -headers {accept-encoding deflate}]
- http::wait $tok
- seek $chan 0
- set data [read $chan]
- list [http::status $tok] [http::code $tok] [check_crc $tok $data] [meta $tok connection] [meta $tok content-encoding] [meta $tok transfer-encoding] [expr {[file size testdoc.html]-[file size testfile.tmp]}]
- ---- Result was:
- ok {HTTP/1.1 200 OK} {crc32 mismatch: c554bc27 ne edc98c73} close deflate {} 121845
- ---- Result should have been (exact matching):
- ok {HTTP/1.1 200 OK} ok close deflate {} 0
- ==== http-2.7 FAILED
- ==== http-2.8 -channel,encoding compress,non-chunked FAILED
- ==== Contents of test case:
- set tok [http::geturl http://localhost:$httpd_port/testdoc.html?close=1 -timeout 5000 -channel $chan -headers {accept-encoding compress}]
- http::wait $tok
- seek $chan 0
- set data [read $chan]
- list [http::status $tok] [http::code $tok] [check_crc $tok $data] [meta $tok connection] [meta $tok content-encoding] [meta $tok transfer-encoding] [expr {[file size testdoc.html]-[file size testfile.tmp]}]
- ---- Result was:
- ok {HTTP/1.1 200 OK} {crc32 mismatch: c554bc27 ne edc98c73} close compress {} 121845
- ---- Result should have been (exact matching):
- ok {HTTP/1.1 200 OK} ok close compress {} 0
- ==== http-2.8 FAILED
- httpold.test
- if-old.test
- if.test
- incr-old.test
- incr.test
- indexObj.test
- info.test
- ==== info-22.8 info frame, basic trace FAILED
- ==== Contents of test case:
- join [lrange [etrace] 0 2] \n
- ---- Result was:
- 8 {type source line 728 file info.test cmd {info frame $level} proc ::etrace level 0}
- 7 {type source line 765 file info.test cmd etrace proc ::tcltest::RunTest}
- 6 {type proc line 11 cmd {uplevel 1 $script} proc ::tcltest::RunTest}
- ---- Result should have been (glob matching):
- * {type source line 728 file info.test cmd {info frame $level} proc ::etrace level 0}
- * {type source line 765 file info.test cmd etrace proc ::tcltest::RunTest}
- * {type source line * file tcltest* cmd {uplevel 1 $script} proc ::tcltest::RunTest}
- ==== info-22.8 FAILED
- ==== info-38.7 location information for arg substitution FAILED
- ==== Contents of test case:
- join [lrange [testevalex {return -level 0 [etrace]}] 0 3] \n
- ---- Result was:
- 9 {type source line 728 file info.test cmd {info frame $level} proc ::etrace level 0}
- 8 {type eval line 1 cmd etrace proc ::tcltest::RunTest}
- 7 {type source line 1414 file info.test cmd {testevalex {return -level 0 [etrace]}} proc ::tcltest::RunTest}
- 6 {type proc line 11 cmd {uplevel 1 $script} proc ::tcltest::RunTest}
- ---- Result should have been (glob matching):
- * {type source line 728 file info.test cmd {info frame \$level} proc ::etrace level 0}
- * {type eval line 1 cmd etrace proc ::tcltest::RunTest}
- * {type source line 1414 file info.test cmd {testevalex {return -level 0 \[etrace]}} proc ::tcltest::RunTest}
- * {type source line 2298 file tcltest.tcl cmd {uplevel 1 $script} proc ::tcltest::RunTest}
- ==== info-38.7 FAILED
- init.test
- : Total 25 Passed 25 Skipped 0 Failed 0
- interp.test
- io.test
- ioCmd.test
- ioTrans.test
- iogt.test
- join.test
- lindex.test
- link.test
- linsert.test
- list.test
- listObj.test
- llength.test
- load.test
- lrange.test
- lrepeat.test
- lreplace.test
- lsearch.test
- lset.test
- lsetComp.test
- macOSXFCmd.test
- macOSXLoad.test
- main.test
- mathop.test
- misc.test
- msgcat.test
- namespace-old.test
- namespace.test
- notify.test
- nre.test
- obj.test
- oo.test
- opt.test
- package.test
- parse.test
- parseExpr.test
- parseOld.test
- pid.test
- pkg.test
- : Total 384 Passed 384 Skipped 0 Failed 0
- pkgMkIndex.test
- platform.test
- proc-old.test
- proc.test
- pwd.test
- reg.test
- regexp.test
- regexpComp.test
- registry.test
- rename.test
- result.test
- safe.test
- scan.test
- security.test
- set-old.test
- set.test
- socket.test
- source.test
- split.test
- stack.test
- string.test
- stringComp.test
- stringObj.test
- subst.test
- switch.test
- tailcall.test
- tcltest.test
- thread.test
- timer.test
- tm.test
- trace.test
- unixFCmd.test
- unixFile.test
- unixInit.test
- unixNotfy.test
- unknown.test
- unload.test
- uplevel.test
- upvar.test
- utf.test
- util.test
- var.test
- while-old.test
- while.test
- winConsole.test
- winDde.test
- winFCmd.test
- winFile.test
- winNotify.test
- winPipe.test
- winTime.test
- zlib.test
- Tests ended at Tue May 05 19:30:35 ART 2009
- all.tcl: Total 25053 Passed 24036 Skipped 1011 Failed 6
- Sourced 143 Test Files.
- Files with failing tests: async.test http11.test info.test
- Number of tests skipped for each constraint:
- 9 !ieeeFloatingPoint
- 2 95or98
- 3 asyncPipeChan
- 76 bigEndian
- 4 dontCopyLinks
- 61 emptyTest
- 1 execMknod
- 2 hasIsoLocale
- 2 impossible
- 30 knownBug
- 2 largefileSupport
- 100 localeRegexp
- 50 longIs32bit
- 14 macosxFileAttr
- 22 memory
- 44 nonPortable
- 5 notNetworkFilesystem
- 8 nt
- 3 singleTestInterp
- 1 testWinCPUID
- 1 testexprparser && !ieeeFloatingPoint
- 1 testwinclock
- 21 testwordend
- 3 unknownFailure
- 2 unthreaded
- 2 wideBiggerThanInt
- 526 win
- 5 xdev
- Configuring package 'itcl'
- Configuring package 'tdbc'
- Building package 'itcl'
- Building package 'tdbc'
- Testing package 'itcl'
- ITCL_LIBRARY=`echo /home/emiliano/src/tcl/pkgs/itcl/library` LD_LIBRARY_PATH=".:/home/emiliano/src/tcl/unix:../..:" PATH=".:/home/emiliano/src/tcl/unix:/bin:/usr/bin:/usr/pkg/bin:/usr/local/bin:/usr/X11R7/bin" TCLLIBPATH="." ../../tcltest `echo /home/emiliano/src/tcl/pkgs/itcl/tests/all.tcl` -load "package require itcl 4.0b3"
- Tests running in interp: /home/emiliano/src/tcl/unix/pkgs/itcl/../../tcltest
- Tests located in: /home/emiliano/src/tcl/pkgs/itcl/tests
- Tests running in: /home/emiliano/src/tcl/unix/pkgs/itcl
- Temporary files stored in /home/emiliano/src/tcl/unix/pkgs/itcl
- 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 Tue May 05 19:30:35 ART 2009
- basic.test
- ==== basic-1.19 classes can be unicode FAILED
- ==== Contents of test case:
- itcl::class \u6210bcd { method foo args { return "bar" } }
- \u6210bcd #auto
- ---- Result was:
- ---- Result should have been (exact matching):
- ?bcd0
- ==== basic-1.19 FAILED
- ==== basic-1.20 classes can be unicode FAILED
- ==== Contents of test case:
- \u6210bcd0 foo
- ---- Test generated error; Return code was: 1
- ---- Return code should have been one of: 0 2
- ---- errorInfo: invalid command name "?bcd0"
- while executing
- "\u6210bcd0 foo"
- ("uplevel" body line 2)
- invoked from within
- "uplevel 1 $script"
- ---- errorCode: NONE
- ==== basic-1.20 FAILED
- ==== basic-2.1 create an object with an automatic name FAILED
- ==== Contents of test case:
- Counter #auto
- ---- Test generated error; Return code was: 1
- ---- Return code should have been one of: 0 2
- ---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
- while executing
- "incr num"
- while constructing object "::counter0" in ::Counter::constructor (body line 2)
- invoked from within
- "Counter #auto"
- ("uplevel" body line 2)
- invoked from within
- "uplevel 1 $script"
- ---- errorCode: NONE
- ==== basic-2.1 FAILED
- ==== basic-2.2 bury "#auto" within object name FAILED
- ==== Contents of test case:
- Counter x#autoy
- ---- Test generated error; Return code was: 1
- ---- Return code should have been one of: 0 2
- ---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
- while executing
- "incr num"
- while constructing object "::xcounter1y" in ::Counter::constructor (body line 2)
- invoked from within
- "Counter x#autoy"
- ("uplevel" body line 2)
- invoked from within
- "uplevel 1 $script"
- ---- errorCode: NONE
- ==== basic-2.2 FAILED
- ==== basic-2.3 bury "#auto" within object name FAILED
- ==== Contents of test case:
- Counter a#aut#autob
- ---- Test generated error; Return code was: 1
- ---- Return code should have been one of: 0 2
- ---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
- while executing
- "incr num"
- while constructing object "::a#autcounter2b" in ::Counter::constructor (body line 2)
- invoked from within
- "Counter a#aut#autob"
- ("uplevel" body line 2)
- invoked from within
- "uplevel 1 $script"
- ---- errorCode: NONE
- ==== basic-2.3 FAILED
- ==== basic-2.4 "#auto" is smart enough to skip names that are taken FAILED
- ==== Contents of test case:
- Counter counter3
- Counter #auto
- ---- Test generated error; Return code was: 1
- ---- Return code should have been one of: 0 2
- ---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
- while executing
- "incr num"
- while constructing object "::counter3" in ::Counter::constructor (body line 2)
- invoked from within
- "Counter counter3"
- ("uplevel" body line 2)
- invoked from within
- "uplevel 1 $script"
- ---- errorCode: NONE
- ==== basic-2.4 FAILED
- ==== basic-3.1 object access command works FAILED
- ==== Contents of test case:
- Counter c
- list [c ++] [c ++] [c ++]
- ---- Test generated error; Return code was: 1
- ---- Return code should have been one of: 0 2
- ---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
- while executing
- "incr num"
- while constructing object "::c" in ::Counter::constructor (body line 2)
- invoked from within
- "Counter c"
- ("uplevel" body line 2)
- invoked from within
- "uplevel 1 $script"
- ---- errorCode: NONE
- ==== basic-3.1 FAILED
- ==== basic-3.2 errors produce usage info FAILED
- ==== Contents of test case:
- list [catch "c xyzzy" msg] $msg
- ---- Result was:
- 1 {invalid command name "c"}
- ---- Result should have been (exact matching):
- 1 {bad option "xyzzy": should be one of...
- c ++
- c cget -option
- c configure ?-option? ?value -option value...?
- c isa className}
- ==== basic-3.2 FAILED
- ==== basic-3.3 built-in configure can query public variables FAILED
- ==== Contents of test case:
- c configure
- ---- Test generated error; Return code was: 1
- ---- Return code should have been one of: 0 2
- ---- errorInfo: invalid command name "c"
- while executing
- "c configure"
- ("uplevel" body line 2)
- invoked from within
- "uplevel 1 $script"
- ---- errorCode: NONE
- ==== basic-3.3 FAILED
- ==== basic-3.4 built-in configure can query one public variable FAILED
- ==== Contents of test case:
- c configure -by
- ---- Test generated error; Return code was: 1
- ---- Return code should have been one of: 0 2
- ---- errorInfo: invalid command name "c"
- while executing
- "c configure -by"
- ("uplevel" body line 2)
- invoked from within
- "uplevel 1 $script"
- ---- errorCode: NONE
- ==== basic-3.4 FAILED
- ==== basic-3.5 built-in configure can set public variable FAILED
- ==== Contents of test case:
- list [c configure -by 2] [c cget -by]
- ---- Test generated error; Return code was: 1
- ---- Return code should have been one of: 0 2
- ---- errorInfo: invalid command name "c"
- while executing
- "c configure -by 2"
- ("uplevel" body line 2)
- invoked from within
- "uplevel 1 $script"
- ---- errorCode: NONE
- ==== basic-3.5 FAILED
- ==== basic-3.6 configure actually changes public variable FAILED
- ==== Contents of test case:
- list [c ++] [c ++]
- ---- Test generated error; Return code was: 1
- ---- Return code should have been one of: 0 2
- ---- errorInfo: invalid command name "c"
- while executing
- "c ++"
- ("uplevel" body line 2)
- invoked from within
- "uplevel 1 $script"
- ---- errorCode: NONE
- ==== basic-3.6 FAILED
- ==== basic-3.7 class procs can be accessed FAILED
- ==== Contents of test case:
- Counter::num
- ---- Test generated error; Return code was: 1
- ---- Return code should have been one of: 0 2
- ---- errorInfo: can't read "num": no such variable
- while executing
- "return $num"
- invoked from within
- "Counter::num"
- ("uplevel" body line 2)
- invoked from within
- "uplevel 1 $script"
- ---- errorCode: TCL READ VARNAME
- ==== basic-3.7 FAILED
- ==== basic-4.1 classes can be destroyed FAILED
- ==== Contents of test case:
- list [itcl::delete class Counter] [itcl::find classes Counter] [namespace children :: Counter] [namespace which -command Counter]
- ---- Test generated error; Return code was: 1
- ---- Return code should have been one of: 0 2
- ---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
- while executing
- "incr num -1"
- while deleting object "::-foo" in ::Counter::destructor (body line 2)
- (while deleting class "::Counter")
- invoked from within
- "itcl::delete class Counter"
- ("uplevel" body line 2)
- invoked from within
- "uplevel 1 $script"
- ---- errorCode: TCL WRITE VARNAME
- ==== basic-4.1 FAILED
- ==== basic-4.2 classes can be redefined FAILED
- ==== Contents of test case:
- itcl::class Counter {
- method ++ {} {
- return [incr val $by]
- }
- public variable by 1
- protected variable val 0
- }
- ---- Test generated error; Return code was: 1
- ---- Return code should have been one of: 0 2
- ---- errorInfo: class "Counter" already exists
- while executing
- "itcl::class Counter {
- method ++ {} {
- return [incr val $by]
- }
- public variable by 1
- protected variable val 0..."
- ("uplevel" body line 2)
- invoked from within
- "uplevel 1 $script"
- ---- errorCode: NONE
- ==== basic-4.2 FAILED
- ==== basic-4.3 the redefined class is actually different FAILED
- ==== Contents of test case:
- list [catch "Counter::num" msg] $msg
- ---- Result was:
- 1 {can't read "num": no such variable}
- ---- Result should have been (exact matching):
- 1 {invalid command name "Counter::num"}
- ==== basic-4.3 FAILED
- ==== basic-4.4 objects can be created from the new class FAILED
- ==== Contents of test case:
- list [Counter #auto] [Counter #auto]
- ---- Test generated error; Return code was: 1
- ---- Return code should have been one of: 0 2
- ---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
- while executing
- "incr num"
- while constructing object "::counter3" in ::Counter::constructor (body line 2)
- invoked from within
- "Counter #auto"
- ("uplevel" body line 2)
- invoked from within
- "uplevel 1 $script"
- ---- errorCode: NONE
- ==== basic-4.4 FAILED
- ==== basic-4.5 namespaces for #auto are prepended to the command name FAILED
- ==== Contents of test case:
- namespace eval someNS1 {}
- namespace eval someNS2 {}
- list [Counter someNS1::#auto] [Counter someNS2::#auto]
- ---- Test generated error; Return code was: 1
- ---- Return code should have been one of: 0 2
- ---- errorInfo: can't set "num": upvar refers to variable in deleted namespace
- while executing
- "incr num"
- while constructing object "::someNS1::counter4" in ::Counter::constructor (body line 2)
- invoked from within
- "Counter someNS1::#auto"
- ("uplevel" body line 4)
- invoked from within
- "uplevel 1 $script"
- ---- errorCode: NONE
- ---- Test cleanup failed:
- object "someNS1::counter2" not found
- ---- errorInfo(cleanup): object "someNS1::counter2" not found
- while executing
- "::itcl::delete object someNS1::counter2 someNS2::counter3"
- ("uplevel" body line 2)
- invoked from within
- "uplevel 1 $cleanup"
- ---- errorCode(cleanup): NONE
- ==== basic-4.5 FAILED
- ==== basic-4.6 when a class is destroyed, its objects are deleted FAILED
- ==== Contents of test case:
- list [lsort [itcl::find objects counter*]] [itcl::delete class Counter] [lsort [itcl::find objects counter*]]
- ---- Result was:
- {} {} {}
- ---- Result should have been (exact matching):
- {counter0 counter1} {} {}
- ==== basic-4.6 FAILED
- body.test
- chain.test
- delete.test
- eclasscomponent.test
- ensemble.test
- general1.test
- import.test
- info.test
- inherit.test
- interp.test
- local.test
- methods.test
- mkindex.test
- namespace.test
- protection.test
- scope.test
- typeclass.test
- typedelegation.test
- typefunction.test
- typeinfo.test
- typeoption.test
- typevariable.test
- widgetadaptor.test
- widgetclass.test
- Tests ended at Tue May 05 19:30:36 ART 2009
- all.tcl: Total 742 Passed 658 Skipped 65 Failed 19
- Sourced 25 Test Files.
- Files with failing tests: basic.test
- Number of tests skipped for each constraint:
- 5 needs_frq_1773103
- 2 only_working_in_itcl3.4
- 58 tk
- Testing package 'tdbc'
- LD_LIBRARY_PATH=".:/home/emiliano/src/tcl/unix:../..:" PATH=".:/home/emiliano/src/tcl/unix:/bin:/usr/bin:/usr/pkg/bin:/usr/local/bin:/usr/X11R7/bin" TCLLIBPATH="../../pkgs" TDBC_LIBRARY=`echo /home/emiliano/src/tcl/pkgs/tdbc/library` TCL_LIBRARY=`echo /home/emiliano/src/tcl/library` ../../tcltest `echo /home/emiliano/src/tcl/pkgs/tdbc/tests/all.tcl`
- Tests running in interp: /home/emiliano/src/tcl/unix/pkgs/tdbc/../../tcltest
- Tests running with pwd: /home/emiliano/src/tcl/unix/pkgs/tdbc
- Tests running in working dir: /home/emiliano/src/tcl/pkgs/tdbc/tests
- Only running tests that match: *
- Skipping test files that match: l.*.test
- Only sourcing test files that match: *.test
- Tests began at Tue May 05 19:30:36 ART 2009
- tdbc.test
- tokenize.test
- Tests ended at Tue May 05 19:30:36 ART 2009
- all.tcl: Total 12 Passed 12 Skipped 0 Failed 0
- Sourced 0 Test Files.
- Now, the threads package test
- TCL_LIBRARY=`echo /home/emiliano/src/tcl/library` TCL_THREAD_LIBRARY=`echo ./lib` LD_LIBRARY_PATH=".:/home/emiliano/src/tcl/unix:" PATH=".:/home/emiliano/src/tcl/unix:/bin:/usr/bin:/usr/pkg/bin:/usr/local/bin:/usr/X11R7/bin" TCLLIBPATH=". ./../lib" /home/emiliano/src/tcl/unix/tclsh `echo ./tests/all.tcl`
- Tcl 8.6b1.1 tests running in interp: /home/emiliano/src/tcl/unix/tclsh
- Tests running in working dir: /home/emiliano/src/thread/tests
- Only running tests that match: *
- Skipping test files that match: l.*.test
- Only sourcing test files that match: *.test
- Tests began at Tue May 05 19:33:54 ART 2009
- Thread 2.6.5
- Mainthread id is tid0x7f7fffe00000
- thread.test
- tpool.test
- tsv.test
- ttrace.test
- Tests ended at Tue May 05 19:34:08 ART 2009
- all.tcl: Total 116 Passed 116 Skipped 0 Failed 0
- Sourced 0 Test Files.