Tk Library Source Code

With the latest Tcl cvs head (well, as of at least the
past day or two), the tcllib test suite has begun
showing 8 failures.  I don't know whether this is a
fundamental change in tcltest, tcl, or tcllib, or the
tcllib test suite.

Platform SPARC Solaris 2.6, Sun C compiler, Tcl 8.4a5
from May 8:

$ make test
/usr/tcl84/bin/tclsh8.4 `echo
/vol/tclsrcsol/tcl84/tcllib/all.tcl` -modules "base64
calendar cmdline comm control crc csv counter doctools
dns exif struct fileutil ftp ftpd javascript html irc
math md5 mime ncgi nntp pop3 pop3d profiler smtpd
textutil uri log htmlparse report sha1 stooop"
tcllib tests
Tests running in working dir: 
/vol/tclsrcsol/tcl84/tcllib
Only sourcing test files that match:  *.test
Tests began at Thu May 09 06:56:21 EDT 2002
Module: base64
modules/base64/base64.test
base64 2.2 (pure Tcl)
modules/base64/uuencode.test
notice    invalid uuencoded string: padding string to a
multiple of 4.
notice    invalid uuencoded string: padding string to a
multiple of 4.
modules/base64/yencode.test

==== yencode-1.0 yencode yEnc test file FAILED
==== Contents of test case:

    set enc [yencode::yencode -file $datafile]
    set dec [yencode::ydecode $d]
    set chk [yencode::loaddata $datafile]
    string match $dec $chk

---- Result was:
couldn't open "yencode.test.data": no such file or
directory
---- Result should have been (exact matching):
0
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== yencode-1.0 FAILED


Module: calendar
modules/calendar/gregorian.test

Module: cmdline
modules/cmdline/cmdline.test
modules/cmdline/typedCmdline.test

Module: comm
modules/comm/comm.test
comm 4.0
self @ 55116
Waiting for spawned comm system to boot
Slave @ 55117
Running tests

Module: control
modules/control/do.test
modules/control/no-op.test

Module: crc
modules/crc/cksum.test
modules/crc/crc32.test
modules/crc/sum.test

Module: csv
modules/csv/csv.test
csv 0.3
- struct 1.2.1

Module: counter
modules/counter/counter.test
incr scaler 12 microseconds per iteration
incr array 16 microseconds per iteration
rawcount 32 microseconds per iteration
simple 72 microseconds per iteration
lastn 153 microseconds per iteration
lastn 154 microseconds per iteration
hist 186 microseconds per iteration
hist2x 282 microseconds per iteration
Pausing during timehist tests
timehist 259 microseconds per iteration

Module: doctools
Error:  No test files remain after applying your match
and skip patterns!

Module: dns
Error:  No test files remain after applying your match
and skip patterns!

Module: exif
Error:  No test files remain after applying your match
and skip patterns!

Module: struct
modules/struct/graph.test
modules/struct/matrix.test
modules/struct/queue.test
modules/struct/stack.test
modules/struct/tree.test

Module: fileutil
modules/fileutil/fileutil.test
fileutil 1.4

Module: ftp
Error:  No test files remain after applying your match
and skip patterns!

Module: ftpd
Error:  No test files remain after applying your match
and skip patterns!

Module: javascript
Error:  No test files remain after applying your match
and skip patterns!

Module: html
modules/html/html.test

Module: irc
Error:  No test files remain after applying your match
and skip patterns!

