|
From: Virden, L. W. <lv...@ca...> - 2008-08-23 04:57:36
|
$ fgrep -c FAILED tcllib/unix/casrun.lwv
148
Now, for each failure, there's two lines with FAILED in it. So 74 test cases
failed.
It appears there are quite a large number of errors being generated when I run
the tcllib test suite against tcl 8.5.4 built on sparc solaris.
With this many errors, I don't have time, and you probalby don't have the
energy, to handle that many bug reports.
Here's a sampling of what I see:
==== do-2.3 wrong no of arguments FAILED
==== Contents of test case:
set res [catch do]
if {[string match {no value given for parameter "body" to "do"*} $::errorInfo]
} then {
set ::errorInfo {wrong # args: should be "do body args"
while executing
"do"}
}
list $res $::errorInfo
---- Result was:
1 {wrong # args: should be "do body ?arg ...?"
while executing
"do"}
---- Result should have been (exact matching):
1 {wrong # args: should be "do body ..."
while executing
"do"}
==== do-2.3 FAILED
This difference in error message appears to be the sort of thing many of
the failures are.
Here's a slight variation of the error, I think.
==== htypemethod-1.6 proper error on missing submethod FAILED
==== Contents of test case:
cleanup
type dog {
typemethod {wag tail} {} { }
}
dog wag
---- Result was:
wrong # args: should be "dog wag subcommand ?arg ...?"
---- Result should have been (exact matching):
wrong # args: should be "dog wag subcommand ?argument ...?"
==== htypemethod-1.6 FAILED
Here's another type of error:
==== tree-tcl-4.4.17 error in walk FAILED
==== Contents of test case:
set t [list ]
proc foo {} {
global t
tree mytree
mytree insert root end 0 1 2 3
mytree insert 0 end a b c
lappend t ==
mytree walk root {a n} {
if {[string equal $n "b"]} {
lappend t .
error fubar
}
lappend t $a $n
}
lappend t ==
return bad-return
}
catch {lappend t [foo]} result
mytree destroy
list $t $result $::errorInfo
---- Result was:
{== enter root enter 0 enter a .} fubar {fubar
while executing
"error fubar"
("WalkCall" body line 4)
invoked from within
"WalkCall $avar $nvar $name $node "enter" $script"
(procedure "::struct::tree::_walk" line 88)
invoked from within
"::struct::tree::_walk ::mytree root {a n} {
if {[string equal $n "b"]} {
lappend t .
error fubar
}
lappend t $a $n
}"
("_walk" body line 1)
invoked from within
"mytree walk root {a n} {
if {[string equal $n "b"]} {
lappend t .
error fubar
}
lappend t $a $n
}"
(procedure "foo" line 7)
invoked from within
"foo"}
---- Result should have been (exact matching):
{== enter root enter 0 enter a .} fubar {fubar
while executing
"error fubar"
invoked from within
"if {[string equal $n "b"]} {
lappend t .
error fubar
}"
("WalkCall" body line 2)
invoked from within
"WalkCall $avar $nvar $name $node "enter" $script"
(procedure "::struct::tree::_walk" line 88)
invoked from within
"::struct::tree::_walk ::mytree root {a n} {
if {[string equal $n "b"]} {
lappend t .
error fubar
}
lappend t $a $n
}"
("_walk" body line 1)
invoked from within
"mytree walk root {a n} {
if {[string equal $n "b"]} {
lappend t .
error fubar
}
lappend t $a $n
}"
(procedure "foo" line 7)
invoked from within
"foo"}
==== tree-tcl-4.4.17 FAILED
--
Tcl - The glue of a new generation. <URL: http://wiki.tcl.tk/ >
Larry W. Virden <mailto:lv...@ca...><URL: http://www.purl.org/NET/lvirden/ >
Even if explicitly stated to the contrary, nothing in this posting should
be construed as representing my employer's opinions.
-><-
|