Posted to tcl by emiliano at Tue May 05 22:41:35 GMT 2009view pretty
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.