Module: math
modules/math/calculus.test
Method: eulerStep
Result (0.0): 1.0
Result (1.0): 2.0
Result (2.0): 3.0
Result (3.0): 4.0
Result (4.0): 5.0
Result (5.0): 6.0
Result (6.0): 7.0
Result (7.0): 8.0
Result (8.0): 9.0
Result (9.0): 10.0
Result (0.0): 1.0 -0.1
Result (0.1): 0.99 -0.19
Result (0.2): 0.971 -0.27
Result (0.3): 0.944 -0.3401
Result (0.4): 0.90999 -0.40049
Result (0.5): 0.869941 -0.45144
Result (0.6): 0.824797 -0.4932901
Result (0.7): 0.77546799 -0.52644079
Result (0.8): 0.722823911 -0.55134351
Result (0.9): 0.66768956 -0.5684915501
Result (1.0): 0.61084040499 -0.57841135109
Result (1.1): 0.552999269881 -0.58165425648
Result (1.2): 0.494833844233 -0.57878875782
Result (1.3): 0.436954968451 -0.570393266461
Result (1.4): 0.379915641805 -0.55704943666
Result (1.5): 0.324210698139 -0.539336057175
Result (1.6): 0.270277092421 -0.517823521271
Result (1.7): 0.218494740294 -0.493068878386
Result (1.8): 0.169187852456 -0.465611464577
Result (1.9): 0.122626705998 -0.435969103365
Method: heunStep
Result (0.0): 1.0
Result (1.0): 2.0
Result (2.0): 3.0
Result (3.0): 4.0
Result (4.0): 5.0
Result (5.0): 6.0
Result (6.0): 7.0
Result (7.0): 8.0
Result (8.0): 9.0
Result (9.0): 10.0
Result (0.0): 0.995 -0.095
Result (0.1): 0.981 -0.180025
Result (0.2): 0.958992625 -0.2552175
Result (0.3): 0.929951999375 -0.320800049375
Result (0.4): 0.894826234687 -0.377065484378
Result (0.5): 0.854530882498 -0.424367428236
Result (0.6): 0.809943322403 -0.463111119249
Result (0.7): 0.761898049463 -0.493744622953
Result (0.8): 0.711182820035 -0.516750475356
Result (0.9): 0.658535610776 -0.532637795724
Result (1.0): 0.604642342128 -0.541934899175
Result (1.1): 0.550135314996 -0.54518243176
Result (1.2): 0.495592307404 -0.542927043509
Result (1.3): 0.441536276733 -0.535715608361
Result (1.4): 0.388435612555 -0.524089993815
Result (1.5): 0.33670488508 -0.508582377626
Result (1.6): 0.28670603478 -0.489711103946
Result (1.7): 0.238749949731 -0.467977066855
Result (1.8): 0.193098378632 -0.443860605394
Result (1.9): 0.149966129226 -0.417818890825
Method: rungeKuttaStep
Result (0.0): 1.0
Result (1.0): 2.0
Result (2.0): 3.0
Result (3.0): 4.0
Result (4.0): 5.0
Result (5.0): 6.0
Result (6.0): 7.0
Result (7.0): 8.0
Result (8.0): 9.0
Result (9.0): 10.0
Result (0.0): 0.995958333333 -0.0958354166667
Result (0.1): 0.982748574648 -0.181711736628
Result (0.2): 0.9613622125 -0.257745017496
Result (0.3): 0.932775605745 -0.324134745107
Result (0.4): 0.897942049319 -0.381154050992
Result (0.5): 0.857784809578 -0.429140146517
Result (0.6): 0.813191104556 -0.468485044978
Result (0.7): 0.765006997688 -0.499626633435
Result (0.8): 0.714033167813 -0.523040146908
Result (0.9): 0.661021513347 -0.53923008872
Result (1.0): 0.606672544499 -0.54872263237
Result (1.1): 0.55163351419 -0.552058532372
Result (1.2): 0.49649723593 -0.54978656401
Result (1.3): 0.441801535162 -0.54245750502
Result (1.4): 0.388029279606 -0.530618665792
Result (1.5): 0.335608933674 -0.514808968781
Result (1.6): 0.284915582207 -0.495554572501
Result (1.7): 0.236272369459 -0.473365030702
Result (1.8): 0.189952300346 -0.448729973058
Result (1.9): 0.146180352526 -0.422116289995
5.0 0.909090909091 15.0 0.818181818182 25.0
0.727272727273 35.0 0.636363636364 45.0 0.545454545455
55.0 0.454545454545 65.0 0.363636363636 75.0
0.272727272727 85.0 0.181818181818 95.0 0.0909090909091
5.0 0.0909090909091 15.0 0.181818181818 25.0
0.272727272727 35.0 0.363636363636 45.0 0.454545454545
55.0 0.545454545455 65.0 0.636363636364 75.0
0.727272727273 85.0 0.818181818182 95.0 0.909090909091
modules/math/combinatorics.test
modules/math/geometry.test
modules/math/math.test

Module: md5
modules/md5/md5.test
md5 1.4.2 (pure Tcl)

Module: mime
modules/mime/mime.test

Module: ncgi
modules/ncgi/ncgi.test
NO
NO
DELIM
env array elements created:     SERVER_PORT REQUEST_URI
QUERY_STRING CONTENT_TYPE CONTENT_LENGTH SERVER_NAME
HTTPS REQUEST_METHOD

