[Tcllib-devel] has anyone began testing tcllib cvs head and tcl 8.5.4?

[Virden, L. W. <lv...@ca...>]

$ 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.
-><-