Module: nntp
Error:  No test files remain after applying your match
and skip patterns!

Module: pop3
Error:  No test files remain after applying your match
and skip patterns!

Module: pop3d
Error:  No test files remain after applying your match
and skip patterns!

Module: profiler
modules/profiler/profiler.test

Module: smtpd
Error:  No test files remain after applying your match
and skip patterns!

Module: textutil
modules/textutil/adjust.test
modules/textutil/expander.test
modules/textutil/repeat.test
modules/textutil/split.test
modules/textutil/tabify.test
modules/textutil/textutil.test
modules/textutil/trim.test

Module: uri
modules/uri/uri.test
modules/uri/urn.test

Module: log
modules/log/log.test
log 1.0.1

Module: htmlparse
modules/htmlparse/htmlparse.test
htmlparse 0.2

Module: report
modules/report/report.test
report 0.3
- struct  1.2.1

Module: sha1
modules/sha1/sha1.test
sha1 1.0.2 (pure Tcl)

Module: stooop
modules/stooop/stooop.test

==== stooop-86 verify member writing and unsetting
within class procedures in member data
    checking mode
    (it seems that unset tracing prevents error
reporting at this time (bug?)) FAILED
==== Contents of test case:

    set interpreter [interp create]
    $interpreter eval {
        # reset any existing environment variables:
        foreach name [array names env STOOOP*] {unset
env($name)}
        set env(STOOOPCHECKDATA) 1
    }
    $interpreter eval "source $source; namespace import
stooop::*"
    set result [$interpreter eval {
        class a {}
        proc a::a {this} {}
        proc a::~a {this} {}
        proc a::p {this} {
            set b::($this,m) 0
        }
        proc a::q {this} {
            set b::(n) 0
        }
        proc a::r {this} {
            unset b::($this,m)
        }
        proc a::s {this} {
            unset b::(n)
        }
        set o [new a]
        class b {}
        set b::($o,m) 0
        set b::(n) 0
        catch {a::p $o} message; lappend ::result
$message
        catch {a::q $o} message; lappend ::result
$message
        catch {a::r $o} message; lappend ::result bug
        catch {a::s $o} message; lappend ::result bug
        delete $o

        class A {
            proc A {this} {}
            proc ~A {this} {}
            proc p {this} {
                set B::($this,m) 0
            }
            proc q {this} {
                set B::(n) 0
            }
            proc r {this} {
                unset B::($this,m)
            }
            proc s {this} {
                unset B::(n)
            }
        }
        set o [new A]
        class B {
            set ($o,m) 0
            set (n) 0
        }
        class A {
            catch {p $o} message; lappend ::result
$message
            catch {q $o} message; lappend ::result
$message
            catch {r $o} message; lappend ::result bug
            catch {s $o} message; lappend ::result bug
        }
        delete $o

        class c {}
        class c::d {}
        proc c::d::d {this} {}
        proc c::d::~d {this} {}
        proc c::d::p {this} {
            set c::e::($this,m) 0
        }
        proc c::d::q {this} {
            set c::e::(n) 0
        }
        proc c::d::r {this} {
            unset c::e::($this,m)
        }
        proc c::d::s {this} {
            unset c::e::(n)
        }
        class c::e {}
        set o [new c::d]
        set c::e::($o,m) 0
        set c::e::(n) 0
        catch {c::d::p $o} message; lappend ::result
$message
        catch {c::d::q $o} message; lappend ::result
$message
        catch {c::d::r $o} message; lappend ::result
bug
        catch {c::d::s $o} message; lappend ::result
bug
        delete $o

        class C {
            class D {
                proc D {this} {}
                proc ~D {this} {}
                proc p {this} {
                    set C::E::($this,m) 0
                }
                proc q {this} {
                    set C::E::(n) 0
                }
                proc r {this} {
                    unset C::E::($this,m)
                }
                proc s {this} {
                    unset C::E::(n)
                }
            }
            set ::o [new D]
            class E {
                set ($o,m) 0
                set (n) 0
            }
            class D {
                catch {p $o} message; lappend ::result
$message
                catch {q $o} message; lappend ::result
$message
                catch {r $o} message; lappend ::result
bug
                catch {s $o} message; lappend ::result
bug
            }
        }
        catch {C::D::p $o} message; lappend ::result
$message
        catch {C::D::q $o} message; lappend ::result
$message
        catch {C::D::r $o} message; lappend ::result
bug
        catch {C::D::s $o} message; lappend ::result
bug
        delete $o

        set ::result
    }]
    interp delete $interpreter
    set result

---- Result was:
can't set "(2,m)": "::namespace" isn't a procedure
---- Result should have been (exact matching):
{can't set "b::(1,m)": class access violation in
procedure ::a::p} {can't set "b::(n)": class access
violation in procedure ::a::q} bug bug {can't set
"B::(2,m)": class access violation in procedure ::A::p}
{can't set "B::(n)": class access violation in
procedure ::A::q} bug bug {can't set "c::e::(3,m)":
class access violation in procedure ::c::d::p} {can't
set "c::e::(n)": class access violation in procedure
::c::d::q} bug bug {can't set "C::E::(4,m)": class
access violation in procedure ::C::D::p} {can't set
"C::E::(n)": class access violation in procedure
::C::D::q} bug bug {can't set "C::E::(4,m)": class
access violation in procedure ::C::D::p} {can't set
"C::E::(n)": class access violation in procedure
::C::D::q} bug bug
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== stooop-86 FAILED


==== stooop-87 verify member writing and unsetting
within class namespaces in member data
    checking mode
    (it seems that unset tracing prevents error
reporting at this time (bug?)) FAILED
==== Contents of test case:

    set interpreter [interp create]
    $interpreter eval {
        # reset any existing environment variables:
        foreach name [array names env STOOOP*] {unset
env($name)}
        set env(STOOOPCHECKDATA) 1
    }
    $interpreter eval "source $source; namespace import
stooop::*"
    set result [$interpreter eval {
        class a {
            set (m) 0
        }
        proc a::a {this} {
            set ($this,n) 0
        }
        proc a::~a {this} {}
        set o [new a]
        catch {class b {incr a::(m)}} message; lappend
::result $message
        catch {class b {incr a::($o,n)}} message;
lappend ::result $message
        catch {class b {unset a::(m)}} message; lappend
::result bug
        catch {class b {unset a::($o,n)}} message;
lappend ::result bug
        delete $o

        class A {
            set (m) 0
            proc A {this} {
                set ($this,n) 0
            }
            proc ~A {this} {}
        }
        set o [new A]
        class B {
            catch {incr A::(m)} message; lappend
::result $message
            catch {incr A::($o,n)} message; lappend
::result $message
            catch {unset A::(m)} message; lappend
::result bug
            catch {unset A::($o,n)} message; lappend
::result bug
        }
        delete $o

        class c {}
        class c::d {
            set (m) 0
        }
        proc c::d::d {this} {
            set ($this,n) 0
        }
        proc c::d::~d {this} {}
        set o [new c::d]
        catch {class c::e {incr c::d::(m)}} message;
lappend ::result $message
        catch {class c::e {incr c::d::($o,n)}} message;
lappend ::result $message
        catch {class c::e {unset c::d::(m)}} message;
lappend ::result bug
        catch {class c::e {unset c::d::($o,n)}}
message; lappend ::result bug
        delete $o

        class C {
            class D {
                set (m) 0
                proc D {this} {
                    set ($this,n) 0
                }
                proc ~D {this} {}
            }
            set ::o [new D]
            class B {
                catch {incr C::D::(m)} message; lappend
::result $message
                catch {incr C::D::($o,n)} message;
lappend ::result $message
                catch {unset C::D::(m)} message;
lappend ::result bug
                catch {unset C::D::($o,n)} message;
lappend ::result bug
            }
        }
        catch {incr C::D::(m)} message; lappend
::result $message
        catch {incr C::D::($o,n)} message; lappend
::result $message
        catch {unset C::D::(m)} message; lappend
::result bug
        catch {unset C::D::($o,n)} message; lappend
::result bug
        delete $o

        set ::result
    }]
    interp delete $interpreter
    set result

---- Result was:
can't set "(m)": "::namespace" isn't a procedure
---- Result should have been (exact matching):
{can't set "a::(m)": class access violation in class b
namespace} {can't set "a::(1,n)": class access
violation in class b namespace} bug bug {can't set
"A::(m)": class access violation in class B namespace}
{can't set "A::(2,n)": class access violation in class
B namespace} bug bug {can't set "c::d::(m)": class
access violation in class c::e namespace} {can't set
"c::d::(3,n)": class access violation in class c::e
namespace} bug bug {can't set "C::D::(m)": class access
violation in class C::B namespace} {can't set
"C::D::(4,n)": class access violation in class C::B
namespace} bug bug {can't read "C::D::(m)": no such
element in array} {can't read "C::D::(4,n)": no such
element in array} bug bug
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== stooop-87 FAILED


==== stooop-89 verify both data and procedure static
access in member data checking mode FAILED
==== Contents of test case:

    set interpreter [interp create]
    $interpreter eval {
        # reset any existing environment variables:
        foreach name [array names env STOOOP*] {unset
env($name)}
        set env(STOOOPCHECKDATA) 1
    }
    $interpreter eval "source $source; namespace import
stooop::*"
    set result [$interpreter eval {
        class a {
            set (m) 0
        }
        proc a::a {this} {
            set ($this,n) 0
        }
        proc a::~a {this} {}
        proc a::p {this} {
            incr (m)
            incr b::(o)
        }
        proc a::q {object} {
            incr ($object,n)
            incr b::($object,p)
        }
        class b {
            set (o) 0
        }
        proc b::b {this} a {} {
            set ($this,p) 0
        }
        proc b::~b {this} {}
        proc b::r {this} {
            incr (o)
            incr a::(m)
        }
        proc b::s {object} {
            incr ($object,p)
            incr a::($object,n)
        }
        set o [new b]
        catch {a::p $o} message; lappend ::result
$message
        catch {a::q $o} message; lappend ::result
$message
        catch {b::r $o} message; lappend ::result
$message
        catch {b::s $o} message; lappend ::result
$message
        delete $o

        class A {
            set (m) 0
            proc A {this} {
                set ($this,n) 0
            }
            proc ~A {this} {}
            proc p {this} {
                incr (m)
                incr B::(o)
            }
            proc q {object} {
                incr ($object,n)
                incr B::($object,p)
            }
        }
        class B {
            set (o) 0
            proc B {this} A {} {
                set ($this,p) 0
            }
            proc ~B {this} {}
            proc r {this} {
                incr (o)
                incr A::(m)
            }
            proc s {object} {
                incr ($object,p)
                incr A::($object,n)
            }
        }
        set o [new B]
        catch {A::p $o} message; lappend ::result
$message
        catch {A::q $o} message; lappend ::result
$message
        catch {B::r $o} message; lappend ::result
$message
        catch {B::s $o} message; lappend ::result
$message
        delete $o

        class c {}
        class c::d {
            set (m) 0
        }
        proc c::d::d {this} {
            set ($this,n) 0
        }
        proc c::d::~d {this} {}
        proc c::d::p {this} {
            incr (m)
            incr c::e::(o)
        }
        proc c::d::q {object} {
            incr ($object,n)
            incr c::e::($object,p)
        }
        class c::e {
            set (o) 0
        }
        proc c::e::e {this} c::d {} {
            set ($this,p) 0
        }
        proc c::e::~e {this} {}
        proc c::e::r {this} {
            incr (o)
            incr c::d::(m)
        }
        proc c::e::s {object} {
            incr ($object,p)
            incr c::d::($object,n)
        }
        set o [new c::e]
        catch {c::d::p $o} message; lappend ::result
$message
        catch {c::d::q $o} message; lappend ::result
$message
        catch {c::e::r $o} message; lappend ::result
$message
        catch {c::e::s $o} message; lappend ::result
$message
        delete $o

        class C {
            class D {
                set (m) 0
                proc D {this} {
                    set ($this,n) 0
                }
                proc ~D {this} {}
                proc p {this} {
                    incr (m)
                    incr C::E::(o)
                }
                proc q {object} {
                    incr ($object,n)
                    incr C::E::($object,p)
                }
            }
            class E {
                set (o) 0
                proc E {this} C::D {} {
                    set ($this,p) 0
                }
                proc ~E {this} {}
                proc r {this} {
                    incr (o)
                    incr C::D::(m)
                }
                proc s {object} {
                    incr ($object,p)
                    incr C::D::($object,n)
                }
            }
            set ::o [new E]
            catch {D::p $o} message; lappend ::result
$message
            catch {D::q $o} message; lappend ::result
$message
            catch {E::r $o} message; lappend ::result
$message
            catch {E::s $o} message; lappend ::result
$message
        }
        catch {C::D::p $o} message; lappend ::result
$message
        catch {C::D::q $o} message; lappend ::result
$message
        catch {C::E::r $o} message; lappend ::result
$message
        catch {C::E::s $o} message; lappend ::result
$message
        delete $o

        set ::result
    }]
    interp delete $interpreter
    set result

---- Result was:
can't set "(m)": "::namespace" isn't a procedure
---- Result should have been (exact matching):
{can't set "b::(o)": class access violation in
procedure ::a::p} {can't set "b::(1,p)": class access
violation in procedure ::a::q} {can't set "a::(m)":
class access violation in procedure ::b::r} {can't set
"a::(1,n)": class access violation in procedure ::b::s}
{can't set "B::(o)": class access violation in
procedure ::A::p} {can't set "B::(2,p)": class access
violation in procedure ::A::q} {can't set "A::(m)":
class access violation in procedure ::B::r} {can't set
"A::(2,n)": class access violation in procedure ::B::s}
{can't set "c::e::(o)": class access violation in
procedure ::c::d::p} {can't set "c::e::(3,p)": class
access violation in procedure ::c::d::q} {can't set
"c::d::(m)": class access violation in procedure
::c::e::r} {can't set "c::d::(3,n)": class access
violation in procedure ::c::e::s} {can't set
"C::E::(o)": class access violation in procedure
::C::D::p} {can't set "C::E::(4,p)": class access
violation in procedure ::C::D::q} {can't set
"C::D::(m)": class access violation in procedure
::C::E::r} {can't set "C::D::(4,n)": class access
violation in procedure ::C::E::s} {can't set
"C::E::(o)": class access violation in procedure
::C::D::p} {can't set "C::E::(4,p)": class access
violation in procedure ::C::D::q} {can't set
"C::D::(m)": class access violation in procedure
::C::E::r} {can't set "C::D::(4,n)": class access
violation in procedure ::C::E::s}
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== stooop-89 FAILED


==== stooop-90 verify member data checking when "array
set" is used FAILED
==== Contents of test case:

    set interpreter [interp create]
    $interpreter eval {
        # reset any existing environment variables:
        foreach name [array names env STOOOP*] {unset
env($name)}
        set env(STOOOPCHECKDATA) 1
    }
    $interpreter eval "source $source; namespace import
stooop::*"
    set result [$interpreter eval {
        class a {}
        proc a::a {this} {}
        proc a::~a {this} {}
        proc a::p {this} {
            array set b:: "$this,m 0"
        }
        proc a::q {this} {
            array set b:: {n 0}
        }
        set o [new a]
        class b {}
        array set b:: "$o,m 0 n 0"
        catch {a::p $o} message; lappend ::result
$message
        catch {a::q $o} message; lappend ::result
$message
        delete $o

        class A {
            proc A {this} {}
            proc ~A {this} {}
            proc p {this} {
                array set B:: "$this,m 0"
            }
            proc q {this} {
                array set B:: {n 0}
            }
        }
        set o [new A]
        class B {
            array set B:: "$o,m 0 n 0"
        }
        class A {
            catch {p $o} message; lappend ::result
$message
            catch {q $o} message; lappend ::result
$message
        }
        delete $o

        class c {}
        class c::d {}
        proc c::d::d {this} {}
        proc c::d::~d {this} {}
        proc c::d::p {this} {
            array set c::e:: "$this,m 0"
        }
        proc c::d::q {this} {
            array set c::e:: {n 0}
        }
        class c::e {}
        set o [new c::d]
        array set c::e:: "$o,m 0 n 0"
        catch {c::d::p $o} message; lappend ::result
$message
        catch {c::d::q $o} message; lappend ::result
$message
        delete $o

        class C {
            class D {
                proc D {this} {}
                proc ~D {this} {}
                proc p {this} {
                    array set C::E:: "$this,m 0"
                }
                proc q {this} {
                    array set C::E:: {n 0}
                }
            }
            set ::o [new D]
            class E {
                array set C::E:: "$o,m 0 n 0"
            }
            class D {
                catch {p $o} message; lappend ::result
$message
                catch {q $o} message; lappend ::result
$message
            }
        }
        catch {C::D::p $o} message; lappend ::result
$message
        catch {C::D::q $o} message; lappend ::result
$message
        delete $o

        set ::result
    }]
    interp delete $interpreter
    set result

---- Result was:
can't set "B::(2,m)": "::namespace" isn't a procedure
---- Result should have been (exact matching):
{can't set "b::(1,m)": class access violation in
procedure ::a::p} {can't set "b::(n)": class access
violation in procedure ::a::q} {can't set "B::(2,m)":
class access violation in procedure ::A::p} {can't set
"B::(n)": class access violation in procedure ::A::q}
{can't set "c::e::(3,m)": class access violation in
procedure ::c::d::p} {can't set "c::e::(n)": class
access violation in procedure ::c::d::q} {can't set
"C::E::(4,m)": class access violation in procedure
::C::D::p} {can't set "C::E::(n)": class access
violation in procedure ::C::D::q} {can't set
"C::E::(4,m)": class access violation in procedure
::C::D::p} {can't set "C::E::(n)": class access
violation in procedure ::C::D::q}
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== stooop-90 FAILED


==== stooop-95 objects checking from namespace body and
namespace procedure FAILED
==== Contents of test case:

    set interpreter [interp create]
    $interpreter eval {
        # reset any existing environment variables:
        foreach name [array names env STOOOP*] {unset
env($name)}
        set env(STOOOPCHECKOBJECTS) 1
    }
    $interpreter eval "source $source; namespace import
stooop::*"
    # alias puts to be able to collect standard output
data:
    proc appendResult {string} {lappend ::result
$string}
    $interpreter alias puts appendResult
    set result {}
    $interpreter eval {
        class a {
            proc a {this} {}
            proc ~a {this} {}
        }
        namespace eval n {
            proc p {} {
                new a
            }
            namespace eval m {
                proc q {} {
                    new a
                }
            }
        }
        stooop::record
        namespace eval n {
            new a
        }
        stooop::report
        n::p
        stooop::report
        namespace eval n::m {
            new a
        }
        stooop::report
        n::m::q
        stooop::report
        delete 1 2 3 4
    }
    interp delete $interpreter
    set result

---- Result was:
{stooop::record invoked from top level} {stooop::report
invoked from top level:} {+ ::a(1) + ::namespace}
{stooop::report invoked from top level:} {+ ::a(1) +
::namespace} {+ ::a(2) + ::n::p} {stooop::report
invoked from top level:} {+ ::a(1) + ::namespace} {+
::a(2) + ::n::p} {+ ::a(3) + ::namespace}
{stooop::report invoked from top level:} {+ ::a(1) +
::namespace} {+ ::a(2) + ::n::p} {+ ::a(3) +
::namespace} {+ ::a(4) + ::n::m::q}
---- Result should have been (exact matching):
{stooop::record invoked from top level} {stooop::report
invoked from top level:} {+ ::a(1) + namespace ::n}
{stooop::report invoked from top level:} {+ ::a(1) +
namespace ::n} {+ ::a(2) + ::n::p} {stooop::report
invoked from top level:} {+ ::a(1) + namespace ::n} {+
::a(2) + ::n::p} {+ ::a(3) + namespace ::n::m}
{stooop::report invoked from top level:} {+ ::a(1) +
namespace ::n} {+ ::a(2) + ::n::p} {+ ::a(3) +
namespace ::n::m} {+ ::a(4) + ::n::m::q}
==== stooop-95 FAILED


==== stooop-96 objects checking from within derived
class constructor FAILED
==== Contents of test case:

    set interpreter [interp create]
    $interpreter eval {
        # reset any existing environment variables:
        foreach name [array names env STOOOP*] {unset
env($name)}
        set env(STOOOPCHECKOBJECTS) 1
    }
    $interpreter eval "source $source; namespace import
stooop::*"
    # alias puts to be able to collect standard output
data:
    proc appendResult {string} {lappend ::result
$string}
    $interpreter alias puts appendResult
    set result {}
    $interpreter eval {
        class a {
            proc a {this i} {}
            proc ~a {this} {}
        }
        class b {
            proc b {this} a {[new c]} {}
            proc ~b {this} {}
        }
        class c {
            proc c {this} {}
            proc ~c {this} {}
        }
        stooop::record
        new b
        stooop::report

        class A {
            class a {
                proc a {this i} {}
                proc ~a {this} {}
            }
            class b {
                proc b {this} a {[new c]} {}
                proc ~b {this} {}
            }
            class c {
                proc c {this} {}
                proc ~c {this} {}
            }
            stooop::record
            new b
            stooop::report
        }

    }
    interp delete $interpreter
    set result

---- Result was:
{stooop::record invoked from top level} {stooop::report
invoked from top level:} {+ ::b(1) + top level} {+
::c(2) + ::b::b} {stooop::record invoked from
::namespace} {stooop::report invoked from ::namespace:}
{+ ::A::b(3) + ::namespace} {+ ::c(4) + ::A::b::b}
---- Result should have been (exact matching):
{stooop::record invoked from top level} {stooop::report
invoked from top level:} {+ ::b(1) + top level} {+
::c(2) + ::b::b} {stooop::record invoked from namespace
::A} {stooop::report invoked from namespace ::A:} {+
::A::b(3) + namespace ::A} {+ ::c(4) + ::A::b::b}
==== stooop-96 FAILED


==== stooop-97 objects checking with debugging
procedures invocation from namespace body
    and namespace procedure FAILED
==== Contents of test case:

    set interpreter [interp create]
    $interpreter eval {
        # reset any existing environment variables:
        foreach name [array names env STOOOP*] {unset
env($name)}
        set env(STOOOPCHECKOBJECTS) 1
    }
    $interpreter eval "source $source; namespace import
stooop::*"
    # alias puts to be able to collect standard output
data:
    proc appendResult {string} {lappend ::result
$string}
    $interpreter alias puts appendResult
    set result {}
    $interpreter eval {
        class a {
            proc a {this} {}
            proc ~a {this} {}
        }
        namespace eval n {
            proc p {} {
                stooop::record
                new a
                stooop::report
            }
            namespace eval m {
                proc q {} {
                    stooop::record
                    new a
                    stooop::report
                }
            }
        }
        n::p
        n::m::q
        namespace eval n {
            stooop::record
            new a
            stooop::report
        }

    }
    interp delete $interpreter
    set result

---- Result was:
{stooop::record invoked from ::n::p} {stooop::report
invoked from ::n::p:} {+ ::a(1) + ::n::p}
{stooop::record invoked from ::n::m::q} {stooop::report
invoked from ::n::m::q:} {+ ::a(2) + ::n::m::q}
{stooop::record invoked from ::namespace}
{stooop::report invoked from ::namespace:} {+ ::a(3) +
::namespace}
---- Result should have been (exact matching):
{stooop::record invoked from ::n::p} {stooop::report
invoked from ::n::p:} {+ ::a(1) + ::n::p}
{stooop::record invoked from ::n::m::q} {stooop::report
invoked from ::n::m::q:} {+ ::a(2) + ::n::m::q}
{stooop::record invoked from namespace ::n}
{stooop::report invoked from namespace ::n:} {+ ::a(3)
+ namespace ::n}
==== stooop-97 FAILED

env array elements created:     STOOOPCHECKOBJECTS


Tests ended at Thu May 09 07:00:07 EDT 2002
all.tcl:        Total   2012    Passed  1996    Skipped
8       Failed  8
Sourced 36 Test Files.
Files with failing tests: base64/yencode.test
stooop/stooop.test
Number of tests skipped for each constraint:
        3       badTest
        5       pcOnly

Logged In: NO 

stooop fixed in CVS.

Jean-Luc

File Added - 23186: pat.yencode.test

Logged In: YES 
user_id=15949

I am attaching a patch to yencode.test that fixes its test
suite error.  There were two problems.  First was that
tcllib test runs from the top level directory, but
yencode.test expects it is being run from the modules/base64
directory where its datafile is located.

The second problem was a wrong variable, which I have fixed
as well.

Can someone fix this in the cvs?

Logged In: YES 
user_id=80530

The stooop failures are a duplicate of Bug 553848.

Logged In: NO 

I would very much like to fix that.

Unfortunately, I do not have a fast enough cvs access from home, and from work the firewall prevents 
cvs.

Is there somewhere a 8.4a5 snapshot tarball that I could download via http or ftp?

Thanks.

Jean-Luc

Logged In: YES 
user_id=75003

Please do not inline such large files in the comment 
section. Attaching them as files is much better.

Anyway

The uuencode errors seem to be a duplicate of #553732
"uuencode.test warnings: 64 bit"

The yenc warnings seem to be a duplicate of #548354
"yenc testsuite trouble".

For the stooop messages I have no duplicate report.
I am passing this to jfountain as author of stooop.